Copy to an Entry-Sequenced File (HP NonStop to HP NonStop)

In this multi-step Process, STEP01 will execute FUP to purge $B.FILERESO.A11025 on the PNODE. A message will be sent to the spooler ($S.#FUPTEST) that indicates whether FUP executed successfully.

STEP02 will copy $B.FILEDATA.ETYPE from the PNODE to the entry-sequenced file, $B.FILERESO.A110257, at the SNODE. Specifying the SYSOPTS subparameter TYPE=E ensures that file attribute defaults defined in the type file E will be used when creating the file.

A110257  PROCESS     PNODE=CD.TANA                  -
                     SNODE=CD.TANB
STEP01  RUN TASK    (PGM=FUP                        -
                     SYSOPTS=(’/OUT $S.#FUPTEST/’,  -
                              ’VOLUME $B.FILERESO’, -
                              ’PURGE A110257  ’)    -
                     PNODE)
STEP02  COPY  FROM  (DSN=$B.FILEDATA.ETYPE          -
                     PNODE                          -
                     DISP=SHR)                      -
              TO    (DSN=$B.FILERESO.A110257        -
                     SNODE                          -
                     DISP=NEW                       -
                     SYSOPTS="SET TYPE E")