Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search 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
Author Message
seenivasakan
Currently Banned

New User


Joined: 13 May 2007
Posts: 21
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
References
PostPosted: Mon Mar 31, 2008 11:04 am    Post subject: Re: how to delete a line using rexx? Reply with quote

seenivasakan
Currently Banned

New User


Joined: 13 May 2007
Posts: 21
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

Active User


Joined: 13 Mar 2006
Posts: 264
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
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1