Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Facing problem while navigation of screens

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

New User


Joined: 27 May 2010
Posts: 10
Location: Chennai

PostPosted: Mon Jan 24, 2011 9:10 pm    Post subject: Facing problem while navigation of screens
Reply with quote

Past Situation:

Previously we got 3 online programs (Let us say the screens A, B and C). The control passes from one screen to other thru XCTL command. The flow will be like (A --> B --> C and again C --> A). The length of the COMM area, used is '978'.

Current Situation:

Now, we included a new program 'D', which is almost similar to 'C'. (Which made the flow to be A --> B --> C --> D and again D --> A)

The below listed are the only differences between the programs 'C' and ''D':
1. One of the field's length is 5 bytes in 'C', whereas it is 9 bytes in 'D'
2. The length of the file from which the values are retrieved is '200' in the In program 'C', whereas it is only 150 in program 'D'.(These files are declared under linkage section).


The flow is smooth from 'A' thru 'D'. The problem arises when the flow proceeds from 'D' --> 'A'. When the control comes from 'C' to 'D' (and displays the screen 'D') and any key pressed in the screen 'D' is throwing an abend, stating
Quote:
"DFHAC2206 10:16:15 R3DACICS Transaction HELP failed with abend HLP4. Updates to local recoverable resources backed out"


Please refer the below displayed code for the reference.


Code:
IF COMM-LAST-MODULE EQUAL 'C'     
    PERFORM 9000-INITIAL-PROCESSING THRU
            9005-INITIAL-PROCESSING-EXIT
ELSE                                   
    PERFORM 0100-PROCESS-SCREEN THRU   
            0105-PROCESS-SCREEN-EXIT.   
                                                                               
EXEC CICS RETURN                       
    RESP(RESPONSE-CODE)                 
END-EXEC.                               
                                       
GOBACK.           


In the above code, the 'Return' command is executing and sending the screen and later whatever key pressed, the abend is thrown.[/b]
Back to top
View user's profile Send private message

Markandeyulu

New User


Joined: 27 May 2010
Posts: 10
Location: Chennai

PostPosted: Mon Jan 24, 2011 9:14 pm    Post subject:
Reply with quote

Please do the needful.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8055
Location: East Dubuque, Illinois, USA

PostPosted: Mon Jan 24, 2011 9:28 pm    Post subject:
Reply with quote

Since transaction HELP and code HLP4 are part of your application, would it not make sense for someone AT YOUR SITE to look at the source code and see under what circumstances the transaction is invoked?

This is an application problem and what you have posted is completely useless -- is the code part of program A, B, C, or D? Where's the XCTL code? Doing a CICS RETURN without a transaction means your application is ending and none of the programs A, B, C, or D will be invoked -- so perhaps you need to look at what is on the screen to see the transaction being started?
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Mon Jan 24, 2011 11:11 pm    Post subject:
Reply with quote

On top of what Robert stated, a RETUN will not send the screen as you stated. You need to read the manual as to the use of the RETURN statement.


In the above code, the 'Return' command is executing and sending the screen and later whatever key pressed, the abend is thrown.
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 Strings with double quotes having pro... raja Arumugam All Other Mainframe Topics 11 Thu Mar 30, 2017 10:34 am
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts ROUNDED Problem with COMPUTE statement shalem COBOL Programming 11 Thu Feb 09, 2017 8:16 pm
No new posts SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us