Page 1 of 1

Put IEBCOPY result to QSAM.

PostPosted: Tue Jun 05, 2012 11:49 am
by Mehdi shri
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

Re: Put IEBCOPY result to QSAM.

PostPosted: Tue Jun 05, 2012 11:54 am
by NicC
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.

Re: Put IEBCOPY result to QSAM.

PostPosted: Tue Jun 05, 2012 3:33 pm
by Mehdi shri
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.

Re: Put IEBCOPY result to QSAM.

PostPosted: Tue Jun 05, 2012 3:53 pm
by Akatsukami
Mehdi shri wrote: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.

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

Re: Put IEBCOPY result to QSAM.

PostPosted: Tue Jun 05, 2012 5:05 pm
by Robert Sample
Why not use
//PROGS        EXEC  PGM=IEBCOPY                                   
//SYSPRINT    DD DSN=your.dataset.name,DISP=(NEW,CATLG),
// UNIT=????,SPACE=(TRK,(1,1))                               
//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)                                   
/*


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.