CICS- comes out of the program aft few iterations in PERFORM

KMK · New User Joined: 29 Jul 2005 Posts: 18

Hi,

We have CICS which parses a string. For that we have a PERFORM
statement in the program. It executes properly for small strings as the loop count is less. But if we provide a Longer string then as the loop count increases , the program just comes out of the loop and also the program and abends.

Can you please let me know why it is happening ? How to avoid this ?

We are testing in Test environment CICS region. Will that be region specific ?

Please chip in your thoughts.

Cheers

KMK · New User Joined: 29 Jul 2005 Posts: 18

Any one can give me suggestion on this, Please

Cheers,

venu_dr · New User Joined: 06 Jul 2006 Posts: 6

can you able to give the that perform loop coding?

KMK · New User Joined: 29 Jul 2005 Posts: 18

Hi ,

Please find the code

PERFORM DA010-TAG-CHECK THRU DA010-EXIT VARYING WS-COUNT

FROM 1 BY 1 UNTIL WS-COUNT > WS-XML-LEN.

DA010-TAG-CHECK SECTION.
=======================*

IF WS-COUNT = 1329
EXEC CICS WRITEQ TD
QUEUE(WS-CICS-LOG-QUEUE-NAME)
FROM(WS-COUNT)
LENGTH(LENGTH OF WS-COUNT)
RESP(DARE-CICS-RESP)
END-EXEC
EXEC CICS SUSPEND
END-EXEC
ELSE
IF MIPREQ-XML-REC(WS-COUNT) = WS-TAG-STRT
SET WS-POS-START(CNT-I) TO WS-COUNT
MOVE WS-COUNT TO WS-POS-START(CNT-I)
ELSE
IF MIPREQ-XML-REC(WS-COUNT) = WS-TAG-END
SET WS-POS-END(CNT-I) TO WS-COUNT
MOVE WS-COUNT TO WS-POS-END(CNT-I)
ADD 1 TO CNT-I
END-IF
END-IF.
END-IF.

Cheers,

Hanfur · Active User Joined: 21 Jun 2006 Posts: 104

Can u check your program is not crossing the Array limit?

-Han.

KMK · New User Joined: 29 Jul 2005 Posts: 18

No it is not crossing the array limit.

Nithinra · New User Joined: 03 Jul 2006 Posts: 11

Hi KMK,
One piece of advice, Dont use periods (.) after end-if
Can you please expain what are you trying to do with the code.
Just give some comments on the side of code.

Regards,
Nithin

KMK · New User Joined: 29 Jul 2005 Posts: 18

Hi ,

It is to parse the XML input.