Page 1 of 1

Sening output of IKJEFT01 to a dataset

PostPosted: Wed Jul 07, 2010 2:34 am
by arshadhrashid
Hello All,
I checked the utility IKJEFT01 in this forum but could not find the answer so I am submitting my question.

Is there a way I can send the sysout of IKJEFT01 utility to a dataset?
I have the following JCL but it doesnot send the output to my named dataset

Any help would be appreciated.

//STEP01  EXEC PGM=IKJEFT01
//STEPLIB DD DSN=DB2.KDB.V9R1M0.SDSNLOAD,DISP=SHR
//        DD DSN=DB2.KDB.V9R1M0.RUNLIB.LOAD,DISP=SHR
//SYSTSPRT   DD DSN=MYNAME.NEW,DISP=MOD  <<------- This dataset alreday exists.
//SYSTSIN    DD *
DSN SYSTEM(MYS)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP91)
//*
//SYSOUT DD DSN=MYNAME.NEW,DISP=MOD
//SYSPRINT DD SYSOUT=*
//SYSDUMP  DD SYSOUT=*
//SYSIN  DD *
SELECT SUBSTR(NAME,1,9) DATABASE,SUBSTR(GRANTOR,1,8) GRANTOR, .........

Re: Sening output of IKJEFT01 to a dataset

PostPosted: Wed Jul 07, 2010 4:50 am
by dick scherrer
Hello,

Where does the output go?

In SDSF Place a ? to the left of the job name and determine which sysout has the info you are looking for.

I'm unable to connect to a mainframe just now so i can't run a test here.

Re: Sening output of IKJEFT01 to a dataset

PostPosted: Wed Jul 07, 2010 6:28 am
by steve-myers
TSO is kind of picky about the DCB parameters of the SYSTSPRT data set; it won't play if they conflict with what it wants. Perhaps this is the problem.

Re: Sening output of IKJEFT01 to a dataset

PostPosted: Wed Jul 07, 2010 10:17 pm
by arshadhrashid
Thanks for trying to help me.
Here is the info you requested. Following is JES2 info.
NP  ,DDNAME  ,StepName,ProcStep,DSID,Owner   ,C,Dest              ,Rec-Cnt,Page
     JESMSGLG JES2                2 AR62199 ,X,LOCAL                 16
     JESJCL       JES2                3 AR62199 ,X,LOCAL                 13
     JESYSMSG  JES2                4 AR62199 ,X,LOCAL                 29
     SYSTSPRT   STEP01           103 AR62199 ,X,LOCAL                 6
 ?   SYSPRINT   STEP01           104 AR62199 ,X,LOCAL                37


The last one SYSPRINT contains the result of my query.

The dataset MYNAME.NEW remains blank and here are its attributes.

Organization . . . :,PS
Record format . . . :,FB
Record length . . . :,133
Block size . . . . :,133
1st extent cylinders:,2
Secondary cylinders :,10

Re: Sening output of IKJEFT01 to a dataset

PostPosted: Wed Jul 07, 2010 11:21 pm
by dick scherrer
Hello,

The last one SYSPRINT contains the result of my query.

The dataset MYNAME.NEW remains blank and here are its attributes.
Which output do you want in the dataset - SYSTSPRT or SYSPRINT?

These 2 statements allow me to place either output in a dataset.
//SYSTSPRT DD DSN=MYQUAL.WHATEVE2,DISP=(,CATLG,DELETE),
//            DATACLAS=DEFAULT,SPACE=(CYL,(1,50),RLSE)     

//SYSPRINT DD DSN=MQUAL.WHATEVE2,DISP=(,CATLG,DELETE),
//            DATACLAS=DEFAULT,SPACE=(CYL,(1,50),RLSE)   


The jcl you posted does not appear to be from the same job as you displayed in the spool. . .

Re: Sening output of IKJEFT01 to a dataset

PostPosted: Thu Jul 08, 2010 4:39 am
by arshadhrashid
I used DD with both SYSTSPRINT and SYSPRINT as I was not sure which one will have the output.
I tried with assigning DD to one of them and with both of them , nothing worked.

The JCL I posted is for the same job whose output I displayed.

Thanks.

Re: Sening output of IKJEFT01 to a dataset

PostPosted: Thu Jul 08, 2010 6:39 am
by dick scherrer
Hello,

The JCL I posted is for the same job whose output I displayed.
If this is so, i'm not sure how/why there is an SYSTSPRT sysout. . . :?

Nothing is in the dataset because nothing was written to SYSOUT?

Change the dsn for each dd and use dd statements like i used and run an experiment.

Re: Sening output of IKJEFT01 to a dataset

PostPosted: Thu Jul 08, 2010 10:39 am
by NicC
Dick wrote...
'm not sure how/why there is an SYSTSPRT sysout


Arshadhrashid wrote previously...
The dataset MYNAME.NEW remains blank


My observation...

SYSPRINT STEP01 104 AR62199 ,X,LOCAL 37

The dataset MYNAME.NEW remains blank and here are its attributes.

Organization . . . :,PS
Record format . . . :,FB
Record length . . . :,133
Block size . . . . :,133
1st extent cylinders:,2
Secondary cylinders :,10


1) RECFM should be FBA
2) BLKSIZE should be a multiple of 133, or 0. (Actually, I believe SYSPRINT LRECL is 121 - it is for PL/1)
3) you only generate 37 lines of output so you only need 1 track of dasd so why sepcify 30 + 150?

Re: Sening output of IKJEFT01 to a dataset

PostPosted: Thu Jul 08, 2010 11:28 pm
by dick scherrer
Hello,

The recfm is probably not needed - note the tests i ran that do not specify any dcb info.

The problem is with the jcl - it needs to be changed.

Hopefully, arshadhrashid will run the suggested experiment and post back here what happens.

This run used 37 lines - others may not. Specifying a moderate primary extent and a larger secondary extent with rlse is used many places. . . It prevents many space abends while giving back to the system unused space.