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
 
TWA variable having junk value after the SYNCPOINT ROLLBACK?

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

Active User


Joined: 28 Jun 2010
Posts: 102
Location: chennai

PostPosted: Tue May 13, 2014 7:59 pm    Post subject: TWA variable having junk value after the SYNCPOINT ROLLBACK?
Reply with quote

We are using the SYNCPOINT ROLLBACK in one of our CICS program. After the execution of rollback statement, TWA variables have junk values though we assign the address and try to refer the storage again.

Code:

                    IF WS-ROLLBACK-SW = 'Y'                     
                       INITIALIZE WS-TCR-COPY1 
                       MOVE TCRFWADS TO WS-TCR-COPY1     
                      EXEC CICS                               
                            SYNCPOINT ROLLBACK                 
                       END-EXEC                                 
                       PERFORM 1000-TRNSCTN-WRKAREA         
                               THRU 1000-TRNSCTN-WRKAREA-EXIT           
                       MOVE WS-TCRMAPNAME    TO TCRMAPNAME     
//*We just wanted to force the value to see whether it is getting picked up. For sample we used one variable. All the TWA variables are not being recognized itself. TWA variables still have junk values.   
                      INITIALIZE TCRFWADS TWA-COMMAREA   
//*---- Initializing is also not working.           
                      MOVE WS-TCR-COPY1     TO TCRFWADS           

//*TCRFWADS – 01 level of TWA variable
//*TCRMAPNAME – is one of the TWA variable in Linkage section .
//*WS-TCRMAPNAME – is one of the working storage variable in working storage section mirroring the Linkage section TWA variables.

1000-TRNSCTN-WRKAREA.                         
                                                   
     EXEC CICS ADDRESS                             
          TWA(ADDRESS OF  TRANSACTION-WORK-AREA)
     END-EXEC.                                     
                                                 
     EXEC CICS                                     
          ASKTIME ABSTIME(WS-HOLD-TIME)           
     END-EXEC.                                     
     EXEC CICS FORMATTIME                         
          ABSTIME (WS-HOLD-TIME)                   
          DATESEP ('/') MMDDYYYY(WS-CURRENT-DT)   
          YYDDD   (WS-CURR-DATE)                   
     END-EXEC.                       
    MOVE MET-TWA-TCR-POINTER  TO  WS-TCRBAR.     
SET  ADDRESS OF TCRFWADS  TO  WS-TCRBAR-PTR. 
                                             
MOVE TCR-MED-MAP-POINTER  TO  WS-MAPBASE1.   
SET  ADDRESS OF BASE-AREA TO  WS-MAPBASE1-PTR.

1000-TRNSCTN-WRKAREA-EXIT.
    EXIT.                     


LINKAGE SECTION.

01 TCRFWADS SYNCHRONIZED.


WORKING STORAGE SECTION.

01 WS-TCR-COPY1 SYNCHRONIZED.   
//*Structure corresponds to 01 TCRFWADS structure in linkage section
     02  WS-TCR-COPY1A.
           …….
           …….




[/quote]

Thanks in advance.
Back to top
View user's profile Send private message

Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2504
Location: Atlanta, Georgia, USA

PostPosted: Tue May 13, 2014 11:47 pm    Post subject: Reply to: TWA variable having junk value after the SYNCPOINT
Reply with quote

This is strange. The only thing I can suggest is to issue a GETMAIN and move the TWA to this GETMAIN area before the ROLLBACK and then, restore the TWA from the GETMAIN area and FREEMAIN this storage.

You should issue the ADDRESS TWA to establish addressability before restoring the TWA from the GETMAIN area.

Also, copy/save the TWA addresses before and after the ROLLBACK. They should not be different.
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 Move from Comp3 variable to Edited Va... Revathy.nair0485 COBOL Programming 7 Fri Nov 03, 2017 3:30 pm
This topic is locked: you cannot edit posts or make replies. Can a alphanumeric data be moved to a... nico_neoz COBOL Programming 10 Mon Oct 30, 2017 8:28 am
No new posts Moving values to a variable of copybo... Vignesh Sid COBOL Programming 6 Wed Sep 06, 2017 1:04 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts Move from Comp3 variable to Edited Va... sreekusr COBOL Programming 8 Thu Aug 10, 2017 4:20 pm

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