/*           CRTCMD     CMD(mylib/TRNINTSPLF) +                    */
/*                      PGM(QSYS/QUSRSPLA) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(TRNINTSPLF) +                       */
/*                      TEXT('QUSRSPLA') +                         */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM) +                                 */
/*                      HLPPNLGRP(mylib/TRNINTSPLF) +              */
/*                      HLPID(TRNINTSPLF)                          */

             CMD        PROMPT('Translate internal *splf name')
             PARM       KWD(SPLFA) +
                        TYPE(*CHAR) +
                        LEN(80) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('char(80)') +
                        PROMPT('Attributes structure')
             PARM       KWD(SPLFALEN) +
                        TYPE(*INT4) +
                        CONSTANT(80) +
                        MIN(1)
             PARM       KWD(FORMAT) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        CONSTANT(SPLA0100) +
                        MIN(1)
             PARM       KWD(QJOB) +
                        TYPE(*CHAR) +
                        LEN(26) +
                        CONSTANT(*INT) +
                        MIN(1)
             PARM       KWD(INTJOBID) +
                        TYPE(*CHAR) +
                        LEN(16) +
                        MIN(1) +
                        PROMPT('Internal job identifier')
             PARM       KWD(INTSPLFID) +
                        TYPE(*CHAR) +
                        LEN(16) +
                        MIN(1) +
                        PROMPT('Internal *splf identifier')
             PARM       KWD(SPLF) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        CONSTANT(*INT)
             PARM       KWD(SPLFNBR) +
                        TYPE(*INT4) +
                        CONSTANT(0)