Hello,
Almost similar problem I had asked you earlier.
http://www.mainframegurukul.com/ibmmain ... php?t=6433
But this is little different.
I added one more step in the logic but its does not work.
//EXTPROC PROC
//STEP1 EXEC PGM=IEFBR14
//SQADB512 DD DSN=&DSNAME,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(5,3,1)),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PO)
//STEP2 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//STEP3 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=*
// PEND
//FINAL EXEC EXTPROC,DSNAME=TSSDN.DEMO.TEMP02
//STEP2.SYSIN DD *
//SYSUT1 DD DISP=SHR,DSN=TSSDN.DATA.COPY2 <= INPUT TAPE
//SYSUT2 DD DISP=(NEW,CATLG),UNIT=TAPE,DSN=TSSDN.DATA.COPY3
//STEP3.SYSIN DD *
DEFINE GDG( -
NAME(TSSDN.GDBD.TEMP02)-
LIMIT(7) NOEMPTY SCRATCH)
/*
//
IEF453I T3STEP - JOB FAILED - JCL ERROR - TI
Thanks
STMT NO. MESSAGE
3 IEFC001I PROCEDURE EXTPROC WAS EXPANDED USING INSTREAM PROCEDURE DEFINNITION
Override
Moderators: Frank Yaeger, DikDude, Moderator Group
It would help if you showed the error message(s). The only message you show is an information message (ends in I) which tells you where the procedure was read from (in-stream in this case but for a cataloged procedure iy=t would be the name of the library). I have re-coded your JCL without making any amendments so ny error will still be there. ~I have also 'prettied' it up to be more readable and used the code tags to make it green on black with a fixed space font. The code button is available when you use the the preview button. Seect the text that is to be 'coded' and click on the code button.
Code: Select all
//EXTPROC PROC DSNAME=
//STEP1 EXEC PGM=IEFBR14
//SQADB512 DD DSN=&DSNAME,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(5,3,1)),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PO)
//*
//STEP2 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//* INPUT TAPE
//SYSUT1 DD DISP=SHR,
// DSN=TSSDN.DATA.COPY2
//SYSUT2 DD DISP=(NEW,CATLG),
// UNIT=TAPE,DSN=TSSDN.DATA.COPY3
//SYSIN DD DUMMY
//*
//STEP3 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
// PEND
//*
//FINAL EXEC EXTPROC,DSNAME=TSSDN.DEMO.TEMP02
//STEP2.SYSIN DD *
//STEP3.SYSIN DD *
DEFINE GDG( -
NAME(TSSDN.GDBD.TEMP02)-
LIMIT(7) NOEMPTY SCRATCH)
/*
//
Regards
Nic
Nic
Why not ask your co-worker/co-student dn2012 or read the manual. The manual is there to provide answers to your questions - nd if you read a bit every day it will stop you having questions. Please note that forums are not manual reading services and the IBM manuals are readily available on-line.
Regards
Nic
Nic
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