Converting file of RECFM=U to RECFM=FB
Moderators: Frank Yaeger, DikDude, Moderator Group
-
- Member
- Posts: 20
- Joined: Thu Aug 28, 2008 10:41 am
Converting file of RECFM=U to RECFM=FB
Hi,
Could anyone help me in acheiving this.
I want to copy a file of RECFM=U to RECFM=FB.
I/P file:
Organization . . . :,PS
Record format . . . :,U
Record length . . . :,0
Block size . . . . :,4096
O/P file :
Organization . . . :,PS ,
Record format . . . :,FB ,
Record length . . . :,4096 ,
Block size . . . . :,4096 ,
Thanks,
Biswa.
Could anyone help me in acheiving this.
I want to copy a file of RECFM=U to RECFM=FB.
I/P file:
Organization . . . :,PS
Record format . . . :,U
Record length . . . :,0
Block size . . . . :,4096
O/P file :
Organization . . . :,PS ,
Record format . . . :,FB ,
Record length . . . :,4096 ,
Block size . . . . :,4096 ,
Thanks,
Biswa.
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
-
- Member
- Posts: 20
- Joined: Thu Aug 28, 2008 10:41 am
Hi Anju,
Thanks a lot for your information.
I used IDCAMS with REPRO command and I'm able to copy the Unformated file to FB.
Thanks,
Biswa.
Thanks a lot for your information.
I used IDCAMS with REPRO command and I'm able to copy the Unformated file to FB.
Thanks,
Biswa.
Last edited by biswaranjan on Wed Jan 06, 2010 10:27 am, edited 1 time in total.
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
-
- Member
- Posts: 20
- Joined: Thu Aug 28, 2008 10:41 am
//STEPA EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//OLD DD DSN=I/P file,DISP=SHR
//NEW DD DSN=O/P file,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=0,RECFM=FB,BLKSIZE=4096), <-- Same as I/P file DCB
except RECFM
// SPACE=(CYL,(280,100),RLSE)
//SYSIN DD *
REPRO -
INFILE(OLD) -
OUTFILE(NEW) -
SKIP(100) -
COUNT(100)
/*
//SYSPRINT DD SYSOUT=A
//OLD DD DSN=I/P file,DISP=SHR
//NEW DD DSN=O/P file,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=0,RECFM=FB,BLKSIZE=4096), <-- Same as I/P file DCB
except RECFM
// SPACE=(CYL,(280,100),RLSE)
//SYSIN DD *
REPRO -
INFILE(OLD) -
OUTFILE(NEW) -
SKIP(100) -
COUNT(100)
/*
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
Thanks for keeping us posted with the solution you used. I did not try IDCAMS for this purpose lately, and feeling lazy to get connected to mainframes to test it as 'am not keeping well today. However, copying RECFM=U files works quite well in IEBGENER, for output files of U or V format.You can use below JCL as an example:
Bur I'd like to ask - Why would you want to copy an undefined file to fixed length? That'll waste a lot of space since your fixed record size will have to be equal to the largest possible undefined record size.
Code: Select all
//STEP001 EXEC PGM=IEBGENER,REGION=6M
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=XXXXX.COMPILES.LOADLIB(MEMBER)
//SYSUT2 DD DISP=(,CATLG),DSN=XXXXX.MEMBER.LOADLIB,
// DCB=(DSORG=PS,RECFM=V,BLKSIZE=27998),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1))
Regards,
Anuj
Anuj
-
- Member
- Posts: 20
- Joined: Thu Aug 28, 2008 10:41 am
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
Good Lcuk...
Last edited by Anuj Dhawan on Thu Dec 31, 2009 2:16 pm, edited 1 time in total.
Regards,
Anuj
Anuj
- dbzTHEdinosauer
- Moderator
- Posts: 981
- Joined: Mon Oct 02, 2006 8:31 pm
most of the time Format=U files are load modules. If you are trying to modify a load module, suggest you research ZAP.and put it back to the initial format.
as far as 'putting it back', how are you going to accomplish that?
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.
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