Re: Ugh.

["R. Bruce Hoffman, Jr." <rbruceh@xxxxxxxxxxxxx>]

don't use comp. This is the age of COBOL 85.

Use:

  77 field1 pic s9(7)v2 packed-decimal.
  77 field2 pic s9(9) binary.
  77 field3 pic s9(9).

Under normal circumstances, that last one is USAGE IS DISPLAY which is zoned
decimal.
You could spell it out with
  77 field3 pic s9(9) display.

===========================================================
R. Bruce Hoffman, Jr.
 -- IBM Certified Specialist - iSeries Administrator
 -- IBM Certified Specialist - RPG IV Developer

"There is a crack in everything,
  that's how the light gets in.
    - Leonard Cohen

----- Original Message -----
From: "Joe Pluta" <joepluta@PlutaBrothers.com>
To: <cobol400-l@midrange.com>
Sent: Wednesday, July 24, 2002 2:25 PM
Subject: Ugh.


> This I SHOULD know.  But I don't.  Which COMP do I use to set up a 2-digit
> zoned field?
>
> >sigh<
>
> PIC 9(2) seems to define a packed field.
>
> Joe
>
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
> To post a message email: COBOL400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
> or email: COBOL400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>