SPL,L,O,M 
!     NAME:   CREA. 
!     SOURCE: 92067-18157 
!     RELOC:  92067-16125 
!     PGMR:   G.A.A.
!     DATE:   780907
! 
!  ***************************************************************
!  * (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.(8) "92067-16125 REV.1903 781102" 
      LET CLOS.,ECREA          BE SUBROUTINE,EXTERNAL 
      LET .E.R.                BE INTEGER,EXTERNAL
      LET ISIZE(4)             BE INTEGER 
CREA.:SUBROUTINE(DCBR,LUR,PPLIS) GLOBAL,FEXIT 
      CLOS.(DCBR)  !CLOSE CURRENT FILE IF OPEN
      IF LUR <64 THEN FRETURN 
      DCB3_[DCB2_[DCB1_@PPLIS+1]+1]+1 
      ISIZE(2)_$(@PPLIS+3)
      IF ISIZE(2) < 0 THEN ISIZE(1)_-1,\
           ELSE ISIZE(1)_0
      ISIZE(3)_0
      ISIZE(4)_$(@PPLIS+4)
      ECREA(DCBR,.E.R.,LUR,ISIZE,$DCB2,PPLIS,$DCB1) 
      IF .E.R. => 0 THEN \
           $DCB3_$(@DCBR+5) 
      RETURN
      END 
      END 
      END$
                                                    