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$
                                                                                                                                                                        