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