Skip to content

Instantly share code, notes, and snippets.

@kwdowicz
Created January 26, 2024 18:03
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kwdowicz/4a0bd8e255fa633cb887b401d6c38b69 to your computer and use it in GitHub Desktop.
Save kwdowicz/4a0bd8e255fa633cb887b401d6c38b69 to your computer and use it in GitHub Desktop.
//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