Created
January 26, 2024 18:03
-
-
Save kwdowicz/4a0bd8e255fa633cb887b401d6c38b69 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
//RW1 JOB ,MSGLEVEL=(2,1) | |
//EXP EXPORT SYMLIST=* | |
//SETNAME SET MEM=RW1 | |
//***************************************************/ | |
//DELETE EXEC PGM=IKJEFT01 | |
//SYSTSPRT DD SYSOUT=* | |
//SYSTSIN DD * | |
DELETE (OUT) | |
/* | |
//***************************************************/ | |
//CREATE EXEC PGM=IEFBR14 | |
//DDNAME DD DSN=&SYSUID..OUT, | |
// DISP=(NEW,CATLG),LRECL=80,RECFM=FB,DSORG=PO, | |
// SPACE=(TRK,(100,10),RLSE), | |
// BLKSIZE=(32720),DSNTYPE=LIBRARY | |
//***************************************************/ | |
//COBRUN EXEC IGYWCL | |
//COBOL.SYSIN DD DSN=&SYSUID..CBL(&MEM),DISP=SHR | |
//LKED.SYSLMOD DD DSN=&SYSUID..LOAD(&MEM),DISP=SHR | |
//***************************************************/ | |
//RUN EXEC PGM=&MEM | |
//STEPLIB DD DSN=&SYSUID..LOAD,DISP=SHR | |
//INPUTF DD DSN=&SYSUID..INPUT(INPUTF),DISP=SHR | |
//OUTPUTF DD DSN=&SYSUID..OUT(OUTPUTF),DISP=OLD | |
//SYSOUT DD SYSOUT=*,OUTLIM=15000 | |
//CEEDUMP DD DUMMY | |
//SYSUDUMP DD DUMMY | |
//***************************************************/ |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment