Change de sous système le job en cours

BoTTom | 
/* COMPILER LA COMMANDE ALLOW(*IPGM *INTERACT *EXEC *IREXX)      */
/*  (C A D BATCH INTERDIT)                                       */
/*****************************************************************/
             CMD        PROMPT('Chg le job de sous système')
             PARM       KWD(SBS) TYPE(*NAME) MIN(1) PROMPT('Sous +
                          système')
             PARM       KWD(JOBQ) TYPE(*NAME) DFT(*SBS) +
                          SPCVAL((*SBS)) PROMPT('File d''attente')




©AF400