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
 
how to delete a line using rexx?

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

New User


Joined: 13 May 2007
Posts: 13
Location: Karnataka

PostPosted: Mon Mar 31, 2008 11:04 am    Post subject: how to delete a line using rexx?
Reply with quote

Greetings.

i have to do some sort of string manupulation. Please refer the code below.

3 WST-EBH-AMEX-AREA GROUP 52 38 47 10
4 WST-EBH-AMEX-FORMAT-CODE
XX 53 38 39 2
4 WST-EBH-AMEX-INV-NBR XXX 54 40 42 3
4 WST-EBH-AMEX-SUB-CODE XX 55 43 44 2
4 WST-EBH-AMEX-CURRENCY-CODE
XXX 56 45 47 3

i read the above piece of code into one array and moved the data of 3rd line and 6th line(split line) into 2nd and 5 the line (original line) respectively. after i moved the datas i wanted to delete the split lines.

i tried to delete the same using DELSTR() function. but no fruitful results.

Regards
Back to top
View user's profile Send private message

seenivasakan
Currently Banned

New User


Joined: 13 May 2007
Posts: 13
Location: Karnataka

PostPosted: Mon Mar 31, 2008 11:05 am    Post subject: how to delete a line using rexx?
Reply with quote

small correction.

i moved the data of 3rd line and 7th line into 2nd and 6th line respectively.

Regards
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1243
Location: Israel

PostPosted: Mon Mar 31, 2008 2:09 pm    Post subject:
Reply with quote

The easiest way is to use two arrays (stem)
Code:
'execio * diskr myinput (finis stem inp.' /* for example */
out. = ''
ixO = 0
do ixI = 1 to inp.0
   if <new line> then do
      ixO = ixO + 1
      out.ixO = inp.ixI             /* start new line */
   end; else do
      out.ixO = out.ixO inp.ixI     /* append line to previous */
   end
end
/* out. now contains reunited lines */
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 line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 3 Sat Oct 14, 2017 2:29 am
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 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