IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Overriding SYSOUT of IKJEFT01 to a dataset


IBM Mainframe Forums -> IBM Tools
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
hiravibk
Warnings : 1

Active User


Joined: 14 Dec 2008
Posts: 107
Location: India

PostPosted: Sun Apr 07, 2013 5:19 am
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Sun Apr 07, 2013 11:17 am
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: 107
Location: India

PostPosted: Mon Apr 08, 2013 4:54 am
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
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: 107
Location: India

PostPosted: Mon Apr 08, 2013 6:38 am
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Mon Apr 08, 2013 12:58 pm
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

Superior Member


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

PostPosted: Mon Apr 08, 2013 4:10 pm
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: 107
Location: India

PostPosted: Mon Apr 08, 2013 10:03 pm
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

Superior Member


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

PostPosted: Mon Apr 08, 2013 11:30 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IBM Tools

 


Similar Topics
Topic Forum Replies
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Allocated cylinders of a dataset DB2 12
No new posts Sort First/last record of a subset th... DFSORT/ICETOOL 7
No new posts Reading dataset in Python - New Line ... All Other Mainframe Topics 22
Search our Forums:

Back to Top