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
- 5226 Views
- I also Faced
- E-Mail Answers
Answer / 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 |
have you already used rexx - even for limited purposes? Do you need to maintain a high level of productivity during your transition to unix?
i want new rexx tool which will perform jcl chk without submitting it
What is the use of uni-rexx?
How to run my rexx exec?
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
what is uni-rexx?
how long does the install of oorexx take?
If I have limited experience with Rexx or it's been a long time since I've used it, what kind of help is available to get me started?
I am tryin to select one records(SQL) using Rexx.Here is the code ADDRESS DSNREXX "EXECSQL FETCH C1 USING DESCRIPTOR :TBSQLDA" IF SQLCODE = 0 THEN DO LINE = '' DO I = 1 TO TBSQLDA.SQLD LINE = LINE TBSQLDA.I.SQLDATA END I SAY LINE END ADDRESS DSNREXX "EXECSQL CLOSE C1" ADDRESS DSNREXX 'DISCONNECT' i am getting the following errors and also i dont know wr to see the ouput.Can anyone please hlep me in solving this? 28 +++ ADDRESS DSNREXX 'DISCONNECT' Error running DB2REXX, line 28: Incomplete DO/SELECT/IF
can I port my existing applications from the mainframe or os/2? Will there be extensive changes required to do this?
what if I need to have the same application running on multiple platforms, such as unix and the mainframe? Does that mean I have to maintain two separate sources?
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.
COBOL 
