Mainframe, MVS and zOS Discussion

I'm not clear with all possible scenarios initially when i post this requirement. I will take care of this in future when requesting for some help. My sincere apologize for this.

I have used this tool for many programs later i noticed this issue.

Please help me when you have free time.

Thanks ...

Hi Enrico/All,

I'm facing the issue if we have "EXEC CICS" & "END-EXEC" are on same line.

Example 1:
Input:

AAAAAAA | EXEC CICS RETURN END-EXEC.
AAAAAAA | EXEC CICS LINK
AAAAAAA | PROGRAM (WS-LOG-PRG)
AAAAAAA | COMMAREA (WS-LNK-ERROR)
AAAAAAA | LENGTH (LENGTH OF WS-LNK-ERROR)
AAAAAAA ...

Now it's working. I'm new to REXX so trying to understand the code how it works and did not noticed it.

Thanks a lot Enrico for helping me on this.

Hi Enrico,

I observed after the below logic i.e., line num 31 it's directly moving to Otherwise condition. so i have commented the code line 30 & 31 after that also it's not working.

I'm not sure if i miss something here.


000026 when left( tail, 9 ) = "EXEC CICS" then do
000027 exec = space ...

Hi Enrico,

Code is not working for "scenario 2" since the code is checking for "when wordpos( word( exec, 3), "LINK XCTL" ) > 0".

also in "Scenario 1" the parse logic (parse value(space(exec,0)) with . "PROGRAM(" iden ")" .) is not working.


Scenario 1:
000020 BBBBBBBB | EXEC CICS LINK PROGRAM ...

Thank you Nic. From now i will add code tags and will make sure to add appropriate subject line.

Thanks a lot enrico.

I will try this code and let you know.

I'm very new to rexx and this is my 2nd assignment in rexx. I did not an idea how to start this. Thanks again.

Have a great day ahead:).

Thank you enrico.

My apologize for not providing the complete example.

Here is the input file:
AAAAAAAA | EXEC CICS
AAAAAAAA | LINK
AAAAAAAA | PROGRAM(WS-INVOKED-PGM)
AAAAAAAA | COMMAREA(API-COMMAREA)
AAAAAAAA | RESP (CICS-RESP)
AAAAAAAA | END-EXEC.
AAAAAAAA | EXEC CICS WRITE
AAAAAAAA ...

Hi All,
I have a file with all EXEC statements. Now the requirement is to read the all the statements and write a report as below:

affinity | sub program | File| Queue

Example of input file:
EXEC CICS
LINK PROGRAM('AAAAAA')
END-EXEC

EXEC CICS LINK PROGRAM('AAAAAA')
END-EXEC

EXEC CICS LINK ...