SPL,L,O,M ! NAME: CREA. ! SOURCE: 92070-18057 ! RELOC: 92070-16057 ! PGMR: G.A.A. ! MOD: M.L.K. ! ! *************************************************************** ! * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. 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) " 92070-1X057 REV.1941 790906" ! ! EXTERNAL SUBROUTINES LET CREAT BE SUBROUTINE,EXTERNAL LET IER. BE SUBROUTINE,EXTERNAL,DIRECT ! EXTERNAL INTEGERS LET .E.R BE INTEGER,EXTERNAL ! ! CREA.:SUBROUTINE(DCBR,LUR,PPLIS) GLOBAL,FEXIT IF LUR <20000K THEN FRETURN !IF NAME LU, FEXIT DCB3_[DCB2_[DCB1_@PPLIS+1]+1]+1 !SET UP DCB POINTERS CREAT(DCBR,.E.R ,LUR,$DCB3,$DCB2,PPLIS,$DCB1) !CREAT THE FILE IER. !TEST FOR ERRORS $DCB3_.E.R >- 1 !SET ACTUAL SIZE !FOR TRUNCATE OPTION RETURN END END END$