Trying to copy a report in the SDSF to a sequential file.



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

Trying to copy a report in the SDSF to a sequential file.

Postby Jay Clark » Sat Nov 17, 2007 8:33 pm

My problem is that this job produces a SOP030 report that is in the SDSF when you ? a job. The thing is I need it to be outputed to a sequential file, Im trying to use IEBGENER to copy this report to a sequential file as well. I see that the SOP030 "file" if you can call it that has a different set of parameters than the rest of the files. I have created a SOP03R sequential file to store the report but i keep getting a JCL error about that special SOP030 print file. Is there a way to copy the report to a sequential file after the report has been created? I need this because the report goes to a printer but every know and then they purge/loose this job and the report. And I have to re-create it again for them, so Id like the report to be copied to a sequential file as well as backup.


//NSOP030J JOB (2100),'NSOP030Z',CLASS=A,NOTIFY=&SYSUID,
// MSGCLASS=X,MSGLEVEL=(1,1),PRTY=1
//PROCLIB JCLLIB ORDER='DNCV00.TARGSRC0.PROC'
//SOP030P PROC
//STEPRUN EXEC PGM=NSOP030Z,
//*
//* SWITCHES SW1 THRU SW8 CAN BE SET IN
//* /UPSI(<SW8><SW1><SW2<SW3><SW4><SW5><SW6><SW7>) BELOW
//* N.B! ONLY THE BOOLEAN VALUES 0=FALSE,1=TRUE ARE VALID
//*
// PARM='/TERM(DUMP),/UPSI(00000000)'
//STEPLIB DD DSN=DNCV00.TARGBIN0.LOAD,DISP=SHR
// DD DSN=DNCV00.DBCFBIN0.LOAD,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSSNAP DD SYSOUT=*
//IDCAMS DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ZPKPRN DD DSN=DNGG00.OSPACK.ZPKPRN.D0.ZPKPRN,
// DISP=SHR
//Z510DATI DD DSN=DNGG00.DISK.DATSO1.D0.DATY2K,
// DISP=SHR
//SOP030 DD SYSOUT=J,FCB=2122,HOLD=YES
//DCDHCB DD DSN=DNGG00.DCPACK.DCDHCB.D0.RR4050,
// DISP=SHR
//OSFACB DD DSN=DNGG00.UTILPK.OSFACB.T001.RR2520,
// DISP=(,DELETE,DELETE),SPACE=(TRK,(1))
//SODB28 DD DSN=DNGG00.DCPACK.SODB28.T002.SQ160,
// DISP=(,DELETE,DELETE),SPACE=(TRK,(1))
//SODWW1 DD DSN=DNGG00.DCPACK.SODWW1.T003.SQ310,
// DISP=(,DELETE,DELETE),SPACE=(TRK,(1))
//SOD021 DD DSN=DNGG00.DCPACK.SOD021.T004.SQ90,
// DISP=(,DELETE,DELETE),SPACE=(TRK,(1))
//SOD030 DD DSN=DNGG00.DCPACK.SOD030.T005.SQ160,
// DISP=(,DELETE,DELETE),SPACE=(TRK,(1))
//SODC30 DD DSN=DNGG00.DCPACK.SODC30.T006.SQ160,
// DISP=(,DELETE,DELETE),SPACE=(TRK,(1))
//SOD060 DD DSN=DNGG00.DCPACK.SOD060.T007.SQ180,
// DISP=(,DELETE,DELETE),SPACE=(TRK,(1))
//SODC28 DD DSN=DNGG00.DCPACK.SODC28.T008.SQ160,
// DISP=(,DELETE,DELETE),SPACE=(TRK,(1))
//SOP03R DD DSN=DNGG00.DCPACK.SOP03R.D0.SQ132,
// DISP=(OLD,KEEP,DELETE),SPACE=(TRK,(1))
//STEPCPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=SOP030,DISP=OLD
//SYSUT2 DD DSN=DNGG00.DCPACK.SOP03R.D0.SQ132,DISP=OLD
//SOP030P PEND
//*
//*----------------------------------------------------------
//* EXECUTE TARGET PROGRAM
//*----------------------------------------------------------
//*
//NSOP030Z EXEC SOP030P
//
Jay Clark
 
Posts: 2
Joined: Sat Nov 17, 2007 8:15 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Trying to copy a report in the SDSF to a sequential file.

 

Re: Trying to copy a report in the SDSF to a sequential file.

Postby CICS Guy » Sun Nov 18, 2007 12:22 am

Jay Clark wrote: I need this because the report goes to a printer but every know and then they purge/loose this job and the report. And I have to re-create it again for them, so Id like the report to be copied to a sequential file as well as backup.
I'm not quite sure of what your problem is, but when I need a printed report and a backup file, I just output the report to the disk file and run a gener afterward to produce the printout.....
CICS Guy
 
Posts: 255
Joined: Wed Jun 20, 2007 4:08 am
Has thanked: 0 time
Been thanked: 0 time

Re: Trying to copy a report in the SDSF to a sequential file.

Postby Jay Clark » Sun Nov 18, 2007 2:19 am

Excuse my ignorence :-) but Ive only been programming in COBOL and JCL for 1.5 years now and Im still learning. And no one at my work can help me either as most of our JCL's are automatically generated. What would the sintax be for my JCL to copy the SOP030 printfile to a sequential file "SOP03R" be? I would really appreciate your help. :D
Jay Clark
 
Posts: 2
Joined: Sat Nov 17, 2007 8:15 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Trying to copy a report in the SDSF to a sequential file.

Postby dick scherrer » Sun Nov 18, 2007 2:47 am

Hello,

If you have no control of your jcl, the suggestion to create a file and later copy it to sysout will probably not work well for you.

Is this a one-time need? If it is, it is fairly straightforward to copy a queued output to a dasd file. You could use XDC - someone in your system support group can show you how to use it if you tru it and have questions/problems.

If you can change whatever generates your jcl, it could be changed to so that this
//SOP030 DD SYSOUT=J,FCB=2122,HOLD=YES

is written to a dasd file rather than sysout. The IEBGENER would copy the dasd file to sysout (as was previously suggested by CG).

The existing IEBGENER is trying to copy data from what appears to be a non-file from the previous step. You cannot refer to queued output by using a prior ddname as a dsn. What is currently in your jcl is trying to accomplish what CG suggested as a way to do what you need. The idea is correct, but the mechanics are incorrect.

If you cannot control the jcl, how did the gener to copy a report come to be?
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post