Copy a Data Set from z/OS to a Spooled File on i5/OS

This example copies a data set from z/OS to a spooled file on an i5/OS node. The specified SYSOPTS parameters override the defaults defined for the print device at installation. The parameter CTLCHAR(*FCFC) is always used when the source z/OS file has a record format (RECFM) of xxA, which indicates that it contains ANSI carriage control.

TEST01A  PROCESS        SNODE=OS400.CDI1                         -
                        PNODE=SC.OS390.CD5A                      -
                        PRTY=8                                   -
                        NOTIFY=%USER                             -
                        CLASS=4                                  -
                        HOLD=NO                                  -
                        SNODEID=(RSMITH,ROGER)
STEP001 COPY  FROM     (PNODE                                    -
                        DSN=CD.OS400.REPORTS                     -
                        DISP=SHR)                                -
              TO       (SNODE                                    -
                        DSN=REPORTS401                           -
                        SYSOPTS=\"TYPE(SPLF)\                    -
                                \DEV(*JOB)\                      -
                                \DEVTYPE(*IPDS)\                 -
                                \CTLCHAR(*FCFC)\                 -
                                \SPOOL(*YES)\                    -
                                \PRTQLTY(*NLQ)\                  -
                                \PRTTXT(’*** END OF PAGE ***’)\  -
                                \JUSTIFY(100)\                   -
                                \OUTQ(*JOB)\                     -
                                \COPIES(2)\                      -
                                \MAXRCDS(999)\                   -
                                \FILESEP(2)\                     -
                                \HOLD(*YES)\                     -
                                \SAVE(*YES)\                     -
                                \OUTPTY(*JOB)\                   -
                                \USRDTA(RSMITH)"\                -
                        DISP=RPL)