Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 1228
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
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us