Jobs aus Scheduler

[Pikachu]

Probiers mal so:

PGM                                                       
DCL        VAR(&RCV)     TYPE(*CHAR) LEN(150)             
DCL        VAR(&RCVLEN)  TYPE(*CHAR) LEN(4)               
DCL        VAR(&SBMNAME) TYPE(*CHAR) LEN(10)              
                                                          
CHGVAR     VAR(%BIN(&RCVLEN)) VALUE(150)                  
CALL       PGM(QUSRJOBI) PARM(&RCV &RCVLEN JOBI0300 * ' ')
CHGVAR     VAR(&SBMNAME) VALUE(%SST(&RCV 117 10))         
                                                          
ENDPGM