Interested to Buy Any Domain ? << Click Here >> for more details...
If there are a set of statements and each has a
word "value" in it, If I want to display all these
statements so that the word "value" is aligned, then how do
I code this in REXX.
e.g - The value of X is Y.
Wot is its value?
Do u know its value?
I want to know its value.
- 1 Answers
- 5193 Views
- I also Faced
- E-Mail Answers
Answer Posted / sumanth toom
/**REXX**/
ADDRESS TSO
"ALLOC DD(INP1) DA('input-dataset') SHR REUS"
"EXECIO * DISKR INP1 (STEM IN1. FINIS"
MAX_OFFSET = 0
INP_OFFSET = 0
DO I = 1 TO IN1.0
PARSE UPPER VAR IN1.I INP
INP_OFFSET = POS("VALUE",INP)
IF INP_OFFSET > MAX_OFFSET THEN
DO
MAX_OFFSET = INP_OFFSET
END
END
DO I = 1 TO IN1.0
PARSE UPPER VAR IN1.I INP
Z = POS("VALUE",INP)
SAY LEFT(SUBSTR(IN1.I,1,(Z - 1)),(MAX_OFFSET - 1))||,
SUBSTR(IN1.I,Z,20)
END
"FREE DD(INP1)"
| Is This Answer Correct ? | 6 Yes | 0 No |
Post New Answer View All Answers
is there an aix version of oorexx?
What are various loop types supported by rexx?
for which platforms is uni-rexx available?
Is it possible to combine uni-rexx with a compiled language in any application? What applications interfaces are there?
Is it possible to port existing applications from the mainframe or os/2? Are there major changes required to do this?
does uni-rexx give me any capabilities designed specifically for the unix environment?
how to access data held on the jes spool?
how to pass parms to ispf edit macro?
is oorexx compatible with rexx?
what is uni-rexx?
can I port my existing applications from the mainframe or os/2? Will there be extensive changes required to do this?
I executed one job and I forget to save the final JCL. But took an XDC from SPOOL. Now I want to recover the JCL from XDC dataset. Is there any process to do this?. (Manually it takes a lot of time). Is there
How to code the db2 queries using rexx?
Enlist the features of rexx as a programming language.
I want to set position for a particular text in a certain position in several of my cics maps.Please provide me with a solution. Ex: If "F1-Help" has to be set to pos(4,27) always in all the maps within a PDS.
