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
 

 

is it possible to copy information from SYSOUT?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
sophia

New User


Joined: 30 Jun 2007
Posts: 19
Location: United States

PostPosted: Thu Dec 16, 2010 8:38 pm    Post subject: is it possible to copy information from SYSOUT?
Reply with quote

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
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Dec 16, 2010 8:44 pm    Post subject:
Reply with quote

Yes, search for SDSF and SAVE and see what you get
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Thu Dec 16, 2010 8:46 pm    Post subject:
Reply with quote

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).
Back to top
View user's profile Send private message
sophia

New User


Joined: 30 Jun 2007
Posts: 19
Location: United States

PostPosted: Thu Dec 16, 2010 8:50 pm    Post subject: Reply to: is it possible to copy information from SYSOUT?
Reply with quote

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)
//
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Dec 16, 2010 8:56 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
sophia

New User


Joined: 30 Jun 2007
Posts: 19
Location: United States

PostPosted: Thu Dec 16, 2010 9:03 pm    Post subject: Reply to: is it possible to copy information from SYSOUT?
Reply with quote

Do you have a sample code that I can follow?
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 988
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Thu Dec 16, 2010 9:08 pm    Post subject:
Reply with quote

Quote:
I want to retain the step above then add another step to transfer it in a temp dataset

Wouldn't it be simpler to write it to dataset in the first step and then simply add a step to IEBGENER that dataset to SYSOUT=(I,REPORTID) ??

Garry.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Dec 16, 2010 9:11 pm    Post subject:
Reply with quote

Very basically
Code:
//SDSF     EXEC PGM=SDSF,PARM='++250,133'             
//SYSOUT   DD SYSOUT=*                               
//SYSPRINT DD SYSOUT=*                               
//ISFOUT   DD SYSOUT=*                               
//ISFIN    DD *                                       
PRE UID*                                             
H                                                     
FIND 'uidJOB'                                           
++?                                                   
FIND 'JESMSGLG'                                       
++S                                                   
PRINT ODSN 'uid.TEST.SDSF1'                           
PRINT 1 9999                                         
PRINT CLOSE                                           
END                                                   
EXIT                                                 


Although there is a very good red book available from the IBM site for using the newer REXX / SDSF interfaces.
Back to top
View user's profile Send private message
sophia

New User


Joined: 30 Jun 2007
Posts: 19
Location: United States

PostPosted: Thu Dec 16, 2010 9:34 pm    Post subject: Reply to: is it possible to copy information from SYSOUT?
Reply with quote

Thanks Guys! will try both your suggestions icon_smile.gif
Back to top
View user's profile Send private message
sophia

New User


Joined: 30 Jun 2007
Posts: 19
Location: United States

PostPosted: Fri Dec 17, 2010 11:58 am    Post subject: Reply to: is it possible to copy information from SYSOUT?
Reply with quote

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
/*
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2158
Location: @my desk

PostPosted: Fri Dec 17, 2010 12:07 pm    Post subject:
Reply with quote

I see some changes in the card which you showed and the one expat posted. Could that be a problem.
Back to top
View user's profile Send private message
sophia

New User


Joined: 30 Jun 2007
Posts: 19
Location: United States

PostPosted: Fri Dec 17, 2010 4:05 pm    Post subject: Reply to: is it possible to copy information from SYSOUT?
Reply with quote

Hi Arun,

My bad was doing in stream inside the proc. icon_redface.gif


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 icon_smile.gif Thanks for all of your help
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 6 Fri Dec 02, 2016 9:47 am
No new posts Single COPY CICS TS datasets and when... Kyle Carroll CICS 2 Tue Oct 11, 2016 9:47 pm
No new posts Obtaining file information pahiker COBOL Programming 25 Tue Sep 27, 2016 7:25 pm
No new posts dataset copy question - REPRO or some... atulxp TSO/ISPF 2 Wed Aug 03, 2016 10:56 pm
No new posts How to copy Tape dataset to unix main... chaky All Other Mainframe Topics 4 Fri Jul 08, 2016 2:52 am


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