2.10.3 - Exemplo 3

Abaixo temos um exemplo de como algo muito simples (como o exemplo acima) pode ficar extremamente complicado devido ao copia e cola sem noção nenhuma...

//JOB00001 JOB 'EXECUTA PROGRAMA DE TESTES COBOL COM PARAMETRO', 
// USER.&SYSUID,REGION=4M,MSGCLASS=R,ADDRSPC=VIRT, 
// CLASS=A,NOTIFY=&SYSUID,TIME=NOLIMIT,USER=BUGA, 
// PASSWORD=PSW1,COND=(12,LE),MSGLEVEL=(1,1) 
//*** ,RESTART=EXECUTA 
//-------------------------------------------------------------------- 
//DESTINO OUTPUT DEFAULT=YES,DEST=LOCAL,FORMS=BUGAFORM, 
// CHARS=(AOA,AOB),COPIES=1 
//-------------------------------------------------------------------- 
//PROCS JCLLIB ORDER=(USER.BUGA.PROCS,USER.BUGA.TESTES) 
//-------------------------------------------------------------------- 
//JOBLIB DD DSN=USER.BUGA.CARGAS,DISP=SHR 
// DD DSN=USER.BUGA.TESTES,DISP=SHR 
/JOBPARM SYSAFF=IMAA 
//--------------------------------------------------------------------* 
//SCRATCH EXEC PGM=IEFBR14 
//DELETA DD DSN=USER.BUGA.SEQUENCI.A0000001, 
// DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(0,0)) 
//-------------------------------------------------------------------- 
//EXECUTA EXEC PGM=HELLO000, 
// PARM='123456789Z', 
// ACCT='USER.BUGA', 
// ADDRSPC=, 
// DPRTY=, 
// PERFORM=01, 
// RD=NC 
//ENTRADA DD DSN=USER.BUGA.SEQUENCI.A0000002,DISP=SHR 
//ENTRADA DD ,DLM='FF'
123456 FF 
//SAIDA DD DSN=USER.BUGA.SEQUENCI.A0000001, 
// DISP=(,CATLG),LRECL=255,DSORG=PS,RECFM=FB, 
// AVGREC=K,SPACE=(255,(5,1),RLSE) 
//SYSABEND DD DSN=NULLFILE 
//SYSUDUMP DD DUMMY 
//SYSOUT DD SYSOUT=,OUTLIM=999999,FREE=CLOSE 
//FORM1 OUTPUT CLASS=R,DEFAULT=NO,DEST=LOCAL 
//--------------------------------------------------------------------* 
// IF (EXECUTA.RC = 0) THEN 
//FIM#OK EXEC PGM=IEFBR14 
// ELSE 
//FIM#NOK EXEC PGM=IEFBR14 
// ENDIF 
//-------------------------------------------------------------------- 
/PRIORITY 1 
/MESSAGE PROGRAMA HELLO000 EXECUTADO... VERIFIQUE SYSOUT ! 
// COMMAND 'SEND''PROGRAMA EXECUTADO'',USER=BUGA' 
//-------------------------------------------------------------------- /*

Esse job será analisado em detalhes no proximo topico.