Euro tip search (decimals display only)

[pippolo]

I'm looking for a tip that would solve my troubles with the euro software conversion: I would like to know how to display a value with the decimal point (ie. PIC ZZZ,ZZZ.Z9 for euros) while the program deals with it as an integer when I move it to the working field (if I do so the decimals are truncated).

 

[StephenJSpiro]

Need complete descriptions of the sending and receiving fields.

Stephen J Spiro
Member, J4 COBOL Standards Committee
check it out at

http://people.ne.mediaone.net/doncobol/

and

http://www.merant.com/Standards/

stephenjspiro at hotmail.com

 

[RonaldB]

Pippolo,

if you want to display an edited numeric field with 2 decimal positions, your sending field must have them too, something like PIC S9(6)V99.
If not, before moving, you'll have to work in those decimals by dividing by 100. Of course, the receiving field of that division must have a picture as described above; i'm not sure if you can have the result sent to the edited field straight away.

At my site, we use a standard PIC S9(17) PACKED-DECIMAL for all amounts; if needed, the decimal position is introduced depending on the currency involved.

Regards,
Ronald.

 

[Crox]

Hi,

01 INTEGER-FIELD PIC S9(18).
01 INTEGER-FIELD-V99 REDEFINES INTEGER-FIELD PIC S9(16)v99.
01 DISP-FIELD PIC Z,ZZZ,ZZZ,ZZZ,ZZZ,ZZ9.99.

Now you can work with the integer-field and at print- or display-time you move the integer-field-v99 to the disp-field because it is the same field in fact, only with an other position of the decimal-point.

I hope this is helpful.

Regards,

Crox