Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Variable record length

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
samuel_Inba

New User


Joined: 03 Jan 2008
Posts: 40
Location: Chennai
PostPosted: Wed May 21, 2008 2:57 pm    Post subject: Variable record length
 Reply with quote
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
View user's profile Send private message
References
Skolusu

DFSORT Developer


Joined: 07 Dec 2007
Posts: 357
Location: San Jose
PostPosted: Wed May 21, 2008 8:45 pm    Post subject:
Reply with quote
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
View user's profile Send private message
samuel_Inba

New User


Joined: 03 Jan 2008
Posts: 40
Location: Chennai
PostPosted: Fri May 23, 2008 1:13 pm    Post subject:
Reply with quote
Thank you
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1