Solution Control U-Jobs

Hi *ALL,

the following CL start, restart, hold or end U-Jobs:

PGM        PARM(&PARM)
DCL        VAR(&PARM) TYPE(*CHAR) LEN(20)
DCL        VAR(&ENVDES) TYPE(*CHAR) LEN(2)
DCL        VAR(&UJKEY) TYPE(*CHAR) LEN(10)
DCL        VAR(&REQST) TYPE(*CHAR) LEN(8)
DCL        VAR(&LDA) TYPE(*CHAR) LEN(1024)
DCL        VAR(&RTCD) TYPE(*CHAR) LEN(8)
CHGVAR     VAR(%SST(&ENVDES 1 2)) VALUE(%SST(&PARM 1 2))
CHGVAR     VAR(%SST(&UJKEY 1 10)) VALUE(%SST(&PARM 3 12))
CHGVAR     VAR(%SST(&REQST 1 8)) VALUE(%SST(&PARM 13 8))

MONMSG     MSGID(CPF0000)
STRMAPICS  ENDS(&ENVDES)
MONMSG     MSGID(CPF0000 AMZ0000)
CHGVAR     VAR(&LDA) VALUE(' ')
CHGVAR     VAR(&RTCD) VALUE(' ')
CALL       PGM(AXZLDA0R) PARM('*CURR' 00000 '*LAST' 000 +
             &LDA '*RTV' &RTCD)
CHGVAR     VAR(%SST(&LDA 204 1)) VALUE(%SST(&ENVDES 1 1))
CHGVAR     VAR(%SST(&LDA 205 1)) VALUE(%SST(&ENVDES 2 1))
CALL       PGM(AXZSR) PARM(&LDA &UJKEY &REQST)
ENDMAPICS

Sample for calling:

call cntrlujobs parm('XYAMJUC     *END')
Parameter  1-2   Environment (here XY)
           3-12  UJOB-Name (see CAS, here AMJUC)
           13-20 *START, *END, *RESTART oder *HOLD


Mit freundlichen Grüßen/Best regards

Michael J. Raber

------------------------------------
Dipl. Ing. Michael J. Raber
I.B.K. GmbH
Villar-Perosa-Straße 10
75038 Oberderdingen-Großvillars
Tel.: +49 7045 2006880
Mobil: +49 172 9072148