Suryyogi
New User
Joined: 17 Jun 2006 Posts: 27
|
|
|
|
Code: |
//CBLCNVRT JOB ,
// CLASS=D,MSGCLASS=X, MSGLEVEL=(1,1),REGION=4M,
// NOTIFY=&SYSUID
//*******************************************************************
//* DELETE INFO FILE
//*******************************************************************
//STEPDEL EXEC PGM=IEFBR14,COND=(0,NE)
//DELFILE DD DSN=MY.GLOSSARY.TABLE,
// DISP=(MOD,DELETE,DELETE),
// UNIT=(SYSDA,5),
// SPACE=(TRK,0)
//DELFILE1 DD DSN=MY.CBLCNVRT.OUTPUT,
// DISP=(MOD,DELETE,DELETE),
// UNIT=(SYSDA,5),
// SPACE=(TRK,0)
//STEP1 EXEC PGM=IGYCRCTL,
// PARM='MAP,SOURCE,NOOBJECT,NODECK'
//STEPLIB DD DSN=SYS1.COB2COMP,DISP=SHR
//SYSIN DD DSN=MY.SRCLIB.GEGDC(JPGDCVER),DISP=SHR
//SYSLIB DD DSN=MY.COPYLIB,DISP=SHR
// DD DSN=MY.COPYLIB.GEGDC,DISP=SHR
// DD DSN=MY.COPYLIB,DISP=SHR
//SYSLIN DD DSN=&&LOADSET,
// DCB=(BLKSIZE=3120,LRECL=80,RECFM=FB),
// DISP=(,PASS),
// SPACE=(CYL,(2,2),RLSE),
// UNIT=SCRATCH
//SYSPRINT DD DSN=MY.GLOSSARY.TABLE,DISP=(NEW,CATLG),
// DCB=(LRECL=133,RECFM=F),SPACE=(CYL,(30,30),RLSE),
// UNIT=SYSDA
//SYSPUNCH DD DUMMY,DCB=BLKSIZE=80
//SYSUT1 DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH
//SYSUT1 DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH
//SYSUT2 DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH
//SYSUT3 DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH
//SYSUT4 DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH
//SYSUT5 DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH
//SYSUT6 DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH
//SYSUT7 DD SPACE=(CYL,(1,5),RLSE),UNIT=SCRATCH
//*
//*---< >-------------------------------------------
//STEP2 EXEC PGM=EZTPA00 COND=EVEN
//SYSPRINT DD SYSOUT=*
//GLOSTAB DD DSN=MY.GLOSSARY.TABLE,DISP=SHR
//PANDD DD DSN=MY.DHC.MACLIB,DISP=SHR
//EASYPGM DD DSN=MY.CBLCNVRT.OUTPUT,DISP=(NEW,CATLG),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=3200),
// UNIT=SYSDA,SPACE=(CYL,(30,30),RLSE)
//SYSIN DD *
%CBLCNVRT GLOSTAB |
This is what I found mostly used. But I am not sure how it works. Where is the cobol copybook as i/p ? |
|