Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
CICS- comes out of the program aft few iterations in PERFORM

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
KMK

New User


Joined: 29 Jul 2005
Posts: 18

PostPosted: Mon Jul 03, 2006 11:09 am    Post subject: CICS- comes out of the program aft few iterations in PERFORM
Reply with quote

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
Back to top
View user's profile Send private message

KMK

New User


Joined: 29 Jul 2005
Posts: 18

PostPosted: Fri Jul 07, 2006 11:22 am    Post subject: Re: CICS- comes out of the program aft few iterations in PER
Reply with quote

Any one can give me suggestion on this, Please

Cheers,
Back to top
View user's profile Send private message
venu_dr

New User


Joined: 06 Jul 2006
Posts: 6

PostPosted: Fri Jul 07, 2006 6:55 pm    Post subject:
Reply with quote

can you able to give the that perform loop coding?
Back to top
View user's profile Send private message
KMK

New User


Joined: 29 Jul 2005
Posts: 18

PostPosted: Mon Jul 10, 2006 9:40 am    Post subject:
Reply with quote

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,
Back to top
View user's profile Send private message
Hanfur

Active User


Joined: 21 Jun 2006
Posts: 104

PostPosted: Mon Jul 10, 2006 4:18 pm    Post subject: Hi
Reply with quote

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

-Han.
Back to top
View user's profile Send private message
KMK

New User


Joined: 29 Jul 2005
Posts: 18

PostPosted: Tue Jul 11, 2006 1:41 pm    Post subject:
Reply with quote

No it is not crossing the array limit.
Back to top
View user's profile Send private message
Nithinra

New User


Joined: 03 Jul 2006
Posts: 11

PostPosted: Tue Jul 11, 2006 2:05 pm    Post subject: Re: CICS- comes out of the program aft few iterations in PER
Reply with quote

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
Back to top
View user's profile Send private message
KMK

New User


Joined: 29 Jul 2005
Posts: 18

PostPosted: Wed Jul 12, 2006 4:46 pm    Post subject:
Reply with quote

Hi ,

It is to parse the XML input.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us