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: 1275
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. GDG gen check using REXX raghuraman123 CLIST & REXX 6 Wed Apr 18, 2018 9:18 pm
No new posts How to control Panel Attributes throu... rsshanmugam CLIST & REXX 3 Mon Feb 26, 2018 9:51 pm
No new posts Find a string in PS file opened in br... mukkas CLIST & REXX 3 Sat Feb 24, 2018 2:15 pm
This topic is locked: you cannot edit posts or make replies. how to get Job information from IOF u... rsshanmugam CLIST & REXX 13 Mon Feb 05, 2018 4:22 pm
No new posts load and delete table through JCL wit... ram_vizag JCL & VSAM 9 Thu Feb 01, 2018 12:47 am

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