Hercules TK5 - Emulador de Mainframe

JOB para ciração e catalogação de GDG.

//JCRIAGDG JOB (001),'CRIAR ARQ VAZIO',CLASS=A,MSGCLASS=X, 
//            MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID     
//*                                                         
//STEP1    EXEC PGM=IDCAMS                                 
//SYSPRINT DD SYSOUT=*                                     
//SYSIN    DD  *                                           
  DEFINE GDG(NAME(CDICAS.COBOL1.GDG.REL0001A) -             
  LIMIT(5) -                                               
  NOEMPTY -                                                 
  SCRATCH)                                                 
/*                                                         
//*                                                         
//STEP2    EXEC PGM=IEFBR14                                 
//DD1      DD  DSN=CDICAS.COBOL1.GDG.REL0001A,             
//            DISP=(NEW,CATLG,DELETE),                     
//            UNIT=SYSDA,                                 
//            SPACE=(TRK,(10,1)),                         
//            DCB=(RECFM=FB,LRECL=100,BLKSIZE=32,DSORG=PS) 
//*


PROBLEMA RESOLVIDO!

DESCRITO NO PROXIMO POST.

//REL0004A DD DSN=CDICAS.COBOL1.GDG.REL0001A(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(100,10)),UNIT=SYSDA,
// DCB=CDICAS.COBOL.GDG.REL0001A

o arquivo gerado no STEP1 é o DSNAME do GDG e será gerado novas versões.

o arquivo gerado no STEP2 pertence ao DCB da nova GDG.