View previous topic :: View next topic
|
Author |
Message |
chandan.inst
Active User
Joined: 03 Nov 2005 Posts: 275 Location: Mumbai
|
|
|
|
Hi All,
I am trying to pass few comp variables to Sub program but its giving me a problem which is explained below:
Let say Main program 'A' calls to subprogram 'B'
Program A:
WORKING-STORAGE-SECTION.
01 WS-VARIABLES.
05 A PIC X(5)
05 B PIC 9(2)
05 C PC S9(4) COMP.
PROCEDURE DIVISION.
INITIALIZE WS-VARIABLES.
CALL B USING WS-VARIABLES
Program B:
LINKAGE-SECTION
01 WS-VARIABLES.
05 X PIC X(5)
05 Y PIC 9(2)
05 Z PC S9(4) COMP
PROCEDURE DIVISION USING WS-VARIABLES.
DISPLAY 'Value of Z: ' Z
Its displaying value of Z as 16448.
when I changed declaration of Z to 9(2) it showed value of Z as Spaces.This is fine as I am initializing WS-variables.
I am not able to find out reason behind the issue when using S9(4) comp.
I will be very thankful if anyone guide me on this.
Regards,
Chandan |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
how would decimal 16448 be stored in a COMP field? 4040
you are displaying a comp field. the display converts the comp to display.
10 seconds with a scientific calculator
(one of which is provided in your base PC software)
would have shown you the answer.
or
basic understanding of the display command.
understand the fundamentals and the complex things are easier to grasp. |
|
Back to top |
|
|
ashutosh.pr
New User
Joined: 13 Apr 2007 Posts: 36 Location: Pune
|
|
|
|
You are not able to pass value or you are not able to display value??
Regards,
Ashutosh |
|
Back to top |
|
|
chandan.inst
Active User
Joined: 03 Nov 2005 Posts: 275 Location: Mumbai
|
|
|
|
Sorry for the inconvenience Dick..
I got the resolution for the problem..
Hence forth I will do thourugh analysis before posting
Regards,
Chandan |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
chandan.inst,
I apologize for my attitude.
my intent was to explain the problem
and motivate you to think about things.
Though I was rude to you, you rose above the garbage and saw the point. |
|
Back to top |
|
|
|