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
 
Inspect Functionality using Syncsort

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL
Author Message
kart__0987

New User


Joined: 18 Jul 2006
Posts: 2

PostPosted: Thu Sep 11, 2008 12:22 am    Post subject: Inspect Functionality using Syncsort
Reply with quote

Hi,
I need to replace all Zeroes with Blanks in a file . The Problem is that the field is 14 bytes long and may contain Zeroes in any of the 14 positions and i need to leave the Non Zero positions intact . I know that i can do using the Inspect Verb in a Cobol program but wanted to know if this was possible using Syncsort


Thanks
Back to top
View user's profile Send private message
References
Moved: Thu Sep 11, 2008 12:39 am by superk From DFSORT/ICETOOL to JCL
dick scherrer

Global Moderator


Joined: 23 Nov 2006
Posts: 8768
Location: 221 B Baker St

PostPosted: Thu Sep 11, 2008 3:09 am    Post subject:
Reply with quote

Hello,

Yes, you should be able to do what you want using ALTSEQ.
Back to top
View user's profile Send private message
Alissa Margulies

SYNCSORT Support


Joined: 25 Jul 2007
Posts: 252
Location: USA

PostPosted: Tue Sep 16, 2008 9:44 pm    Post subject:
Reply with quote

As Dick suggested, here is sample code that will change ALL binary zeros to spaces:
Code:
//SYSIN DD *
   SORT FIELDS=COPY                   
   ALTSEQ CODE=(0040)                 
   OUTREC FIELDS=(1,80,TRAN=ALTSEQ)   
/*   
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL All times are GMT + 6 Hours
Page 1 of 1