Problem in copying files with RECFM=U

In this Mainframe Forum - You can post your queries on JCL, OS/390 JCL, MVS JCL, z/OS JCL, JES2 & JES3

Moderators: Frank Yaeger, DikDude, Moderator Group

Post Reply
diwz
Member
Posts: 44
Joined: Sun Feb 10, 2013 10:39 am

Problem in copying files with RECFM=U

Post by diwz » Fri Feb 22, 2013 1:19 pm

[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.

William Collins
Active Member
Posts: 732
Joined: Thu May 24, 2012 4:07 am

Post by William Collins » Fri Feb 22, 2013 4:38 pm

I'd not have thought of using IDCAMS to copy a sequential dataset from tape.

For RECFM=U, BLKSIZE is meaningless.

What have you got that is U and 11 bytes long? Seems silly.

diwz
Member
Posts: 44
Joined: Sun Feb 10, 2013 10:39 am

Post by diwz » Fri Feb 22, 2013 6:04 pm

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.Image
  • 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

diwz
Member
Posts: 44
Joined: Sun Feb 10, 2013 10:39 am

Post by diwz » Fri Feb 22, 2013 6:16 pm

Williams, I agree with you that for RECFM U, BLKSIZE is meaningless. But that is not the problem I have now. <b>I want to know what is the utility that will copy the dataset with RECFM U from TAPE to DASD? </b>

DikDude
Moderator
Posts: 1001
Joined: Fri Jul 22, 2011 8:39 am
Location: usa

Post by DikDude » Sun Feb 24, 2013 5:52 am

What created the recfm=u dataset? What is the data content?

It may help if you post a few of these recs using HEX ON.

What happens if you try to copy the file using superc.
Have a good one

Anuj Dhawan
Moderator
Posts: 1625
Joined: Sat Aug 09, 2008 9:02 am
Location: Mumbai, India

Post by Anuj Dhawan » Sun Feb 24, 2013 5:47 pm

Possibly you need to know - how was the the tape created? A tape back-up taken by ADRDSSU will not work with IDCAMS, so, how was the the tape created?
Regards,
Anuj

diwz
Member
Posts: 44
Joined: Sun Feb 10, 2013 10:39 am

Post by diwz » Mon Feb 25, 2013 10:56 am

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.

William Collins
Active Member
Posts: 732
Joined: Thu May 24, 2012 4:07 am

Post by William Collins » Mon Feb 25, 2013 12:53 pm

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.

diwz
Member
Posts: 44
Joined: Sun Feb 10, 2013 10:39 am

Post by diwz » Mon Feb 25, 2013 3:38 pm

I am able to restore the required dd from its respective ADRDSSU dump dataset.

Also, I understood that IEBGENER/IDCAMS/SORT will not be of use when restoring a backup that is created by ADRDSSU IBM utility.

Thanks a lot Anuj, Dikedude & William for scrutinising the issue and finding a solution.

diwz
Member
Posts: 44
Joined: Sun Feb 10, 2013 10:39 am

Post by diwz » Mon Feb 25, 2013 3:40 pm

@ William : BTW, I checked the LRECL and BLKSIZE in load library. it is huge as you said :)

Anuj Dhawan
Moderator
Posts: 1625
Joined: Sat Aug 09, 2008 9:02 am
Location: Mumbai, India

Post by Anuj Dhawan » Tue Feb 26, 2013 6:37 pm

Glad, you got it working.
Regards,
Anuj

Post Reply

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



Other References
Mainframe Tools and others