JCL about GDG
1. 创建一个GDG，包括base和model:
//STEP1 EXEC PGM=IDCAMS
//GDGMODEL DD DSN=ST023.TEST.GDGMDL,
DISP=(NEW,CATLG,DELETE), SPACE=(TRK,(0)),
DCB=(RECFM=FB,LRECL=80,BLKSIZE=4000)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG (NAME(ST023.TEST.GDG) LIMIT(100) –THIS IS GDG BASE!–
/*
2. 在GDG中创建DS：
//STEP2 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=ST023.TEST.ORIGINAL,DISP=SHR
//SYSUT1 DD DSN=ST023.TEST.GDG(+1),
DISP=(NEW,CATLG,DELETE), SPACE=(TRK,(5,5)),
DCB=ST023.TEST.GDGMDL
//SYSPRINT DD SYSOUT=*
3. 删除GDG，删除其中的DS先：
//STEP3 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE ST023.TEST.GDG.*
DELETE ST023.TEST.GDGMDL
/*
//STEP4 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE ST023.TEST.GDG GDG
/*
Comments
Tell me what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!
联络订阅
