Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Remove BLANKS present upfront

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
thisak

New User


Joined: 09 Jun 2006
Posts: 14

PostPosted: Wed Mar 14, 2012 8:07 pm    Post subject: Remove BLANKS present upfront
Reply with quote

I have 2 fields starting from postion 1 and another from 11.
I may get spaces in between digits (for eg. "5 0 234") and without disturbing them, I need to suppress leading blanks alone. I'm not sure how blank spaces will be there at starting.

The below code I have written replaces all space which I don't want.

INREC IFTHEN=(WHEN=INIT,OVERLAY=(1:1,10,JFY=(SHIFT=RIGHT),
11:11,5,JFY=(SHIFT=RIGHT))),
IFTHEN=(WHEN=INIT,FINDREP=(IN=C' ',OUT=C'0'))

Is there any correct way to attain this?
Back to top
View user's profile Send private message

sqlcode1

Active Member


Joined: 08 Apr 2010
Posts: 578
Location: USA

PostPosted: Wed Mar 14, 2012 8:29 pm    Post subject:
Reply with quote

thisak,
Please provide sample input records and expected output. Try to cover all the situations. Also provide us with LRECL and RECFM for the input file and expected output.

Thanks,
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Mar 14, 2012 10:57 pm    Post subject:
Reply with quote

thisak,

Your description is thoroughly confusing. What do you mean by "without disturbing them"? What do you mean by "suppress leading blanks alone"?

You need to do a much better job of describing what it is you want to do before anyone can help you. Show an example of your input records and what you expect for output and explain the rules for getting from input to output.

To get you started, if you had these input records:

Code:

fld1------fld2-
5 0 234   5 0 2
  1 2 3     980
      0 05 34 1
    1    5 4 1


What would you expect for the output records?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Comparing current time with the time ... arunsoods SYNCSORT 1 Mon Oct 30, 2017 4:07 pm
No new posts sending email from jcl using the mail... niloyarp JCL & VSAM 5 Tue Oct 10, 2017 12:32 pm
No new posts Remove leading spaces from numeric field rexx77 SYNCSORT 6 Wed Sep 06, 2017 2:15 am
No new posts Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm
No new posts Record Not found in AlX but record re... mukun264 COBOL Programming 7 Fri Mar 24, 2017 9:28 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us