JCL calling PROC
Posted: Sun Jul 22, 2018 3:26 pm
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!!
//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!!