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)                                   

//*