is it possible to copy information from SYSOUT?

sophia · Posted: Thu Dec 16, 2010 8:38 pm

Hi Everyone

I'm working on a report generated via QMF here is the step

//**********************************************************************
//* PS0020 (DB@QMFBT) GENERATE QMF REPORT FOR S&P <===
//**********************************************************************
//*
//PS0020 EXEC DB@QMFBT,
//* CTL=&CTL,
// ENV=&ENV,
// TIME=(1000),
// DB2ID=&DB2ID
//DSQPRINT DD SYSOUT=(I,REPORTID)
//SYSIN DD DSN=MY.CNTLLIB(CTCCRD),
// DISP=SHR

My problem is I need to create a backup of the report. I have coded DSQPRINT that way because when I try to sweep the report in Viewdirect it does not breakdown into multiple section.

Is it possible to save the information from the sysout to a dataset

expat · Posted: Thu Dec 16, 2010 8:44 pm

Yes, search for SDSF and SAVE and see what you get

Akatsukami · Posted: Thu Dec 16, 2010 8:46 pm

If you are running the job ab initio, have DSQPRINT write directly to a data set rather than sysout.

If class I sysout is held, you can copy it to a data set via (E)JES (and probably SDSF, but we don't use that here, so I can't say for sure).

sophia · Posted: Thu Dec 16, 2010 8:50 pm

Can it be coded as next step in the jCL? I want to retain the step above then add another step to transfer it in a temp dataset then create a 3rd step to save it in a GDG. would that be possible?

I tried to add this step but I'm getting an error message
//PS0030 EXEC UTSORT,
// CTL=&CTL,
// SORTCTL=COSRTCPY
//SORTIN DD SYSOUT=(I,REPORTID)
//SORTOUT DD DSN=MY.FILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(100,50),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=0)
//

expat · Posted: Thu Dec 16, 2010 8:56 pm

Yes, using SDSF as a subsequent step.

The SDSF can be invoked using REXX which can also be used to get some more details from the current job to ensure that the correct JES element gets copied.

sophia · Posted: Thu Dec 16, 2010 9:03 pm

Do you have a sample code that I can follow?

Garry Carroll · Posted: Thu Dec 16, 2010 9:08 pm

expat · Posted: Thu Dec 16, 2010 9:11 pm

Very basically

sophia · Posted: Thu Dec 16, 2010 9:34 pm

Thanks Guys! will try both your suggestions

sophia · Posted: Fri Dec 17, 2010 11:58 am

Did I apply it correctly? the job doesn't recognized the lines from //ISFIN
//PS0030 EXEC PGM=SDSF,PARM='++250,133'
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//ISFOUT DD SYSOUT=*
//ISFIN DD *
PRE JOBNAME
H
FIND 'JOBNAME'
++?
FIND 'JESMSGLG'
++S
PRINT ODSN 'DATASET NAME'
PRINT 1 9999
PRINT CLOSE
END
EXIT
/*

Arun Raj · Posted: Fri Dec 17, 2010 12:07 pm

I see some changes in the card which you showed and the one expat posted. Could that be a problem.

sophia · Posted: Fri Dec 17, 2010 4:05 pm

Hi Arun,

My bad was doing in stream inside the proc.

Hi Expat,

Thanks! I was able to get the desired result that I need with your suggestion. I have modified it a bit

PROC
//PS0030 EXEC PGM=SDSF,PARM='++250,133'
//ISFOUT DD DSN=DATASET NAME,DISP=SHR
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DATAOUT DD DSN=DATASET NAME,DISP=SHR
//ISFIN DD DSN=MY.CTLCRD(SDSF2),DISP=SHR

MY.CTLCRD

ST

PRE JOBNAME

FILTER JOBNAME EQ JOBNAME

FIND 'JOBNAME'

++?

FIND 'DSQPRINT'

++S

PRINT FILE DATAOUT

PRINT 1 999

PRINT CLOSE

END

I will just create additional CTC because I'm running the proc for 12 jobs

Thanks for all of your help