Answers

Question and Answer:

  Home  IBM REXX

⟩ Suppose 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?

/**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)"

 167 views

More Questions for you: