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

Format Created Output file Using REXX


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
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
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

Global Moderator


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

PostPosted: Mon Oct 25, 2010 4:54 pm
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: 1788
Location: Bloomington, IL

PostPosted: Mon Oct 25, 2010 5:00 pm
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: 8797
Location: Welsh Wales

PostPosted: Mon Oct 25, 2010 5:03 pm
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
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

Global Moderator


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

PostPosted: Mon Oct 25, 2010 8:25 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 3
No new posts TRIM everything from input, output co... DFSORT/ICETOOL 1
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
Search our Forums:

Back to Top