/*           CRTCMD     CMD(mylib/RUSGENHDR) +                     */
/*                      PGM(mylib/RUSGENHDR) +                     */
/*                      SRCFILE(mylib/mysrc) +                     */
/*                      SRCMBR(RUSGENHDR) +                        */
/*                      TEXT('Retrieve *usrspc generic header') +  */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Retrieve *usrspc gen. header')
             PARM       KWD(USRSPC) +
                        TYPE(Q00AB) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('Qualified user space name')
Q00AB:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('Space library')
             PARM       KWD(USRARA) +
                        TYPE(*CHAR) +
                        LEN(64) +
                        RTNVAL(*YES) +
                        CHOICE('*char 64') +
                        PROMPT('User area')
             PARM       KWD(SIZGENHDR) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        RTNVAL(*YES) +
                        CHOICE('*dec 5,0') +
                        PROMPT('Size of generic header')
             PARM       KWD(STRUCTVRM) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        RTNVAL(*YES) +
                        CHOICE('*char 4') +
                        PROMPT('Structure VRM')
             PARM       KWD(FORMAT) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        RTNVAL(*YES) +
                        CHOICE('*char 8') +
                        PROMPT('Format')
             PARM       KWD(APIUSED) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        RTNVAL(*YES) +
                        CHOICE('*char 10') +
                        PROMPT('API used')
             PARM       KWD(CRTDATTIM) +
                        TYPE(*CHAR) +
                        LEN(13) +
                        RTNVAL(*YES) +
                        CHOICE('*char 13') +
                        PROMPT('Create date/time CYYMMDDHHMMSS')
             PARM       KWD(INFSTS) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RTNVAL(*YES) +
                        CHOICE('*char 1') +
                        PROMPT('Information status')
             PARM       KWD(SIZUSRSPC) +
                        TYPE(*DEC) +
                        LEN(9 0) +
                        RTNVAL(*YES) +
                        CHOICE('*dec 9,0') +
                        PROMPT('Size of user space')
             PARM       KWD(OFFSINPP) +
                        TYPE(*DEC) +
                        LEN(9 0) +
                        RTNVAL(*YES) +
                        CHOICE('*dec 9,0') +
                        PROMPT('Offset to input parms')
             PARM       KWD(SIZINPP) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        RTNVAL(*YES) +
                        CHOICE('*dec 5,0') +
                        PROMPT('Size of input parameters')
             PARM       KWD(OFFSHDR) +
                        TYPE(*DEC) +
                        LEN(9 0) +
                        RTNVAL(*YES) +
                        CHOICE('*dec 9,0') +
                        PROMPT('Offset to header section')
             PARM       KWD(SIZHDR) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        RTNVAL(*YES) +
                        CHOICE('*dec 5,0') +
                        PROMPT('Size of generic header')
             PARM       KWD(OFFSLSTDTA) +
                        TYPE(*DEC) +
                        LEN(9 0) +
                        RTNVAL(*YES) +
                        CHOICE('*dec 9,0') +
                        PROMPT('Offset to list data')
             PARM       KWD(SIZLSTDTA) +
                        TYPE(*DEC) +
                        LEN(9 0) +
                        RTNVAL(*YES) +
                        CHOICE('*dec 9,0') +
                        PROMPT('Size of list data')
             PARM       KWD(NBRLSTE) +
                        TYPE(*DEC) +
                        LEN(7 0) +
                        RTNVAL(*YES) +
                        CHOICE('*dec 7,0') +
                        PROMPT('Number of list entries')
             PARM       KWD(SIZLSTE) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        RTNVAL(*YES) +
                        CHOICE('*dec 5,0') +
                        PROMPT('Size of list entry')
             PARM       KWD(SUBSETIND) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RTNVAL(*YES) +
                        CHOICE('*char 1') +
                        PROMPT('Subset indicator')