Convert COMP variable into usage.

Rahul_kumar · New User Joined: 24 Jun 2006 Posts: 50

Hi ,

I need to convert the COMP into usage.Can anyone please let me know how it can be done.

I have 2 fields :

WS-A PIC S9(9) USAGE COMP.
WS-B PIC S9(4) USAGE COMP.

I have to convert the COMP fields into Usage and store it in another output file.
shall I directly move it into a PIC 9(9) usage Display fields or will I have to move it to PIC S9(9) usage Display field or will it be PIC 9(4) usage Display as PIC 9(9) usage COMP occupies 4 bytes.

An urgent reply will be arppreciated.

Thanks,
Rahul

UmeySan · Posted: Thu Dec 11, 2008 2:46 pm

Rahul_kumar !

Why not code your own suggestions, try it out and look what happens ???
Plse tell us the results.

hikaps14 · Active User Joined: 02 Sep 2005 Posts: 189 Location: Noida

You requirements not very clear

Rahul_kumar · New User Joined: 24 Jun 2006 Posts: 50

Hi Kapil and Umey,

thanks for the suggestion.I will be moving the input field S9(9) Comp to the output field S9(9). I think it will occupy 9 bytes.

Thanks ,
Anshul

Bill O'Boyle · Posted: Thu Dec 11, 2008 5:29 pm

A word of caution. S9(09) COMP (a/k/a binary fullword) has a maximum value of 2147483647, which is 10-digits.

As a failsafe, perhaps you should make the receiving field S9(10) and eliminate the possibility of high-order truncation and make sure you use the TRUNC(BIN) compiler option, which will guarantee that high-order truncation will NOT occur.

If your compiler supports COMP-5 (native binary) then the TRUNC option will have no effect and high-order truncation will NOT occur.

Regards,

Bill

Robert Sample · Posted: Thu Dec 11, 2008 6:04 pm

What's the TRUNC option on your COBOL compiler set to? Depending on the TRUNC option, both PIC S9(04) COMP and S9(09) COMP fields could overflow receiving fields of S9(04) USAGE DISPLAY and S9(09) USAGE DISPLAY. TRUNC(STD) means no overflow will occur, TRUNC(BIN) means overflow could definitely occur, and TRUNC(OPT) means overflow may or may not occur.

dick scherrer · Posted: Thu Dec 11, 2008 11:14 pm

Hello,

If you define the receiving field as signed S9(9) or S(910), be prepared to see a sign in the receiving field (i.e. +123 would be 12C, -456 would be 45F).

Bill O'Boyle · Posted: Fri Dec 12, 2008 2:55 am

Robert is absolutely correct regarding the fact that the TRUNC option will be an issue. However, if your compiler supports COMP-5 (Native Binary) then the TRUNC option can remain as it has no effect on COMP-5.

But, if your compiler does not support COMP-5 and you want to use TRUNC(OPT), then you can move your PIC 9(09) COMP field to a PIC 9(18) COMP field, then move the PIC 9(18) COMP field to your 09/10 Byte Display-Numeric field.

Yes, there are some "extra" instructions generated, but they're not too draconian.

Somebody could write a Thesis on the COBOL TRUNC option as over the years, it has become bane with many a techie.

Regards,

Bill

Rahul_kumar · New User Joined: 24 Jun 2006 Posts: 50

Hi all,

I have coded the program as below :

01 WS-A PIC S9(9) comp

01 WS-B.
05 WS-B1 PIC X(1).
05 WS-B2 PIC S9(9).

1) Check the sign by comparing

IF WS-A >= 0
move '+' to WS-B1
ELSE
MOVE '-' TO WS-B1

2)MOVE WS-A TO WS-B2.

I am not sure whether the sign checking is done correctly as shown in 1.
Please let me know in case of any suggestions.

Thanks,
Rahul

muthuvel · Posted: Tue Dec 16, 2008 4:43 pm

Your WS-B2 PIC S9(9) will have the sign and i am not sure is there any requirement to specify + or - outside.

If you want sign also to be displayed irrespective of + or - ,you can try the declaration of 01 WS-B PIC +9(09).

dick scherrer · Posted: Tue Dec 16, 2008 10:33 pm

Hello,

Terry Heinze · Posted: Wed Dec 17, 2008 12:08 am

See the SIGN clause in 5.3.14 of the Language Reference Manual.

Rahul_kumar · New User Joined: 24 Jun 2006 Posts: 50

Hi all,

I have declared WS-B2 PIC S9(9) as PIC 9(9) only.It was by mistake that I had written it as S9(9).I have tested the sign thing by moving -ve value to the COMP field and it getting stored correctly in the display field in output file.
But I still need to test as per "Bill O'Boyle" comments that S9(9) COMP will occupy a max value of 2147483647 and whether it will result in any data loss by moving it to 9(9) display field.

Thanks a lot for your help.

Regards,
Rahul