/*           CRTCMD     CMD(mylib/RTNSPLFA) +                      */
/*                      PGM(mylib/RTNSPLFA) +                      */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(RTNSPLFA) +                         */
/*                      TEXT('Return spooled file attr - RTN+      */
/*                      SPLFA') +                                  */
/*                      ALLOW( +                                   */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

 RTNSPLFA:   CMD        PROMPT('Return *splf attributes')

             PARM       KWD(SPLF) TYPE(*NAME) LEN(10) MIN(1) +
                          PROMPT('Spooled file')

             PARM       KWD(JOB) TYPE(Q087A) DFT(*) SNGVAL((*)) +
                          PROMPT('Job')

             PARM       KWD(SPLNBR) TYPE(*CHAR) LEN(5) DFT(*ONLY) +
                          SPCVAL((*ONLY) (*LAST)) PROMPT('Spooled +
                          file number')

             PARM       KWD(FORMTYPE) TYPE(*CHAR) LEN(10) +
                          RTNVAL(*YES) PROMPT('Form +
                          type                 (10)')

             PARM       KWD(OUTPTY) TYPE(*CHAR) LEN(1) RTNVAL(*YES) +
                          PROMPT('Output priority            (1)')

             PARM       KWD(CPYLEFT) TYPE(*CHAR) LEN(3) RTNVAL(*YES) +
                          PROMPT('Number of copies left      (3)')

             PARM       KWD(COPIES) TYPE(*CHAR) LEN(3) RTNVAL(*YES) +
                          PROMPT('Total number of copies     (3)')

             PARM       KWD(MAXRCDS) TYPE(*CHAR) LEN(10) +
                          RTNVAL(*YES) PROMPT('Maximum +
                          records           (10)')

             PARM       KWD(FILESEP) TYPE(*CHAR) LEN(1) RTNVAL(*YES) +
                          PROMPT('File separators            (1)')

             PARM       KWD(SCHEDULE) TYPE(*CHAR) LEN(8) +
                          RTNVAL(*YES) +
                          PROMPT('Schedule                   (8)')

             PARM       KWD(HOLD) TYPE(*CHAR) LEN(4) RTNVAL(*YES) +
                          PROMPT('Hold file                  (4)')

             PARM       KWD(SAVE) TYPE(*CHAR) LEN(4) RTNVAL(*YES) +
                          PROMPT('Save after output          (4)')

             PARM       KWD(DEVTYPE) TYPE(*CHAR) LEN(10) +
                          RTNVAL(*YES) PROMPT('Device +
                          type               (10)')

             PARM       KWD(PRTTYPE) TYPE(*CHAR) LEN(5) RTNVAL(*YES) +
                          PROMPT('Printer type               (5)')

             PARM       KWD(DEVFILE) TYPE(*CHAR) LEN(10) +
                          RTNVAL(*YES) PROMPT('Device +
                          file               (10)')

             PARM       KWD(DEVFILEL) TYPE(*CHAR) LEN(10) +
                          RTNVAL(*YES) PROMPT('Device file +
                          library       (10)')

             PARM       KWD(USRDTA) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
                          PROMPT('User data                 (10)')

             PARM       KWD(ACGCDE) TYPE(*CHAR) LEN(15) RTNVAL(*YES) +
                          PROMPT('Accounting code           (15)')

             PARM       KWD(OPNPGM) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
                          PROMPT('Program which opened file (10)')

             PARM       KWD(OPNPGML) TYPE(*CHAR) LEN(10) +
                          RTNVAL(*YES) PROMPT('Pgm lib which opened +
                          file (10)')

             PARM       KWD(OPNDAT) TYPE(*CHAR) LEN(8) RTNVAL(*YES) +
                          PROMPT('Qpen date                  (8)')

             PARM       KWD(OPNTIM) TYPE(*CHAR) LEN(8) RTNVAL(*YES) +
                          PROMPT('Open time                  (8)')

             PARM       KWD(PAGWTN) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
                          PROMPT('Page being written        (10)')

             PARM       KWD(TOTPAG) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
                          PROMPT('Total pages               (10)')

             PARM       KWD(RCDLEN) TYPE(*CHAR) LEN(5) RTNVAL(*YES) +
                          PROMPT('Record length              (5)')

             PARM       KWD(PAGLEN) TYPE(*CHAR) LEN(3) RTNVAL(*YES) +
                          PROMPT('Page length                (3)')

             PARM       KWD(PAGWDT) TYPE(*CHAR) LEN(3) RTNVAL(*YES) +
                          PROMPT('Page width                 (3)')

             PARM       KWD(LPI) TYPE(*CHAR) LEN(1) RTNVAL(*YES) +
                          PROMPT('Lines per inch (LPI)       (1)')

             PARM       KWD(CPI) TYPE(*CHAR) LEN(2) RTNVAL(*YES) +
                          PROMPT('Characters per inch (CPI)  (2)')

             PARM       KWD(OVRFLW) TYPE(*CHAR) LEN(3) RTNVAL(*YES) +
                          PROMPT('Overflow line              (3)')

             PARM       KWD(FOLD) TYPE(*CHAR) LEN(4) RTNVAL(*YES) +
                          PROMPT('Fold print line            (4)')

             PARM       KWD(CTLCHAR) TYPE(*CHAR) LEN(5) RTNVAL(*YES) +
                          PROMPT('Control character          (5)')

             PARM       KWD(RPLUNPRT) TYPE(*CHAR) LEN(4) +
                          RTNVAL(*YES) PROMPT('Replace unprintable +
                          char   (4)')

             PARM       KWD(ALIGN) TYPE(*CHAR) LEN(4) RTNVAL(*YES) +
                          PROMPT('Align forms                (4)')

             PARM       KWD(PRTQLTY) TYPE(*CHAR) LEN(6) RTNVAL(*YES) +
                          PROMPT('Print quality              (6)')

             PARM       KWD(FORMFEED) TYPE(*CHAR) LEN(8) +
                          RTNVAL(*YES) PROMPT('Form +
                          feed                  (8)')

             PARM       KWD(DRAWER) TYPE(*CHAR) LEN(1) RTNVAL(*YES) +
                          PROMPT('Drawer                     (1)')

             PARM       KWD(FONT) TYPE(*CHAR) LEN(5) RTNVAL(*YES) +
                          PROMPT('Printer font               (5)')

             PARM       KWD(PAGRTT) TYPE(*CHAR) LEN(5) RTNVAL(*YES) +
                          PROMPT('Page rotation              (5)')

             PARM       KWD(JUSTIFY) TYPE(*CHAR) LEN(3) RTNVAL(*YES) +
                          PROMPT('Justification              (3)')

 Q087A:      QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) PROMPT('User')
             QUAL       TYPE(*CHAR) LEN(6) PROMPT('Number')