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
 
Linkage section Data is getting lost

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

New User


Joined: 25 Feb 2006
Posts: 38
Location: chennai-india

PostPosted: Fri Aug 03, 2007 12:47 pm    Post subject: Linkage section Data is getting lost
Reply with quote

Hi all,

Linkage section Data is getting lost, can any one tell me the reason.

SITUATION:
In one program A, 01 level variable is populated with some values.
And in program B same 01 level is declared and address is set to that 01 variable the same value is present after some times its getting lost.

I Xped'd the programs and saw the data is present in both programs but after some times the data is getting lost in any one of the programs..

CODE IN BOTH PROGRAMS

02 WS-PLANBAR1 PIC S9(8) COMP.
02 WS-PLANBAR1-PTR REDEFINES
WS-PLANBAR1 POINTER.

01 PLAN-AREA.
COPY F575041M.
;;;
;;;;
;;;;;;
MOVE TCR-PLN-PROC-AREA TO WS-PLANBAR1.
SET ADDRESS OF PLAN-AREA TO WS-PLANBAR1-PTR.

What may be the reason for it....


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

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6968
Location: porcelain throne

PostPosted: Fri Aug 03, 2007 1:07 pm    Post subject: a lil more info, pls
Reply with quote

couple items to help in the diagnosis:
  1. in your description above, where do the DATA-DIV, WORKING-STORAGE, LOCAL, & LINKAGE for both modules fit?
  2. Is this E-COBOL or OS390?
    • If E-COBOL, are these module nested?
  3. What do your procedure division using statements look like?
  4. What does the transfer of control statement look like?
  5. what structure contains TCR-PLN-PROC-AREA and where is it defined?
Back to top
View user's profile Send private message
kapil_tv

New User


Joined: 02 Aug 2007
Posts: 3
Location: Pune

PostPosted: Fri Aug 03, 2007 1:46 pm    Post subject: Re: Linkage section Data is getting lost
Reply with quote

Hi,

Might be you have not returned the program with the proper DFHCOMMAREA in the return statement.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Aug 03, 2007 7:38 pm    Post subject:
Reply with quote

Hello,

I suspect the code has moved "something" over the value - one way or another.

When the data "gets lost" what is the "lost" content (i.e. after the good data goes away, what is in the fields)?
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Mon Aug 06, 2007 7:30 am    Post subject:
Reply with quote

the code above is just establishing addressability to data areas,

how are you getting data area from prog a" to prog b"

COMMAREA

TEMPSTORAGE

?? you really need to give a little more information, before can
be of much help.
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 Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Question related to Data dictionary f... rexx77 SYNCSORT 3 Thu Aug 31, 2017 7:23 am

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