PGM PARM(&JOBQ) DCL &JOBQ *CHAR 10 SBMJOB CMD(CPYDSPB) JOB(CPYDSP) JOBD(QCTL) + JOBQ(&JOBQ) INLLIBL(*CURRENT) ENDPGM