Re: Solution Control U-Jobs

Michael,

Forget the earlier question, think I needed to add an M in position 18 of the 
LDA. Seems OK now.

David. 

-----Original Message-----
From: mapics-l-bounces@xxxxxxxxxxxx [mailto:mapics-l-bounces@xxxxxxxxxxxx] On 
Behalf Of Michael J. Raber
Sent: 30 March 2006 19:24
To: mapics-l@xxxxxxxxxxxx
Subject: [MAPICS-L] 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))
ADDLIBLE   LIB(AMALIBx)    <== needed,if STRMAPICS not available in QGPL 

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

_______________________________________________
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post a 
message email: MAPICS-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list 
options,
visit: http://lists.midrange.com/mailman/listinfo/mapics-l
or email: MAPICS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at 
http://archive.midrange.com/mapics-l.