    
2 TRANS:CD   ENDIF
      IF RECORD <> 'UPDATE'
        APPEND BLANK
        REPLACE COMMAND WITH 'SYS ' + D: + '=A:SYSCHK.*[VO]'
        APPEND BLANK
        REPLACE COMMAND WITH 'SYS ' + D: + '=A:SYSTEM.CMD[VO]'
        APPEND BLANK
        REPLACE COMMAND WITH 'SYS ' + D: + '=A:SWAIT.CMD[VO]'
      ENDIF
      IF .NOT. FILE(D: + 'DO.COM') 
        APPEND BLANK
        REPLACE COMMAND WITH 'SYS ' + D: + '=A:D*.*[VO]'
      ENDIF
     ENDIF
     APPEND BLANK
     REPLACE COMMAND WITH    DATIEN   PATIEN  BLANK
        REPLACE COMMAND WITH 'SYS ' + D: + '=A:SWAIT.CMD[VO]'
      ENDIF
      IF .NOT. FILE(D: + 'DO.COM') 
        APPEND BLANK
        REPLACE COMMAND WITH 'SYS ' + D: + '=A:D*.*[VO]'
      ENDIF
     ENDIF
     APPEND BLANK
     REPLACE COMMAND WITH 'ERA ' + TRANS:CD + '*.SUB'
     STORE TRANS:CD + '.SUB' TO I:COPY
     COPY ALL TO &I:COPY SDF
     DELETE ALL
     PACK
     STORE 0 TO I:STAT
RETURNMFUNC:NR = 7
                 STORE TRANS:CD + 'LS