SPL,L,O,M,C ! NAME: CREA. ! SOURCE: 92064-18161 ! RELOC: 92064-16055 ! PGMR: G.A.A. ! MOD: G.L.M. ! ! *************************************************************** ! * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977. ALL RIGHTS * ! * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * ! * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT* ! * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * ! *************************************************************** ! ! NAME CREA.(7) " 92064-16055 REV.1650 760923" ! LET CREAT BE SUBROUTINE,EXTERNAL LET IER.,CLO BE SUBROUTINE,EXTERNAL,DIRECT LET .E.R BE INTEGER,EXTERNAL CREA.:SUBROUTINE(DCBR,LUR,PPLIS) GLOBAL,FEXIT CLO(DCBR) !CLOSE CURRENT FILE IF OPEN IF LUR <64 THEN FRETURN DCB3_[DCB2_[DCB1_@PPLIS+1]+1]+1 CREAT(DCBR,.E.R ,LUR,$DCB3,$DCB2,PPLIS,$DCB1) IER. $DCB3_.E.R >- 1 !SET ACTUAL SIZE FOR TRUNCATE OPTION RETURN END END END$