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
 
Format Created Output file Using REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Anand Kumar

New User


Joined: 29 Aug 2007
Posts: 24
Location: chennai

PostPosted: Mon Oct 25, 2010 4:39 pm    Post subject: Format Created Output file Using REXX
Reply with quote

Hi,

Through REXX I am creating some insert queries. I store the data in an array and write into the output file.

The output dataset created looks like this:-

Code:
INSERT INTO GBX.OVST8801 (
  ID,                     
  DAT                     
) VALUES (               
'OM01',   --ID           
'2005-03-17'); --DAT     
INSERT INTO GBX.OVST8801 (
  ID,                     
  DAT                     
) VALUES (               
'OM02', --ID             
'2010-10-17');  --DAT     
INSERT INTO GBX.OVST8801 (
  ID,                     
  DAT                     
) VALUES (               
'OM03',  --ID             
'2010-10-24');  --DAT     


I would look nice if the data is alligned like below. i.e. data from "--" should move to 35th position. Data truncation after 72 is no problem because it is any way a comment.

Code:
INSERT INTO GBX.OVST8801 (             
  ID,                                 
  DAT                                 
) VALUES (                             
'OM01',                           --ID
'2005-03-17');                    --DAT
INSERT INTO GBX.OVST8801 (             
  ID,                                 
  DAT                                 
) VALUES (                             
'OM02',                           --ID
'2010-10-17');                    --DAT
INSERT INTO GBX.OVST8801 (             
  ID,                                 
  DAT                                 
) VALUES (                             
'OM03',                           --ID
'2010-10-24');                    --DAT


Please let me know if there is any way to do this alignment in REXX itself.

Thanks,
Anand[/code]
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Mon Oct 25, 2010 4:54 pm    Post subject: Reply to: Format Created Output file Using REXX
Reply with quote

Are you using the OVERLAY function?
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1775
Location: Bloomington, IL

PostPosted: Mon Oct 25, 2010 5:00 pm    Post subject: Re: Format Created Output file Using REXX
Reply with quote

Anand Kumar wrote:
Please let me know if there is any way to do this alignment in REXX itself.

Yes, there is. Simply infix the desired number of spaces. I recommend the use of a recursive function to get that string; you'll find use for it in many other situations.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Oct 25, 2010 5:03 pm    Post subject:
Reply with quote

I'd go for OVERLAY too
Back to top
View user's profile Send private message
Anand Kumar

New User


Joined: 29 Aug 2007
Posts: 24
Location: chennai

PostPosted: Mon Oct 25, 2010 5:58 pm    Post subject: Reply to: Format Created Output file Using REXX
Reply with quote

Okey, I will use Overlay itself. We are trying to make this dynamically created. Hence we never know how many spaces each line to suffix or rather it would go more complex.

Thank you.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2083
Location: Silicon Valley

PostPosted: Mon Oct 25, 2010 8:25 pm    Post subject: Reply to: Format Created Output file Using REXX
Reply with quote

Quote:
Please let me know if there is any way to do this alignment in REXX itself.

Show us how you are doing it now. Show us your rexx.

Consider using the LEFT(stuff,35) function.
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 0 Tue Sep 26, 2017 3:35 am
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 8 Fri Sep 22, 2017 11:35 pm
No new posts it is possible output a SET value fro... Martylin JCL & VSAM 5 Fri Sep 22, 2017 7:08 am
No new posts Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm

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