CL Program SETJOBUSER

LANSA

CL Program SETJOBUSER
PGM PARM(&JOBUSER)

DCL &JOBUSER *CHAR 10
RTVJOBA USER(&JOBUSER)

ENDPGM