Observe um exemplo de uma procedure JCL abaixo:
//MYPROC PROC
//MYSORT EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=&SORTDSN
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//MYSORT EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=&SORTDSN
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
Acrescentam-se os cartões em negrito:
//MYJOB JOB 1
//*---------------------------------*
//MYPROC PROC
//MYSORT EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=&SORTDSN
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//*---------------------------------*
//STEP1 EXEC
YPROC,SORTDSN=ZPROF.AREA.CODES
//SYSIN DD *
SORT FIELDS=(1,3,CH,A)
//*---------------------------------*
//MYPROC PROC
//MYSORT EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=&SORTDSN
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//*---------------------------------*
//STEP1 EXEC
YPROC,SORTDSN=ZPROF.AREA.CODES
//SYSIN DD *
SORT FIELDS=(1,3,CH,A)
Esses cartões permitem a execução da procedure JCL. Eles são conhecidos como:
Provas
Questão presente nas seguintes provas
Analista de Produção Júnior - Administração
50 Questões