|
|
|
/* COPYRIGHT JÜRGEN REULE 2019-2023 */ |
|
|
|
|
|
|
|
|
PGM |
PARM(&SESSION &REMOTE &SET &X) |
|
|
|
|
|
|
|
|
DCL |
VAR(&X) TYPE(*CHAR) LEN(1) |
|
|
|
DCL |
VAR(&SET) TYPE(*CHAR) LEN(1) |
|
|
|
DCL |
VAR(&INPUTQ) TYPE(*CHAR) LEN(10) |
|
|
|
DCL |
VAR(&INPUTQLIB) TYPE(*CHAR) LEN(10) |
|
|
|
DCL |
VAR(&SCREENQ) TYPE(*CHAR) LEN(10) |
|
|
|
DCL |
VAR(&SCREENQLIB) TYPE(*CHAR) LEN(10) |
|
|
|
DCL |
VAR(&SESSION) TYPE(*CHAR) LEN(10) |
|
|
|
DCL |
VAR(&REMOTE) TYPE(*DEC) LEN(3) |
|
|
|
|
|
|
|
|
MONMSG |
MSGID(CPF0000) |
|
|
|
|
|
|
|
|
CHGVAR |
VAR(&X) VALUE('0') |
|
|
|
|
|
|
|
|
ALCOBJ |
OBJ((TN5250 *PGM *EXCLRD)) |
|
|
|
|
|
|
|
|
CHGVAR |
VAR(&INPUTQ) VALUE(%SST(&SESSION 1 9) *CAT I) |
|
|
|
CHGVAR |
VAR(&SCREENQ) VALUE(%SST(&SESSION 1 9) *CAT S) |
|
|
|
|
|
|
|
|
CHGVAR |
VAR(&INPUTQLIB) VALUE(*CURLIB) |
|
|
|
CHGVAR |
VAR(&SCREENQLIB) VALUE(*CURLIB) |
|
|
|
|
|
|
|
|
IF |
COND(&SET *EQ '0') THEN(DO) |
|
|
|
DLTDTAQ |
DTAQ(&INPUTQLIB/&INPUTQ) |
|
|
|
MONMSG |
MSGID(CPF0000) EXEC(CHGVAR VAR(&X) VALUE('1')) |
|
|
|
|
|
|
|
|
DLTDTAQ |
DTAQ(&SCREENQLIB/&SCREENQ) |
|
|
|
MONMSG |
MSGID(CPF0000) EXEC(CHGVAR VAR(&X) VALUE('1')) |
|
|
|
ENDDO |
|
|
|
|
ELSE |
CMD(DO) |
|
|
|
CRTDTAQ |
DTAQ(&INPUTQLIB/&INPUTQ) MAXLEN(64512) |
|
|
|
MONMSG |
MSGID(CPF0000) EXEC(CHGVAR VAR(&X) VALUE('1')) |
|
|
|
|
|
|
|
|
CRTDTAQ |
DTAQ(&SCREENQLIB/&SCREENQ) MAXLEN(64512) |
|
|
|
MONMSG |
MSGID(CPF0000) EXEC(CHGVAR VAR(&X) VALUE('1')) |
|
|
|
|
|
|
|
|
IF |
COND(&X *EQ '0') THEN(DO) |
|
|
|
|
|
|
|
|
SBMJOB |
CMD(TN5250S + |
|
|
|
|
SESSION(&SESSION) + |
|
|
|
|
REMOTE(&REMOTE)) + |
|
|
|
|
JOB(TN5250S) JOBQ(QCTL) + |
|
|
|
|
LOG(4 0 *NOLIST) + |
|
|
|
|
LOGCLPGM(*NO) MSGQ(*NONE) |
|
|
|
ENDDO |
|
|
|
|
ENDDO |
|
|
|
|
|
|
|
|
|
DLCOBJ |
OBJ((TN5250 *PGM *EXCLRD)) |
|
|
ENDPGM: |
ENDPGM |
|
|