RUSGENHDR:  PGM        PARM(&QUSRSPC &USRARA &SIZGENHDR +
                          &STRUCTVRM &FORMAT &APIUSED &CRTDATTIM +
                          &INFSTS &SIZUSRSPC &OFFSINPP &SIZINPP +
                          &OFFSHDR &SIZHDR &OFFSLSTDTA &SIZLSTDTA +
                          &NBRLSTE &SIZLSTE &SUBSETIND)

             DCL        VAR(&QUSRSPC) TYPE(*CHAR) LEN(20)

             DCL        VAR(&USRARA) TYPE(*CHAR) LEN(64)
             DCL        VAR(&SIZGENHDR) TYPE(*DEC) LEN(5)
             DCL        VAR(&STRUCTVRM) TYPE(*CHAR) LEN(4)
             DCL        VAR(&FORMAT) TYPE(*CHAR) LEN(8)
             DCL        VAR(&APIUSED) TYPE(*CHAR) LEN(10)
             DCL        VAR(&CRTDATTIM) TYPE(*CHAR) LEN(13)
             DCL        VAR(&INFSTS) TYPE(*CHAR) LEN(1)
             DCL        VAR(&SIZUSRSPC) TYPE(*DEC) LEN(9)
             DCL        VAR(&OFFSINPP) TYPE(*DEC) LEN(9)
             DCL        VAR(&SIZINPP) TYPE(*DEC) LEN(5)
             DCL        VAR(&OFFSHDR) TYPE(*DEC) LEN(9)
             DCL        VAR(&SIZHDR) TYPE(*DEC) LEN(5)
             DCL        VAR(&OFFSLSTDTA) TYPE(*DEC) LEN(9)
             DCL        VAR(&SIZLSTDTA) TYPE(*DEC) LEN(9)
             DCL        VAR(&NBRLSTE) TYPE(*DEC) LEN(7)
             DCL        VAR(&SIZLSTE) TYPE(*DEC) LEN(5)
             DCL        VAR(&SUBSETIND) TYPE(*CHAR) LEN(1)


             DCL        VAR(&USRSPC) TYPE(*CHAR) LEN(10)
             DCL        VAR(&USRSPCL) TYPE(*CHAR) LEN(10)

             DCL        VAR(&USRSPCDTA) TYPE(*CHAR) LEN(1000)


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

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


             CHGVAR     VAR(&USRSPC) VALUE(%SST(&QUSRSPC 1 10))
             CHGVAR     VAR(&USRSPCL) VALUE(%SST(&QUSRSPC 11 10))


             RTVUSRSPC  USRSPC(&USRSPCL/&USRSPC) RTVLEN(150) +
                          RCVVAR(&USRSPCDTA)


             CHGVAR     VAR(&USRARA) VALUE(%SST(&USRSPCDTA 1 64))
             CHGVAR     VAR(&SIZGENHDR) VALUE(%BIN(&USRSPCDTA 65 4))
             CHGVAR     VAR(&STRUCTVRM) VALUE(%SST(&USRSPCDTA 69 4))
             CHGVAR     VAR(&FORMAT) VALUE(%SST(&USRSPCDTA 73 8))
             CHGVAR     VAR(&APIUSED) VALUE(%SST(&USRSPCDTA 81 10))
             CHGVAR     VAR(&CRTDATTIM) VALUE(%SST(&USRSPCDTA 91 13))
             CHGVAR     VAR(&INFSTS) VALUE(%SST(&USRSPCDTA 104 1))
             CHGVAR     VAR(&SIZUSRSPC) VALUE(%BIN(&USRSPCDTA 105 4))
             CHGVAR     VAR(&OFFSINPP) VALUE(%BIN(&USRSPCDTA 109 4))
             CHGVAR     VAR(&SIZINPP) VALUE(%BIN(&USRSPCDTA 113 4))
             CHGVAR     VAR(&OFFSHDR) VALUE(%BIN(&USRSPCDTA 117 4))
             CHGVAR     VAR(&SIZHDR) VALUE(%BIN(&USRSPCDTA 121 4))
             CHGVAR     VAR(&OFFSLSTDTA) VALUE(%BIN(&USRSPCDTA 125 4))
             CHGVAR     VAR(&SIZLSTDTA) VALUE(%BIN(&USRSPCDTA 129 4))
             CHGVAR     VAR(&NBRLSTE) VALUE(%BIN(&USRSPCDTA 133 4))
             CHGVAR     VAR(&SIZLSTE) VALUE(%BIN(&USRSPCDTA 137 4))
             CHGVAR     VAR(&SUBSETIND) VALUE(%SST(&USRSPCDTA 150 1))


             RMVMSG     CLEAR(*ALL)

             RETURN

 STDERR:     MOVDIAGMSG
             RSNESCMSG

             RETURN

             ENDPGM