Hello,
I am attempting to copy repro a vsam file to tape and back. On the copy to
tape I am getting IEC141I 013-34 The manual give me several options. What
am I doing incorrect to copy to tape and back to disk. Any one have a
jobstreamt to repro vsam to tape and back to disk.
The following is my jcl and control cards.
I abend on this step.
//COPYSTEP EXEC PGM=IDCAMS,REGION=0K
//SYSPRINT DD SYSOUT=*
//INPUT1 DD DSN=RKI.CSI,DISP=OLD
//OUTPU1 DD DSN=RKI.CSI.TAPECOPY,
// DISP=(NEW,PASS),LABEL=(1,,RETPD=5),
// UNIT=(3480,,DEFER),VOL=(,RETAIN)
//SYSIN DD *
REPRO -
INFILE(INPUT1) -
OUTFILE(OUTPU1)
Later in the jobstream I will copy back to disk.
//COPYBACK EXEC PGM=IDCAMS,COND=(0,LT),REGION=0K
//SYSPRINT DD SYSOUT=*
//INPUT1 DD DSN=RKI.CSI.TAPECOPY,
// DISP=OLD,LABEL=1,UNIT=(3480,,DEFER),
// VOL=(,RETAIN,REF=*.COPYSTEP.INPUT1)
//OUTPU1 DD DSN=RKI.CSI,DISP=OLD
//SYSIN DD *
REPRO -
INFILE(INPUT1) -
OUTFILE(OUTPU1)
The following is the instruction from the manual for a return code of 34
34
The system detected one of these conditions:
The following combination was specified: QSAM, MACRF=GD or PD, and a RECFM
value that is not VS, VBS, DS, or DBS.
An OPEN macro instruction was issued for a data set with BLKSIZE and BUFL
equal to 0. The system determined that it had to obtain buffers but was unable
to
do so.
RECFM was specified with both the A and M attributes.
The following combination was specified: QSAM, LRECL=0, and a RECFM value
that is not V or VB.
The following combination was specified: RECFM=V or VB and LRECL greater than
the quantity BLKSIZE minus 4.
| The following combination was specified: QSAM and BLKSIZE=0.
| No nonzero BLKSIZE value was available from any source and
| the system could not determine one. Coding BLKSIZE=0 in the
| JCL never has an effect except when overriding a cataloged
| procedure variable.
The following combination was specified: RECFM not variable or undefined and
LRECL greater than BLKSIZE.
The following combination was specified: BFTEK=A, RECFM=VBS, and LRECL=0.
Ed.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
