Monday, September 26, 2011

Endevor: Create a DDIO file from Endevor listing

The first step copies the listing of the program from the Endevor listing file to a temporary file. The second step, creates DDIO file from the temporary file.


//NDVRBAT  EXEC PGM=NDVRC1,DYNAMNBR=1500,REGION=0M,
//  PARM='C1BM3000'
//STEPLIB  DD DISP=SHR,DSN=SYS1.ENDEVOR.PROD.LOADLIB
//CONLIB   DD DISP=SHR,DSN=SYS1.ENDEVOR.PROD.CONLIB
//BSTIPT01 DD *
SET STOPRC 12 .
PRINT MEMBER 'TESTPGM'
  FROM DSNAME 'NDVR.LISTING.FILE'
 .
//APIMSGS  DD SYSOUT=*
//APIEXTR  DD SPACE=(TRK,(5,5)),UNIT=SYSDA,
//           DCB=(RECFM=VB,LRECL=2048,DSORG=PS)
//A2IMSGS  DD SYSOUT=*
//A2IEXTR  DD SPACE=(TRK,(5,5)),UNIT=SYSDA,
//           DCB=(RECFM=VB,LRECL=2048,DSORG=PS)
//BSTERR   DD SYSOUT=*           
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//C1TPDD01 DD UNIT=SYSDA,SPACE=(CYL,5),
//            DCB=(RECFM=VB,LRECL=260,BLKSIZE=6160)
//C1TPDD02 DD UNIT=SYSDA,SPACE=(CYL,5),
//            DCB=(RECFM=VB,LRECL=260,BLKSIZE=6160)
//C1MSGS1  DD SYSOUT=*
//C1MSGS2  DD DSN=&&MESSAGE,DISP=(NEW,PASS,DELETE),
//         UNIT=SYSDA,SPACE=(TRK,(5,5),RLSE),
//         DCB=(RECFM=FBA,LRECL=133,BLKSIZE=3990,DSORG=PS)
//C1PRINT  DD DSN=&&T,
//            DISP=(,PASS),
//            DCB=(RECFM=FBA,LRECL=133),SPACE=(CYL,(50,100),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYMDUMP  DD DUMMY
//SYSUDUMP DD SYSOUT=*
//*
//CBLPOSTP EXEC PGM=CWPCDRVR,REGION=0M,COND=(0,LT)
//STEPLIB  DD  DISP=SHR,
//             DSN=SYS1.CSS.LOADLIB
//CWPERRM  DD  SYSOUT=*
//CWPPRTO  DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SORTWK01 DD  SPACE=(CYL,(1000,250)),UNIT=(SYSDA,59)
//CWPWRK0  DD  SPACE=(CYL,(1000,250)),UNIT=(SYSDA,59)
//CWPWRK1  DD  SPACE=(CYL,(1000,250)),UNIT=(SYSDA,59)
//CWPWRK2  DD  SPACE=(CYL,(1000,250)),UNIT=(SYSDA,59)
//CWPWRK3  DD  SPACE=(CYL,(1000,250)),UNIT=(SYSDA,59)
//CWPWRK4  DD  SPACE=(CYL,(1000,250)),UNIT=(SYSDA,59)
//CWPWRK5  DD  SPACE=(CYL,(1000,250)),UNIT=(SYSDA,59)
//CWPLOAD  DD  DUMMY
//CWPDECK  DD  DUMMY
//CWPPRTI  DD  DISP=(OLD,PASS),DSN=&&T
//CWPDDIO  DD  DISP=SHR,
//             DSN=Your DDIO file
//CWPPRMO  DD *
COBOL(OUTPUT(PRINT,DDIO))                             
PROCESSOR(OUTPUT(NOPRINT,NODDIO),TEXT(NONE),$ASUP)    
DDIO(OUTPUT(NOXREF,NOLIST,FIND,COMPRESS))             
LANGUAGE(COBOL/MVS)                                   
//*

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.