View previous topic :: View next topic
|
Author |
Message |
som_infotech
New User
Joined: 25 Feb 2006 Posts: 38 Location: chennai-india
|
|
|
|
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 |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
couple items to help in the diagnosis:- in your description above, where do the DATA-DIV, WORKING-STORAGE, LOCAL, & LINKAGE for both modules fit?
- Is this E-COBOL or OS390?
- If E-COBOL, are these module nested?
- What do your procedure division using statements look like?
- What does the transfer of control statement look like?
- what structure contains TCR-PLN-PROC-AREA and where is it defined?
|
|
Back to top |
|
|
kapil_tv
New User
Joined: 02 Aug 2007 Posts: 3 Location: Pune
|
|
|
|
Hi,
Might be you have not returned the program with the proper DFHCOMMAREA in the return statement. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
Earl
Active User
Joined: 17 Jun 2007 Posts: 148 Location: oklahoma
|
|
|
|
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 |
|
|
|