IBM Mainframe Forum

Dear friends
I submit a job that uses IEBCOPY utility to copy a sreies of members form anywhere to another place. I Want to put SYSPRINT of the job to a QSAM for future purpose. What I must to do? Whis code I must write in my jcl?
Tahnks

Do you mean you want to put your SYSPRNT to an ordinary flat, sequential file? You do that the same way as you do any other data.

Dear NicC
I code this in JCL:
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//COPYMEMB JOB CLASS=A,MSGCLASS=L,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//PROGS EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=T
//IN DD DSN=USER07.PROJA.LOAD,DISP=SHR
//OUT DD DSN=OPERAT.PROJA.LOAD,DISP=SHR
//SYSIN DD *
COPY OUTDD=OUT
INDD=((IN,R))
SELECT MEMBER=(ACCTBILL)
/*
//STEP2 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD SYSOUT=T
//SYSUT2 DD DSN=USER07.TEST.QSAM.ACCTLIB,
// VOL=SER=XXYN01,DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
// SPACE=(TRK,(1,1)),DISP=(NEW,KEEP,DELETE)
//
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
But I give Max-rc=12 on step2.

Mehdi shri wrote:Dear NicC
I code this in JCL:
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Select all

//COPYMEMB  JOB  CLASS=A,MSGCLASS=L,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//PROGS        EXEC  PGM=IEBCOPY                                   
//SYSPRINT    DD SYSOUT=T                                       
//IN               DD DSN=USER07.PROJA.LOAD,DISP=SHR                   
//OUT            DD DSN=OPERAT.PROJA.LOAD,DISP=SHR       
//SYSIN DD  *                                                   
 COPY OUTDD=OUT                                                 
      INDD=((IN,R))                                             
      SELECT MEMBER=(ACCTBILL)                                   
/*                                                               
//STEP2      EXEC PGM=IEBGENER                                     
//SYSPRINT DD  SYSOUT=*                                         
//SYSIN       DD  DUMMY                                             
//SYSUT1    DD  SYSOUT=T                                         
//SYSUT2    DD DSN=USER07.TEST.QSAM.ACCTLIB,                       
//               VOL=SER=XXYN01,DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
//               SPACE=(TRK,(1,1)),DISP=(NEW,KEEP,DELETE)         
//

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
But I give Max-rc=12 on step2.

So what you're saying is that you completely ignored what NicC wrote.

Why not use

Side note: if you do not know the difference between SYSOUT=T and DSN= then it's not likely you will EVER succeed at what you're trying to do.

These users thanked the author Robert Sample for the post:

Mehdi shri (Tue Jun 05, 2012 5:34 pm)