Here is my PROC -
//NEWPROC PROC
//DELETE1 EXEC PGM=IEFBR14
//DD1 DD DSN=&INDSN,DISP=(OLD,DELETE,DELETE)
//DD2 DD DSN=&SYSUID..OUTDSN,DISP=(OLD,DELETE,DELETE)
//CREATE1 EXEC PGM=IEFBR14
//DD3 DD DSN=&INDSN,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(15,15)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PS)
//FILL1 EXEC PGM=IEBDG
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SEQIN DD DSN=&SYSUID..JCL.CNTL(TEST),DISP=SHR
//SEQOUT DD DSN=&INDSN,DISP=OLD
//SYSIN DD *
DSD OUTPUT=(SEQOUT),INPUT=(SEQIN)
FD NAME=FILED1,LENGTH=30,FORMAT=AL,ACTION=RP,STARTLOC=1
CREATE QUANTITY=100,INPUT=SEQIN,NAME=FILED1
END
/*
//MYSORT1 EXEC PGM=SORT
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5,1))
//SYSPRINT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=&INDSN
//SORTOUT DD SYSOUT=*
and the JCL is
//JOB1 JOB NOTIFY=&SYSUID
//NEW1 JCLLIB ORDER=&SYSUID..PROCLIB
//STEP1 EXEC NEWPROC,INDSN=&SYSUID..INDSN
//MYSORT1.SORTOUT DD DSN=&SYSUID..OUTDSN,
// DISP=(MOD,CATLG,DELETE),
// DCB=&SYSUID..INDSN,UNIT=SYSDA,
// SPACE=(TRK,(15,15))
//SYSIN DD DISP=SHR,DSN=&SYSUID..PROCLIB(SORTCNTL)
//SYSPRINT DD SYSOUT=*
The file is getting deleted and created and even insertion is going well but the MYSORT1 step in proc is giving MAXCC 20
HELP PLEASE!!
JCL calling PROC
Moderators: Frank Yaeger, DikDude, Moderator Group
Re: JCL calling PROC
Hi,
Use Intertest/Expeditor for debugging
Use Intertest/Expeditor for debugging
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page