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
 
How to move Spaces to fields

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

New User


Joined: 27 Mar 2007
Posts: 8
Location: India
PostPosted: Mon May 05, 2008 3:12 pm    Post subject: How to move Spaces to fields
 Reply with quote
Hi,

How to move Spaces to fields that have some values in them?

For Eg:

I have a FB file with LRECL = 2000.

The fields from column 1125-1130 have some values like "YNN Y ". I want spaces to be moved to those fields (1125-1130). How to achieve that?

Thanks,
Mukunth
Back to top
View user's profile Send private message
References
PostPosted: Mon May 05, 2008 3:12 pm    Post subject: Re: How to move Spaces to fields Reply with quote
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 3977
Location: San Jose, CA
PostPosted: Mon May 05, 2008 8:47 pm    Post subject:
Reply with quote
Mukunth,

Here's a DFSORT job that will do what you asked for.

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file
//SORTOUT DD DSN=...  output file
//SYSIN    DD    *
  OPTION COPY
  INREC IFTHEN=(WHEN=(1125,6,CH,EQ,C'YNN Y '),
      OVERLAY=(1125:6X))
/*
Back to top
View user's profile Send private message
mukunthg

New User


Joined: 27 Mar 2007
Posts: 8
Location: India
PostPosted: Fri May 09, 2008 11:04 am    Post subject:
Reply with quote
Thanks Frank.
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