/*--+------------------------------------------------------------+--*/
/*--+   PROGRAM ID : $RSTSPLF                                    +--*/
/*--+ PROGRAM NAME : CL OF RESTORE SPOOLED FILE                  +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.0 (1999/04/22)                            +--*/
/*--+------------------------------------------------------------+--*/
PGM PARM(&FILEANDLIB &MBR &OUTQANDLIB)

/*--+------------------------------------------------------------+--*/
/*  + DECLARE                                                    +  */
/*--+------------------------------------------------------------+--*/
/* COMMAND(CVTSPLF) PARAMETERS */
DCL VAR(&FILEANDLIB) TYPE(*CHAR) LEN(  20  )  /* FILE & LIBRARY     */
DCL VAR(&MBR       ) TYPE(*CHAR) LEN(  10  )  /* MEMBER             */
DCL VAR(&OUTQANDLIB) TYPE(*CHAR) LEN(  20  )  /* OUTQ & LIBRARY     */
    DCL VAR(&OUTQ      ) TYPE(*CHAR) LEN(  10  ) /* OUTQ            */
    DCL VAR(&OUTQLIB   ) TYPE(*CHAR) LEN(  10  ) /* LIBRARY         */

/* SHARED PARAMETERS */
DCL VAR(&SH_MSGDTA ) TYPE(*CHAR) LEN( 256  )  /* MESSAGE DATA       */

/*--+------------------------------------------------------------+--*/
/*  + START OF PROGRAM                                           +  */
/*--+------------------------------------------------------------+--*/
/* PREPARE PARAMETERS */
IF (%SST(&OUTQANDLIB 1 10) *EQ '*JOB') DO
    RTVJOBA OUTQ(&OUTQ      ) OUTQLIB(&OUTQLIB   )
    CHGVAR  VAR(%SST(&OUTQANDLIB  1 10)) VALUE(&OUTQ      )
    CHGVAR  VAR(%SST(&OUTQANDLIB 11 10)) VALUE(&OUTQLIB   )
ENDDO

/*--+------------------------------------------------------------+--*/
/*  + M A I N                                                    +  */
/*--+------------------------------------------------------------+--*/
/* FOR QSPPUTF */
CALL   PGM(QSPPUTF) PARM(&FILEANDLIB +
                         &OUTQANDLIB +
                         &MBR        )

    MONMSG MSGID(CPF4102) EXEC(DO)
        RCVMSG MSGQ(*PGMQ) RMV(*YES) MSGDTA(&SH_MSGDTA)
        SNDPGMMSG MSGID(CPF4102) MSGF(QCPFMSG)      +
                                 MSGDTA(&SH_MSGDTA) +
                                 MSGTYPE(*ESCAPE)
    ENDDO
    MONMSG MSGID(CPF2105) EXEC(DO)
        RCVMSG MSGQ(*PGMQ) RMV(*YES) MSGDTA(&SH_MSGDTA)
        SNDPGMMSG MSGID(CPF2105) MSGF(QCPFMSG)      +
                                 MSGDTA(&SH_MSGDTA) +
                                 MSGTYPE(*ESCAPE)
    ENDDO


RCVMSG MSGQ(*PGMQ) RMV(*YES) MSGDTA(&SH_MSGDTA)
SNDPGMMSG MSGID(CPI8052) MSGF(QCPFMSG)      +
                         MSGDTA(&SH_MSGDTA) +
                         MSGTYPE(*COMP  )

/*--+------------------------------------------------------------+--*/
/*  + END OF PROGRAM                                             +  */
/*--+------------------------------------------------------------+--*/
#_EXIT_:
ENDPGM