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