View previous topic :: View next topic
|
Author |
Message |
mkssampathkumar Warnings : 1 New User
Joined: 31 Aug 2006 Posts: 57 Location: chennai
|
|
|
|
Hi
How to rreblock or change the logical record length of a dataset in Mainframe
anybody give example? |
|
Back to top |
|
|
UmeySan
Active Member
Joined: 22 Aug 2006 Posts: 771 Location: Germany
|
|
|
|
Hi !
Easiest way is to use a IEBGENER and copy the Dataset to a new desired
dataset. You could also use ICEMAN, Fileaid, TSO 3.3 or whatever you have.
Regards, UmeySan
Copy FB/LRECL=40 to VB/max Lrecl=44
STEP90 EXEC PGM=IEBGENER
SYSPRINT DD SYSOUT=*
SYSIN DD DUMMY
*
SYSUT1 DD DISP=SHR,DSN=IER1337.MDL00890.OUTPUT.SOND07
*
SYSUT2 DD DSN=IER1337.MDL00890.FZ022.I421,
DISP=(,CATLG,),UNIT=WORK,SPACE=(CYL,(10,10)),
RECFM=VB,LRECL=044
* |
|
Back to top |
|
|
mkssampathkumar Warnings : 1 New User
Joined: 31 Aug 2006 Posts: 57 Location: chennai
|
|
|
|
Hi
Thanks for ur reply.
i cant understand ur code.
I am not asking to copying
I want to reblock or change the logical record length of a dataset>the code which u gave is for copying the dataset.I also saw in TSO 3.3 option , it has only to copy the dataset.
am not finding anything to change or reblock the dataset.
Even though u specifying DD parameter after the SYSIN DD DUMMY statement.i cant understand ur code becz am a fresher for mainframe.Please reply me detail.
Thanks |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
When a dataset is copied, each record is picked up off the old dataset and layed down on the new dataset. In that process the recfm and lrecl can be changed, you just can't wave a wand and proclaim "Change foul blocksize...begone evil recfm"..... |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
It can be adjusted but will be empty, and what the use of that is If you try to REPRO it will fail because of invalid length. File MOD1 was originally 910 in length.
Quote: |
//ADJUST EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IN DD DSN=$$NL58.XML.MOD1,DISP=SHR
//OUT DD DSN=$$NL58.XML.MOD1,DISP=SHR,
// DCB=(LRECL=920,RECFM=FB,BLKSIZE=920)
//SYSIN DD DUMMY
/*
|
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Copy the file you want reblocked to a second file.
Delete (or rename) the original file.
Rename the "new" file with the attributes you want.
TaDaa your file is "reblocked" |
|
Back to top |
|
|
|