CL Program SETJOBUSER
From LANSA
CL Program SETJOBUSER
PGM PARM(&JOBUSER)
DCL &JOBUSER *CHAR 10
RTVJOBA USER(&JOBUSER)
ENDPGM
PGM PARM(&JOBUSER)
DCL &JOBUSER *CHAR 10
RTVJOBA USER(&JOBUSER)
ENDPGM
From LANSA