Override

In this Mainframe Forum - You can post your queries on JCL, OS/390 JCL, MVS JCL, z/OS JCL, JES2 & JES3

Moderators: Frank Yaeger, DikDude, Moderator Group

Post Reply
Jlopez
Member
Posts: 7
Joined: Wed Apr 18, 2012 2:48 am

Override

Post by Jlopez » Thu Apr 19, 2012 2:00 am

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

NicC
Active Member
Posts: 650
Joined: Sun Jul 24, 2011 5:27 pm
Location: Down on the pig farm

Post by NicC » Thu Apr 19, 2012 12:20 pm

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=&#40;NEW,CATLG,DELETE&#41;,
//            SPACE=&#40;TRK,&#40;5,3,1&#41;&#41;,UNIT=SYSDA,
//            DCB=&#40;RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PO&#41;
//*
//STEP2   EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//*   INPUT TAPE
//SYSUT1   DD DISP=SHR,
//            DSN=TSSDN.DATA.COPY2 
//SYSUT2   DD DISP=&#40;NEW,CATLG&#41;,
//            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&#40; -
NAME&#40;TSSDN.GDBD.TEMP02&#41;-
LIMIT&#40;7&#41; NOEMPTY SCRATCH&#41;
/*
//
Regards
Nic

Jlopez
Member
Posts: 7
Joined: Wed Apr 18, 2012 2:48 am

Post by Jlopez » Thu Apr 19, 2012 7:53 pm

Nic,

Thanks, its work.

What is the function of SYSIN DD DUMMY?
What is difference between SYSIN DD * compare to SYSIN DD DUMMY ?


Previously I did not use SYSIN DD * in proc.
But I noticed you used SYSIN DD DUMMY in proc and its work.

Thank You

NicC
Active Member
Posts: 650
Joined: Sun Jul 24, 2011 5:27 pm
Location: Down on the pig farm

Post by NicC » Thu Apr 19, 2012 10:43 pm

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

DikDude
Moderator
Posts: 1001
Joined: Fri Jul 22, 2011 8:39 am
Location: usa

Post by DikDude » Thu Apr 19, 2012 11:19 pm

If you find something in the manual that is not clear, post what you found and your doubt.

Someone will be able to clarify.
Have a good one

academyindia4

Topic deleted by Admin

Post by academyindia4 » Fri Jan 15, 2016 9:13 pm

<< Content deleted By Admin >>

Post Reply

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



Other References
Mainframe Tools and others