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: 1258
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 attchmvs from rexx subroutine that re... harisukumaran CLIST & REXX 1 Fri Jan 19, 2018 5:29 am
No new posts Can we create REXX ouput in an Excel ... upendrasri CLIST & REXX 3 Wed Jan 17, 2018 8:19 pm
No new posts Need to obtain VTOC information via R... djeffbland CLIST & REXX 10 Thu Jan 11, 2018 4:13 am
No new posts REXX contest sergeyken CLIST & REXX 2 Tue Jan 09, 2018 1:55 am
No new posts Looping REXX - unable to interrupt RAVISANKAR07 CLIST & REXX 3 Wed Dec 06, 2017 1:08 pm

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