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?

Suppose If There Are A Set Of Statements And Each Has A Word "value"

1.	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?
Answer» Answer : /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)"