IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Change first space after 10 bytes to symbol
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
vvmanyam

New User


Joined: 16 Apr 2008
Posts: 86
Location: Bangalore
PostPosted: Wed Nov 18, 2009 11:20 pm
 Reply with quote
Hi,
Input:
Code:

----+----1----+
AAADDAADFDD   
BB DFDSFD DDFSD


Output:
Code:

----+----1----+-
AAADDAADFDD>   
BB DFDSFD DDFSD>


First space after 10 bytes of each line should be changed to '>'
file LRECL is 80

Regards,
Balu
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
PostPosted: Wed Nov 18, 2009 11:34 pm
 Reply with quote
vvmanyam,

Use the following DFSORT control cards

Code:

//SYSIN    DD *                                       
  SORT FIELDS=COPY                                   
  INREC OVERLAY=(11:11,70,SQZ=(SHIFT=LEFT,TRAIL=C'>'))
//*
Back to top
View user's profile Send private message
vvmanyam

New User


Joined: 16 Apr 2008
Posts: 86
Location: Bangalore
PostPosted: Wed Nov 18, 2009 11:39 pm
 Reply with quote
Thanks!!
Its working!!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 

Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts 3270 personal communications. Can't c... TSO/ISPF 2
No new posts SELECT from data change table DB2 5
No new posts Trying to change copybook in online c... CICS 4
No new posts Change Default Scroll Setting TSO/ISPF 1
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us