View previous topic :: View next topic
|
Author |
Message |
samuel_Inba
New User
Joined: 03 Jan 2008 Posts: 53 Location: Chennai
|
|
|
|
I have a FB file which has records of various sizes, like,
FIle1:
aaaaaaaaaaaaaaaa
bbbbbbbbbbbb
cccccccccc
ddddddddddddddddd
now, what i need to do is to get to the end of the record which is not fixed.Each record may vary in its length.
I need to add a char at the end of the record (say a | symbol)
hw do i do it ?
pls suggest... |
|
Back to top |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
samuel_inba,
The following DFSORT JCL will give you the desired results(Assuming your input is 80 bytes LRECL and FB recfm)
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AAAAAAAAAAAAAAAA
BBBBBBBBBBBB
CCCCCCCCCC
DDDDDDDDDDDDDDDDD
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC BUILD=(1,80,JFY=(SHIFT=LEFT,TRAIL=C'|'))
//*
|
|
|
Back to top |
|
|
samuel_Inba
New User
Joined: 03 Jan 2008 Posts: 53 Location: Chennai
|
|
|
|
Thank you |
|
Back to top |
|
|
|