Problem in copying files with RECFM=U
Moderators: Frank Yaeger, DikDude, Moderator Group
Problem in copying files with RECFM=U
[quote] I am trying to copy a file which is in TAPE and record format U to SYSDA unit to use it in sorting. When I use IDCAMS step , it gives an error message saying that it is not able to open the TAPE file. I have given the JCL script and error message from JESMSGLOG
[code]//STEP01 EXEC PGM=IDCAMS
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//FILEIN DD DSN=ANNPG.PZCNEPAC.SORTFLE4.G3204V00,DISP=SHR
//FILEOUT DD DSN=ANN2107.PZCNEPAC.SORTFLE4.T3194V00,
// DISP=(,CATLG),
// DCB=(RECFM=U,LRECL=22,BLKSIZE=27984),
// SPACE=(CYL,(1000,500),RLSE),UNIT=SYSDA
//*
//SYSIN DD *
REPRO -
INFILE(FILEIN) -
OUTFILE(FILEOUT)
/* [/code]
[/quote][code]IDCAMS SYSTEM SERVICES TIM
REPRO -
INFILE(FILEIN) -
OUTFILE(FILEOUT)
IDC3300I ERROR OPENING ANNPG.PZCNEPAC.SORTFLE4.G3194V00
IDC3321I ** OPEN/CLOSE/EOV ABEND EXIT TAKEN
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12 [/code]
Please help me to clarify when it is happening.
[code]//STEP01 EXEC PGM=IDCAMS
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//FILEIN DD DSN=ANNPG.PZCNEPAC.SORTFLE4.G3204V00,DISP=SHR
//FILEOUT DD DSN=ANN2107.PZCNEPAC.SORTFLE4.T3194V00,
// DISP=(,CATLG),
// DCB=(RECFM=U,LRECL=22,BLKSIZE=27984),
// SPACE=(CYL,(1000,500),RLSE),UNIT=SYSDA
//*
//SYSIN DD *
REPRO -
INFILE(FILEIN) -
OUTFILE(FILEOUT)
/* [/code]
[/quote][code]IDCAMS SYSTEM SERVICES TIM
REPRO -
INFILE(FILEIN) -
OUTFILE(FILEOUT)
IDC3300I ERROR OPENING ANNPG.PZCNEPAC.SORTFLE4.G3194V00
IDC3321I ** OPEN/CLOSE/EOV ABEND EXIT TAKEN
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12 [/code]
Please help me to clarify when it is happening.
-
- Active Member
- Posts: 732
- Joined: Thu May 24, 2012 4:07 am
I am getting similar error by using in IEBGENER and SORT utility. Then finally I tried with IDCAMS. Appreciate your help if you can sort out. The file attributes is showing the the file is 22 bytes long.
- VOLSER = E74007 ACTVOL= SMSMC= BLANKS
DSN = ANNPG.PZCNEPAC.SORTFLE4.G3204V00 DSN17= SORTFLE4.G3
EXPDT = CATALOG ACCT= HEXZEROS
FLAG1 = 40 FLAG2 = 80 FLAG3 = 00 BATCHID= 00 =
FLAG4 = 08 FLAG5 = 00 FLAG6 = 00 HOOKID = 44 = CLOS
EDMID = WMC = 00000 WWID = - -
CDATE = 2013/051 CJOB = PZCNEPAC CTIME = 0955 CPGM = ADRDSSU
LDATE = 2013/053 LJOB = ANN2107U LTIME = 0328 LPGM = IEBGENR
CSTEP = ARCHIVE CDDNAME= TAPE3 CUNIT = 0C63 LUNIT = 0C7C
OUTDATE= ZEROS OUTCODE= SLOT = 0000000 TRERRC = 00000
BTHDATE= 2008/024 VENDOR = BLANKS COUNT = 00109 TWERRC = 00000
DATECLN= ZEROS USECLN = 00000 CLNCNT = 000 TRERRI = 00000
VOLSEQ = 0001 ROBTY = VIBM ROBID = 001 TWERRI = 00000
1STVOL = NEXTVOL= PREVVOL= PRERRC = 00000
NUMDSNB= 00000 1STDSNB= 00000000 LSTDSNB= 00000000 PWERRC = 00000
LABEL = SL DEN = 38KC TRTCH = 36X2 PRERRI = 00000
RECFM = U LRECL = 000022 BLKSIZE= 262144 PWERRI = 00000
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
Below is the step that created the RECFM=U
*====================================================================
*DFDSS ARCHIVE
*====================================================================
//ARCHIVE EXEC PGM=ADRDSSU,REGION=500M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABNLTERM DD SYSOUT=*
//TAPE1 DD DSN=A02865.PZCNEPAC.SORTFLE2(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SILO,
// VOL=(PRIVATE,RETAIN,,10),
// DCB=(A02865.DSCB.MODEL,BLKSIZE=0,DSORG=PS),
// LABEL=(1,SL,,,EXPDT=99000)
//TAPE2 DD DSN=A02865.PZCNEPAC.SORTFLE3(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=AFF=TAPE1,
// VOL=(PRIVATE,RETAIN,,10,REF=*.TAPE1),
// DCB=(A02865.DSCB.MODEL,BLKSIZE=0,DSORG=PS),
// LABEL=(2,SL,,,EXPDT=99000)
//TAPE3 DD DSN=A02865.PZCNEPAC.SORTFLE4(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SILO,
// VOL=(PRIVATE,RETAIN,,10),
// DCB=(A02865.DSCB.MODEL,BLKSIZE=0,DSORG=PS),
// LABEL=(1,SL,,,EXPDT=99000)
//*
//SYSIN DD *
SERIAL
DUMP DATASET(INCLUDE(INS1.PZCNEPAC.SORTFLE2.BLK#XXXX)) -
OUTDDNAME(TAPE1) -
OPTIMIZE(4) -
WAIT(3,10) -
SHARE
DUMP DATASET(INCLUDE(INS1.PZCNEPAC.SORTFLE3.BLK#XXXX)) -
OUTDDNAME(TAPE2) -
OPTIMIZE(4) -
WAIT(3,10) -
SHARE
DUMP DATASET(INCLUDE(INS1.PZCNEPAC.SORTFLE4.BLK#XXXX)) -
OUTDDNAME(TAPE3) -
OPTIMIZE(4) -
WAIT(3,10) -
SHARE
/*
The dataset contains load module. It is basically a claims report that has to be viewed & read by using AFP viewer in windows after ftp'ing the dataset.
.ÖL£«...................T1V10500C1N20000............T1V10037C1H20000............
0EDB800010000000FFFFFFFFEFEFFFFFCFDFFFFF0000FFFFFFFFEFEFFFFFCFCFFFFF0000FFFFFFFF
0C31A001C0001000FFFFFFFF31510500315200002000FFFFFFFF31510037318200006000FFFFFFFF
------------------------------------------------------------------------------
.&L¿Q...........d.O1V3124 ........d.O1V1799 ........d.O1V873 ........d.O1V1482
05DAD0000102000080DFEFFFF40102000080DFEFFFF40102000080DFEFFF440102000080DFEFFFF4
003B8002024421C24061531240024422C24061517990024423C24061587300024424C24061514820
------------------------------------------------------------------------------
..Lw®...... . ..æ.....
01DAA00000343402903000
0636F0030080800FC0E204
------------------------------------------------------------------------------
..Lxº.............
01DA90000000000020
0237B00400000000D0
------------------------------------------------------------------------------
The problem is, somehow the DASD datasets for the last four days were missing. Now I have only the archived datasets in RECFM=U to recover and send it to clients.
I tried copying the taped dataset that is with RECFM=U to DASD file using IEBGENER and also with SORT utility. Those were not working. Finally I tried with IDCAMS as well, it didnot work.
I couldn't use SUPERCE as I have only the TAPE dataset.
*====================================================================
*DFDSS ARCHIVE
*====================================================================
//ARCHIVE EXEC PGM=ADRDSSU,REGION=500M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABNLTERM DD SYSOUT=*
//TAPE1 DD DSN=A02865.PZCNEPAC.SORTFLE2(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SILO,
// VOL=(PRIVATE,RETAIN,,10),
// DCB=(A02865.DSCB.MODEL,BLKSIZE=0,DSORG=PS),
// LABEL=(1,SL,,,EXPDT=99000)
//TAPE2 DD DSN=A02865.PZCNEPAC.SORTFLE3(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=AFF=TAPE1,
// VOL=(PRIVATE,RETAIN,,10,REF=*.TAPE1),
// DCB=(A02865.DSCB.MODEL,BLKSIZE=0,DSORG=PS),
// LABEL=(2,SL,,,EXPDT=99000)
//TAPE3 DD DSN=A02865.PZCNEPAC.SORTFLE4(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SILO,
// VOL=(PRIVATE,RETAIN,,10),
// DCB=(A02865.DSCB.MODEL,BLKSIZE=0,DSORG=PS),
// LABEL=(1,SL,,,EXPDT=99000)
//*
//SYSIN DD *
SERIAL
DUMP DATASET(INCLUDE(INS1.PZCNEPAC.SORTFLE2.BLK#XXXX)) -
OUTDDNAME(TAPE1) -
OPTIMIZE(4) -
WAIT(3,10) -
SHARE
DUMP DATASET(INCLUDE(INS1.PZCNEPAC.SORTFLE3.BLK#XXXX)) -
OUTDDNAME(TAPE2) -
OPTIMIZE(4) -
WAIT(3,10) -
SHARE
DUMP DATASET(INCLUDE(INS1.PZCNEPAC.SORTFLE4.BLK#XXXX)) -
OUTDDNAME(TAPE3) -
OPTIMIZE(4) -
WAIT(3,10) -
SHARE
/*
The dataset contains load module. It is basically a claims report that has to be viewed & read by using AFP viewer in windows after ftp'ing the dataset.
.ÖL£«...................T1V10500C1N20000............T1V10037C1H20000............
0EDB800010000000FFFFFFFFEFEFFFFFCFDFFFFF0000FFFFFFFFEFEFFFFFCFCFFFFF0000FFFFFFFF
0C31A001C0001000FFFFFFFF31510500315200002000FFFFFFFF31510037318200006000FFFFFFFF
------------------------------------------------------------------------------
.&L¿Q...........d.O1V3124 ........d.O1V1799 ........d.O1V873 ........d.O1V1482
05DAD0000102000080DFEFFFF40102000080DFEFFFF40102000080DFEFFF440102000080DFEFFFF4
003B8002024421C24061531240024422C24061517990024423C24061587300024424C24061514820
------------------------------------------------------------------------------
..Lw®...... . ..æ.....
01DAA00000343402903000
0636F0030080800FC0E204
------------------------------------------------------------------------------
..Lxº.............
01DA90000000000020
0237B00400000000D0
------------------------------------------------------------------------------
The problem is, somehow the DASD datasets for the last four days were missing. Now I have only the archived datasets in RECFM=U to recover and send it to clients.
I tried copying the taped dataset that is with RECFM=U to DASD file using IEBGENER and also with SORT utility. Those were not working. Finally I tried with IDCAMS as well, it didnot work.
I couldn't use SUPERCE as I have only the TAPE dataset.
-
- Active Member
- Posts: 732
- Joined: Thu May 24, 2012 4:07 am
As Anuj guessed, you've done a "backup" to create the tape. You need to do the reverse, a "restore" to recover the dataset.
Why don't you talk to your technical support people? If not, fully understand how it was backed-up, and fully understand what it can do/is going to do when you restore it.
The LRECL and BLKSIZE shown are total "red herrings".
Have a look at the LRECL on the loadlibrary on DASD (or, if you don't have that, a loadlibrary). You can also consult the sysout from the backup. I suspect the LRECL will be pretty large.
However, even knowing that, you can't do it in any meaningful sense with IEBGENER/IDCAMS/SORT, as ADDRSSU has its own formatting of data for backups.
Why don't you talk to your technical support people? If not, fully understand how it was backed-up, and fully understand what it can do/is going to do when you restore it.
The LRECL and BLKSIZE shown are total "red herrings".
Have a look at the LRECL on the loadlibrary on DASD (or, if you don't have that, a loadlibrary). You can also consult the sysout from the backup. I suspect the LRECL will be pretty large.
However, even knowing that, you can't do it in any meaningful sense with IEBGENER/IDCAMS/SORT, as ADDRSSU has its own formatting of data for backups.
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page