Re: Solution Control U-Jobs -- MAPICS-L

H Michael,

Thanks for this. I tried the code but came up with an error:

Message ID . . . . . . :   RPG0202       Severity . . . . . . . :   99        
Message type . . . . . :   Inquiry                                            
Date sent  . . . . . . :   31/03/06      Time sent  . . . . . . :   10:31:52  
                                                                              
Message . . . . :   The call to program AXZPSP ended in error (C G S D F).    
Cause . . . . . :   The RPG program AXZSR in library AMALIB6 at statement 1787
  called program AXZPSP, which ended in error or was not found.               
Recovery  . . . :   Enter C to cancel, G to continue processing at *GETIN, S  
  to obtain a system dump, or D to obtain an RPG formatted dump.              
Possible choices for replying to message . . . . . . . . . . . . . . . :      

The JOBLOG said this:

Object UMZMAP3R in library *LIBL not found.                              
Value 'A X0385   ' for parameter MSGID not a valid name.                 
Error found on SNDPGMMSG command.                                        
S AX-9999 APPLICATION FUNCTION CHECK                                     
Function check. AXX9999 unmonitored by AXZSR at statement *N, instruction
  X'0560'.                                                               
The call to program AXZPSP ended in error (C G S D F).                   
The call to program AXZPSP ended in error (C G S D F).                   

Any ideas where I have gone wrong? (I am not a programmer!)

Kind regards,


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.