Jobschalter werden nicht gesetzt

[edig]

Hallo,

ich habe folgendes Programm in Bezug auf die Jobschschalter
(U1-U8) getestet.
Scheinbar wird hier der Jobschalter U5 erst nach Programmende
gesetzt, denn im CL-Programm ist der U5 noch nicht an?!
Eigentlich müsst doch U5 im Progr. TEST8CL an sein, oder
wird erst nach Beendigung eines RPG-Programms eine Art CHGJOB durchgeführt, was
eigentlich RPG-Quatsch ist?!

***************** Datenanfang ********************************
D VarPGM S 20 inz('TESTLIB/TEST8CL')
D PgmCALL PR ExtPGM(VarPGM)
*
/Free
*INU5 = *ON;
CallP PgmCall();
*INLR = *ON;
/End-Free
******************Datenende **********************************

[Fuerchau]

Dies hast du korrekt erkannt !
Jobschalter und DTAARA's (UDS) werden erst bei Programmende verändert.

Allerdings sollte man auf *U-Schalter verzichten und Parameter verwenden. Wenn es denn gar nicht anders geht, dann noch die *LDA verwenden.