Eben,

05 in-total pic s9(27) comp-3. This assumes decimal place the the end. If
you're using dollars and cents then it would be pic s9(25)v9(2) comp-3.

John Zoltak
North American Mfg Co
Cleveland Ohio

> -----Original Message-----
> From: Eben Yong [mailto:[log in to unmask]]
> Sent: Thursday, October 14, 1999 10:35 AM
> To: [log in to unmask]
> Subject: [HP3000-L] HOW TO DEFINE P28 field in COBOL WORKING-STORAGE?
>
>
> Hi folks,
>
> Here's the SUPRTOOL file layout:
>
>     File: Z1.EBEN.AIHBETA     (SD Version B.00.00)
>        Entry:                     Offset
>           A                    X6      1
>           ST-TOTAL-1           P28     7
>     Limit: 28  EOF: 28  Entry Length: 20  Blocking: 64
>
> how do I define the ST-TOTAL-1 field in the COBOL program?
>
> +7   file-control.
> +8       select     IN-FILE         assign to "INFILE".
> +9       select     OUT-FILE        assign to "OUTFILE".
> 10   data                              division.
> 11   file                              section.
> 12   fd  IN-FILE.
> 13   01  IN-RECORD.
> 14       05  IN-A                      pic x(6).
> 15       05  IN-TOTAL                  pic ?????????.
> 16
>