chuleta babilio

//TABLA01J JOB  NOTIFY=&SYSUID
//JOBLIB   DD   DSN=IBMUSER.COBOL.LOAD,DISP=SHR
//*******************************************************
//BORRAR   EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD *
  DELETE JMG.TABLA.ALU
  SET MAXCC=0
//*******************************************************
//TABLA01C EXEC PGM=TABALUMC
//ENTRADA1 DD   DSN=JMG.ALUMNOS,DISP=SHR
//SALIDA1  DD   DSN=JMG.TABLA.ALU,RECFM=FB,
//         SPACE=(TRK,(1,1)),DISP=(NEW,CATLG),LRECL=126,BLKSIZE=0