display s9(5)v99 comp-3

umasankar.eee06 · New User Joined: 04 Sep 2008 Posts: 11 Location: chennai

i need to display s9(5)v99 comp-3 variable which is declared in the file and when i am displaying the variable by moving it into a WS variable it is not showing correctly. Can anyone help out this issue it is urgent.

Thanks.

ashwinreddy · Posted: Fri Sep 05, 2008 12:42 pm

Hi,

The Working Storage Variable should have the same declaration as the file variable.

If You are doing soo, then if you display either file variable or Ws variable it should display correctly.

Check your declaration Part or post more details as declartion and variables .. etc.

Cheers
Ashwin

umasankar.eee06 · New User Joined: 04 Sep 2008 Posts: 11 Location: chennai

Hi ashwinreddy,

Here is complete details, I have a file in that one of the fields is declared as s9(5)v99 comp-3 , and copybook also having the same declaration. Just for checking I declared one ws variale with same declaration and displayed that. But I didt get the actual value having the file.
ex:
value in file is 1143.56
Output value is 000 011(i got)

Can u help me how can I declare in ws to get the currect value?

Thanks

Arun Raj · Posted: Fri Sep 05, 2008 1:30 pm

umasankar.eee06,

Try moving s9(5)v99 comp-3 variable to another variable defined as -9(5).99 and DISPLAY the latter one.

Thanks,
Arun

Craq Giegerich · Posted: Fri Sep 05, 2008 1:31 pm

Having used cobol for 40 years I don't think we are getting the full explanation.

umasankar.eee06 · New User Joined: 04 Sep 2008 Posts: 11 Location: chennai

Hi arun,

Try moving s9(5)v99 comp-3 variable to another variable defined as -9(5).99 and DISPLAY the latter one.

I got soc7 error.

umasankar.eee06 · New User Joined: 04 Sep 2008 Posts: 11 Location: chennai

Hi all,
No one can solve my prob?????

Craq Giegerich · Posted: Fri Sep 05, 2008 4:41 pm

If you got an oc7 then the s9(5)v99 comp-3 variable does not contain a valid comp-3 value!

Redefine the s9(5)v99 comp-3 variable as x(4), display the x(4) variable and view the log with hex on to see what is there!

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

the output of this test

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

yes, as Crag said...check the value of that field.

Robert Sample · Posted: Fri Sep 05, 2008 4:57 pm

umasankar.eee06 · New User Joined: 04 Sep 2008 Posts: 11 Location: chennai

Copy Book Declaration
15 MDC01-LAST-COST PIC S9(5)V99 COMP-3.

WS Variable
77 OLAST-COST PIC S9(5)V99 COMP-3.

READ IMDC-FILE INTO MDC-RECORD

MOVE MDC01-LAST-COST TO OLAST-COST.
DISPLAY 'Cost:' OLAST-COST.

MDC record contains MDC01-LAST-COST field having value 1143.56 but in the sysout it is showing 000 001
Now Can you suggest me to display the value 1143.56 exactly in sysout

Craq Giegerich · Posted: Fri Sep 05, 2008 5:26 pm

My guess would be that the actual record data does not match the copy book!

Robert Sample · Posted: Fri Sep 05, 2008 6:01 pm

Change

birdy K · New User Joined: 05 Mar 2008 Posts: 72 Location: chennai

HI

You can move the comp-3 variable to another variable which can be declared as z(5)v9(2). Display that . You are able to see that. Comp-3 varaiable can be displayed when it is in editable characters. I tried this is working. Corrections are welcome.

umasankar.eee06 · New User Joined: 04 Sep 2008 Posts: 11 Location: chennai

Hi birdy,
It is working. Thank u. Thanks for every one for giving good suggestions.

birdy K · New User Joined: 05 Mar 2008 Posts: 72 Location: chennai

welcome