RE: What to map this to?

["Bale, Dan" <Dan.Bale@xxxxxxxxxxxxx>]

This is a multi-part message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Wouldn't 9 digits fit in a 4-byte long binary field?  Don't know which
'COMP' that is, though.

I don't care to admit how long its been since I've written in COBOL.
You'll know I wasn't in my 20's.

Dan Bale
IT - AS/400
Handleman Company
248-362-4400  Ext. 4952
D.Bale@Handleman.com

> -----Original Message-----
> From: Mark A. Manske [SMTP:mmanske@minter-weisman.com]
> Sent: Wednesday, October 17, 2001 4:54 PM
> To:   rpg400-l@midrange.com
> Subject:      RE: What to map this to?
>
> Mine must be rusty too, because the comp or was it like comp-3 meant
> the
> field was packed
> but that does not add up- length of four would only be a seven digit
> field...
>
>
> time to hit the manuals
>
> -mark
>
> -----Original Message-----
> From: rpg400-l-admin@midrange.com
> [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Robert Upshall
> Sent: Wednesday, October 17, 2001 3:44 PM
> To: rpg400-l@midrange.com
> Subject: What to map this to?
>
>
> I have a tape that I am being sent by a customer.  I have to input the
> file
> and convert it to our format.
>
> I have a record layout from our customer but it appears the file was
> created
> with COBOL, we use RPG.
>
> My problem is I'm not sure how to input one of the fields.  The field
> is
> defined as positions 21-24, length 4, with a pic claus of PIC S9(9)
> COMP.
> My COBOL is very rusty, I have looked at or written a program since
> college
> and from my memory S9(9) would be a value of -999999999 to +999999999
> ...
> how does this fit into a feild of lenght 4 and how do I read this
> value
> properly in RPG?
>
>
> Robert Upshall
> Professional Software of Amarillo
> (806) 358-8928
> rupshall@psasoft.com