RTNSPLFA:   PGM        PARM(&PSPLF &PQJOB &PSPLNBR &PFORMTYPE +
                          &POUTPTY &PCPYLEFT &PCOPIES &PMAXRCDS +
                          &PFILESEP &PSCHEDULE &PHOLD &PSAVE +
                          &PDEVTYPE &PPRTTYPE &PDEVFILE &PDEVFILEL +
                          &PUSRDTA &PACGCDE &POPNPGM &POPNPGML +
                          &POPNDAT &POPNTIM &PPAGWTN &PTOTPAG +
                          &PRCDLEN &PPAGLEN &PPAGWDT &PLPI &PCPI +
                          &POVRFLW &PFOLD &PCTLCHAR &PRPLUNPRT +
                          &PALIGN &PPRTQLTY &PFORMFEED &PDRAWER +
                          &PFONT &PPAGRTT &PJUSTIFY)

             DCL        VAR(&PSPLF) TYPE(*CHAR) LEN(10)
             DCL        VAR(&PQJOB) TYPE(*CHAR) LEN(26)
             DCL        VAR(&PSPLNBR) TYPE(*CHAR) LEN(5)
             DCL        VAR(&PFORMTYPE) TYPE(*CHAR) LEN(10)
             DCL        VAR(&POUTPTY) TYPE(*CHAR) LEN(1)
             DCL        VAR(&PCPYLEFT) TYPE(*CHAR) LEN(3)
             DCL        VAR(&PCOPIES) TYPE(*CHAR) LEN(3)
             DCL        VAR(&PMAXRCDS) TYPE(*CHAR) LEN(10)
             DCL        VAR(&PFILESEP) TYPE(*CHAR) LEN(1)
             DCL        VAR(&PSCHEDULE) TYPE(*CHAR) LEN(8)
             DCL        VAR(&PHOLD) TYPE(*CHAR) LEN(4)
             DCL        VAR(&PSAVE) TYPE(*CHAR) LEN(4)
             DCL        VAR(&PDEVTYPE) TYPE(*CHAR) LEN(10)
             DCL        VAR(&PPRTTYPE) TYPE(*CHAR) LEN(5)
             DCL        VAR(&PDEVFILE) TYPE(*CHAR) LEN(10)
             DCL        VAR(&PDEVFILEL) TYPE(*CHAR) LEN(10)
             DCL        VAR(&PUSRDTA) TYPE(*CHAR) LEN(10)
             DCL        VAR(&PACGCDE) TYPE(*CHAR) LEN(15)
             DCL        VAR(&POPNPGM) TYPE(*CHAR) LEN(10)
             DCL        VAR(&POPNPGML) TYPE(*CHAR) LEN(10)
             DCL        VAR(&POPNDAT) TYPE(*CHAR) LEN(8)
             DCL        VAR(&POPNTIM) TYPE(*CHAR) LEN(8)
             DCL        VAR(&PPAGWTN) TYPE(*CHAR) LEN(10)
             DCL        VAR(&PTOTPAG) TYPE(*CHAR) LEN(10)
             DCL        VAR(&PRCDLEN) TYPE(*CHAR) LEN(5)
             DCL        VAR(&PPAGLEN) TYPE(*CHAR) LEN(3)
             DCL        VAR(&PPAGWDT) TYPE(*CHAR) LEN(3)
             DCL        VAR(&PLPI) TYPE(*CHAR) LEN(1)
             DCL        VAR(&PCPI) TYPE(*CHAR) LEN(2)
             DCL        VAR(&POVRFLW) TYPE(*CHAR) LEN(3)
             DCL        VAR(&PFOLD) TYPE(*CHAR) LEN(4)
             DCL        VAR(&PCTLCHAR) TYPE(*CHAR) LEN(5)
             DCL        VAR(&PRPLUNPRT) TYPE(*CHAR) LEN(4)
             DCL        VAR(&PALIGN) TYPE(*CHAR) LEN(4)
             DCL        VAR(&PPRTQLTY) TYPE(*CHAR) LEN(6)
             DCL        VAR(&PFORMFEED) TYPE(*CHAR) LEN(8)
             DCL        VAR(&PDRAWER) TYPE(*CHAR) LEN(1)
             DCL        VAR(&PFONT) TYPE(*CHAR) LEN(5)
             DCL        VAR(&PPAGRTT) TYPE(*CHAR) LEN(5)
             DCL        VAR(&PJUSTIFY) TYPE(*CHAR) LEN(3)


             DCL        VAR(&OPNDAT) TYPE(*CHAR) LEN(7)
             DCL        VAR(&OPNTIM) TYPE(*CHAR) LEN(6)
             DCL        VAR(&DATSEP) TYPE(*CHAR) LEN(1)
             DCL        VAR(&TIMSEP) TYPE(*CHAR) LEN(1)

             DCL        VAR(&RPLUNPRT) TYPE(*CHAR) LEN(1)

             DCL        VAR(&SPLFA) TYPE(*CHAR) LEN(1142)


             MONMSG     MSGID(MCH3601) /* Ignore unpassed +
                          parameters... */
             MONMSG     MSGID(CPF0819) /* Ignore trunbcation +
                          errors... */

             MONMSG     MSGID(CPF0000 CPF9999) EXEC(GOTO +
                          CMDLBL(STDERR))


             IF         COND(&PQJOB *EQ '*') THEN(DO)

             RTVSPLFAST SPLFA(&SPLFA) JOB(*) SPLFNAM(&PSPLF) +
                          SPLFNBR(&PSPLNBR)

             ENDDO
             ELSE       CMD(DO)

             RTVSPLFAST SPLFA(&SPLFA) JOB(%SST(&PQJOB 21 +
                          6)/%SST(&PQJOB 11 10)/%SST(&PQJOB 1 10)) +
                          SPLFNAM(&PSPLF) SPLFNBR(&PSPLNBR)

             ENDDO

             CHGVAR     VAR(&PFORMTYPE) VALUE(%SST(&SPLFA 81 10))
             CHGVAR     VAR(&POUTPTY) VALUE(%SST(&SPLFA 182 1))
             CHGVAR     VAR(&PCPYLEFT) VALUE(%BIN(&SPLFA 169 4))
             CHGVAR     VAR(&PCOPIES) VALUE(%BIN(&SPLFA 165 4))
             CHGVAR     VAR(&PMAXRCDS) VALUE(%BIN(&SPLFA 305 4))
             CHGVAR     VAR(&PFILESEP) VALUE(%BIN(&SPLFA 433 4))
             CHGVAR     VAR(&PSCHEDULE) VALUE(%SST(&SPLFA 111 10))
             CHGVAR     VAR(&PHOLD) VALUE(%SST(&SPLFA 121 4))
             CHGVAR     VAR(&PSAVE) VALUE(%SST(&SPLFA 131 4))
             CHGVAR     VAR(&PDEVTYPE) VALUE(%SST(&SPLFA 309 10))
             CHGVAR     VAR(&PPRTTYPE) VALUE(%SST(&SPLFA 319 10))
             CHGVAR     VAR(&PDEVFILE) VALUE(%SST(&SPLFA 216 10))
             CHGVAR     VAR(&PDEVFILEL) VALUE(%SST(&SPLFA 226 10))
             CHGVAR     VAR(&PUSRDTA) VALUE(%SST(&SPLFA 91 10))
             CHGVAR     VAR(&PACGCDE) VALUE(%SST(&SPLFA 256 15))
             CHGVAR     VAR(&POPNPGM) VALUE(%SST(&SPLFA 236 10))
             CHGVAR     VAR(&POPNPGML) VALUE(%SST(&SPLFA 246 10))
             CHGVAR     VAR(&OPNDAT) VALUE(%SST(&SPLFA 203 7)) /* +
                          Must convert to char(8) with separator... */
             CVTDAT     DATE(&OPNDAT) TOVAR(&POPNDAT) FROMFMT(*CYMD) +
                          TOFMT(*MDY)
             CHGVAR     VAR(&OPNTIM) VALUE(%SST(&SPLFA 210 6)) /* +
                          Must convert to char(8) with separator... */
             RTVJOBA    TIMSEP(&TIMSEP)
             CHGVAR     VAR(&POPNTIM) VALUE(%SST(&OPNTIM 1 2) *CAT +
                          &TIMSEP *CAT %SST(&OPNTIM 3 2) *CAT +
                          &TIMSEP *CAT %SST(&POPNTIM 5 2))
             CHGVAR     VAR(&PPAGWTN) VALUE(%BIN(&SPLFA 145 4))
             CHGVAR     VAR(&PTOTPAG) VALUE(%BIN(&SPLFA 141 4))
             CHGVAR     VAR(&PRCDLEN) VALUE(%BIN(&SPLFA 301 4))
             CHGVAR     VAR(&PPAGLEN) VALUE(%BIN(&SPLFA 425 4))
             CHGVAR     VAR(&PPAGWDT) VALUE(%BIN(&SPLFA 429 4))
             CHGVAR     VAR(&PLPI) VALUE(%BIN(&SPLFA 173 4))
             CHGVAR     VAR(&PCPI) VALUE(%BIN(&SPLFA 177 4))
             CHGVAR     VAR(&POVRFLW) VALUE(%BIN(&SPLFA 437 4))
             CHGVAR     VAR(&PFOLD) VALUE(%SST(&SPLFA 563 4))
             CHGVAR     VAR(&PCTLCHAR) VALUE(%SST(&SPLFA 573 5))
             CHGVAR     VAR(&RPLUNPRT) VALUE(%SST(&SPLFA 423 1)) /* +
                          *yes or *no */
             IF         COND(&RPLUNPRT *EQ 'Y') THEN(CHGVAR +
                          VAR(&PRPLUNPRT) VALUE('*YES'))
             ELSE       CMD(CHGVAR VAR(&PRPLUNPRT) VALUE('*NO'))
             CHGVAR     VAR(&PALIGN) VALUE(%SST(&SPLFA 583 4))
             CHGVAR     VAR(&PPRTQLTY) VALUE(%SST(&SPLFA 593 6)) /* +
                          But can return *FASTDRAFT */
             CHGVAR     VAR(&PFORMFEED) VALUE(%SST(&SPLFA 603 8))
             CHGVAR     VAR(&PDRAWER) VALUE(%BIN(&SPLFA 525 4)) /* 1 +
                          char only */
             CHGVAR     VAR(&PFONT) VALUE(%SST(&SPLFA 603 5))
             CHGVAR     VAR(&PPAGRTT) VALUE(%BIN(&SPLFA 545 4)) /* 5 +
                          char */
             CHGVAR     VAR(&PJUSTIFY) VALUE(%BIN(&SPLFA 549 4)) /* +
                          3 char */


             RMVMSG     CLEAR(*ALL)

             RETURN


 STDERR:     MOVESCMSG

             RETURN

             ENDPGM