Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Overriding SYSOUT of IKJEFT01 to a dataset

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
View previous topic :: :: View next topic  
Author Message
hiravibk
Warnings : 1

Active User


Joined: 14 Dec 2008
Posts: 103
Location: India

PostPosted: Sun Apr 07, 2013 5:19 am    Post subject: Overriding SYSOUT of IKJEFT01 to a dataset
Reply with quote

Hi,

I have a job which executes a DB2 program say PROG1 using IKJEFT01 in STEP1. The SYSOUT is routed to xporter as below:

Code:
//SYSOUT   DD SYSOUT=(5,PROG1),
//            DEST=XP2I,
//            HOLD=NO


But i want the SYSOUT to be routed to a dataset instead. When i did an override and submit the job, the job would start executing and using the CPU, but it just would be there doing nothing. It was not waiting for a dataset or for the operator to release. It would just be there. But it would run fine if i dont do an SYSOUT override.


The overridden dataset has LRECL of 133. I tried giving RECFM of overridden dataset as FB,FBA,VBA but still had the same issue. I removed the HOLD parameter itself from STEP1 and the DEST parameter too, but still faced the same issue. Any help is very much appreciated. Thank you
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Sun Apr 07, 2013 11:17 am    Post subject: Reply to: Overriding SYSOUT of IKJEFT01 to a dataset
Reply with quote

what You posted is not enough to provide any help!
and... how was the JOB terminated ?

You should have, at least, posted the JCL used
and the relevant part of the output.
Back to top
View user's profile Send private message
hiravibk
Warnings : 1

Active User


Joined: 14 Dec 2008
Posts: 103
Location: India

PostPosted: Mon Apr 08, 2013 4:54 am    Post subject: Reply to: Overriding SYSOUT of IKJEFT01 to a dataset
Reply with quote

Enrico,

The job would just be there with the below message in SYSTSPRT:

Code:
READY                                     
   DSN SYSTEM(DB25)                       
DSN                                       
   RUN PROGRAM(AECBVOLX)     PLAN(PAEBDEV2)


I had to cancel the job after waiting for a long time. Below is the job:

Code:
//TAE2XM61 JOB (,0024),'MONTHLY RPT',CLASS=E,MSGCLASS=A,NOTIFY=&SYSUID
//*
/*ROUTE XEQ TESTDB2
//*
//S01      EXEC PGM=IKJEFT01,                             
//            DYNAMNBR=100                                 
//SYSOUT   DD SYSOUT=(5,AE2XM61),
//            DEST=XP2I,
//            HOLD=NO
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=D
//SYNC     DD DSN=TAE2.SXMTRN.VOL.EXTR.FILE(+1),
//            DISP=(,CATLG,DELETE),
//            SPACE=(CYL,(50,10),RLSE),                   
//            UNIT=SYSDA                                   
//SYSTSIN  DD *             
   DSN SYSTEM(DB25)         
   RUN PROGRAM(AECBVOLX)  -
   PLAN(PAEBDEV2)           
   END                     
/*
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Mon Apr 08, 2013 5:57 am    Post subject: Re: Reply to: Overriding SYSOUT of IKJEFT01 to a dataset
Reply with quote

hiravibk wrote:
Enrico,

The job would just be there with the below message in SYSTSPRT:

Code:
READY                                     
   DSN SYSTEM(DB25)                       
DSN                                       
   RUN PROGRAM(AECBVOLX)     PLAN(PAEBDEV2)


I had to cancel the job after waiting for a long time. Below is the job:

Code:
//TAE2XM61 JOB (,0024),'MONTHLY RPT',CLASS=E,MSGCLASS=A,NOTIFY=&SYSUID
//*
/*ROUTE XEQ TESTDB2
//*
//S01      EXEC PGM=IKJEFT01,                             
//            DYNAMNBR=100                                 
//SYSOUT   DD SYSOUT=(5,AE2XM61),
//            DEST=XP2I,
//            HOLD=NO
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=D
//SYNC     DD DSN=TAE2.SXMTRN.VOL.EXTR.FILE(+1),
//            DISP=(,CATLG,DELETE),
//            SPACE=(CYL,(50,10),RLSE),                   
//            UNIT=SYSDA                                   
//SYSTSIN  DD *             
   DSN SYSTEM(DB25)         
   RUN PROGRAM(AECBVOLX)  -
   PLAN(PAEBDEV2)           
   END                     
/*


I may be missing something but I don't see where you have done anything with sysout!!
Back to top
View user's profile Send private message
hiravibk
Warnings : 1

Active User


Joined: 14 Dec 2008
Posts: 103
Location: India

PostPosted: Mon Apr 08, 2013 6:38 am    Post subject: Re: Reply to: Overriding SYSOUT of IKJEFT01 to a dataset
Reply with quote

Thanks Craq!!

I replaced the SYSOUT statement with the below SYSOUT:


Code:
//SYSOUT DD DSN=TAE2.REPORT.AECBVOLX.FILE.DT0405,
//            DISP=(,CATLG,DELETE),                 
//            SPACE=(CYL,(50,10),RLSE),             
//            UNIT=SYSDA,                           
//            RECFM=FB,LRECL=133                     
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Mon Apr 08, 2013 12:58 pm    Post subject: Reply to: Overriding SYSOUT of IKJEFT01 to a dataset
Reply with quote

while Your job is running/hanging, from TSO enter
TSO ISRDDN ENQ
and follow the instructions

if You are lucky You might find what <holds> Your JOB
so that You can take the appropriate action
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Mon Apr 08, 2013 4:10 pm    Post subject:
Reply with quote

At the face value of what you've posted so far, all looks fine. So possibly, you can "compare" the JESMSGLG and/or JESYSMSG of both the Jobs - one which executes and the other which does not.

Second, you can try using DISP=(,CATLG,CATLG), for the 'SYSOUT-file', and try with TIME=2 (some small value after which Job abends with a Time-abend) in Job card. Check what is there in the SYSOUT dataset.

Okay, all this is to get you going - none of them is a solution.
Back to top
View user's profile Send private message
hiravibk
Warnings : 1

Active User


Joined: 14 Dec 2008
Posts: 103
Location: India

PostPosted: Mon Apr 08, 2013 10:03 pm    Post subject: Reply to: Overriding SYSOUT of IKJEFT01 to a dataset
Reply with quote

Thank you for your time guys. It is working fine now.

The problem was, i noticed that this step is writing huge data to SYSOUT. And since i was routing SYSOUT to a dataset, the job was writing it to the dataset and there was obviously no messages in the spool indicating that the job was writing the output. But i didnt override, i could see the SYSOUT while the job was running!

I just submitted the job and left it overnight and gave it its time and it was fine. So, actually there was no problem at all! My bad! Thanks again
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Mon Apr 08, 2013 11:30 pm    Post subject:
Reply with quote

All is well, that ends well!

sterb050.gif.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts FTP - JCL failed while passing FTP co... Suneetha1612 JCL & VSAM 12 Wed Nov 16, 2016 7:33 pm
No new posts To trim spaces in a pipe delimited da... Nish84 COBOL Programming 16 Mon Oct 10, 2016 1:54 pm
No new posts Allocate dataset withour BLKSIZE Susanta CLIST & REXX 2 Thu Sep 22, 2016 11:51 am
No new posts "DFSRRC00 vs IKJEFT01" for ... arunsoods All Other Mainframe Topics 5 Fri Aug 12, 2016 9:54 pm
No new posts dataset copy question - REPRO or some... atulxp TSO/ISPF 2 Wed Aug 03, 2016 10:56 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us