PGM        PARM(&SBSNAM &ACTJOB)
             DCL        VAR(&INOUT) TYPE(*CHAR) LEN(100)
             DCL        VAR(&DEC8) TYPE(*DEC) LEN(8 0) VALUE(100)
             DCL        VAR(&BIN4) TYPE(*CHAR) LEN(4)
             DCL        VAR(&SBS) TYPE(*CHAR) LEN(20)
             DCL        VAR(&SBSNAM) TYPE(*CHAR) LEN(10)
             DCL        VAR(&ACT) TYPE(*CHAR) LEN(4)
             DCL        VAR(&ACTJOB) TYPE(*DEC) LEN(8 0)
             DCL        VAR(&CHAR) TYPE(*CHAR) LEN(8)
             CHGVAR     VAR(%BINARY(&BIN4)) VALUE(&DEC8)
             CHGVAR     VAR(&SBS) VALUE(&SBSNAM *CAT '*LIBL     ')
 REPEAT:     CALL       PGM(QWDRSBSD) PARM(&INOUT &BIN4 SBSI0100 &SBS 0)
             MONMSG     MSGID(CPF1605 CPF1606) EXEC(DO)
               DLYJOB     DLY(30)
               GOTO REPEAT
             ENDDO
             CHGVAR     VAR(&ACT) VALUE(%SST(&INOUT 73 4))
             CHGVAR     VAR(&ACTJOB) VALUE(%BINARY(&ACT))
             CHGVAR     VAR(&CHAR) VALUE(&ACTJOB)
             SNDPGMMSG  MSG('Trabajos activos en ' *CAT &SBSNAM +
                          *TCAT ': ' *CAT &CHAR)
             RETURN
             ENDPGM