Comp-3
in [Cobol]
|
Prev: IBM Mainframes (and Heads-up: Automatic Daylight Savings Time Change via Sysplex Timer May Not Work
Next: Inspect tallying?
From: GARY on 16 Jul 2006 13:37 What is the ASCII equivalent of a field with a PIC of "S9(09)v99 Comp-3"?
From: HeyBub on 16 Jul 2006 14:18 GARY wrote: > What is the ASCII equivalent of a field with a PIC of "S9(09)v99 > Comp-3"? There isn't one. There's no "ASCII equivalent" of any data definition. Perhaps you could rephrase? I can tell you the above PIC defines (usually) six bytes with a decimal digit in each half-byte and the last half-byte contains the algebraic sign of the number. i.e., 12 34 56 78 91 2S = 123,456,789.12
From: GARY on 16 Jul 2006 15:12 How many text (ASCII) characters are contained in each of the following fields? In the "COMP-3" fields, how are negative numbers (for example, -00000048612) shown? PIC X(01) PIC 9(09) PIC 9(04) PIC 9(02) PIC 9(07) PIC 9(02) PIC 9(02) PIC 9(04) PIC 9(01) PIC 9(06) PIC 9(07) PIC S9(09)V99 COMP-3 PIC S9(05)V99 COMP-3 PIC S9(02)V99 COMP-3 PIC S9(05)V99 COMP-3 PIC 9(04) PIC 9(04) PIC S9(09) COMP-3 PIC S9(09)V99 COMP-3 PIC S9(03)V99 COMP-3 PIC S9(03)V99 COMP-3 PIC S9(03)V99 COMP-3 PIC S9(09)V99 COMP-3 PIC 9(08) PIC X(01) PIC 9(02) PIC X(02) PIC S9(07)V99 COMP-3 PIC X(04) PIC 9(07) PIC 9(04) PIC 9(05) PIC S9(09)V99 COMP-3 PIC S9(09)V99 COMP-3 PIC S9(03)V99 COMP-3 PIC S9(03)V99 COMP-3 PIC S9(07)V99 COMP-3 PIC X(01) PIC X(02)
From: William M. Klein on 16 Jul 2006 15:19 What operating system? What compiler? What compiler options specified? and what do you think the answers are? -- Bill Klein wmklein <at> ix.netcom.com "GARY" <gcotterl(a)co.riverside.ca.us> wrote in message news:1153077136.934457.120940(a)i42g2000cwa.googlegroups.com... > How many text (ASCII) characters are contained in each of the following > fields? > In the "COMP-3" fields, how are negative numbers (for example, > -00000048612) shown? > > PIC X(01) > PIC 9(09) > PIC 9(04) > PIC 9(02) > PIC 9(07) > PIC 9(02) > PIC 9(02) > PIC 9(04) > PIC 9(01) > PIC 9(06) > PIC 9(07) > PIC S9(09)V99 COMP-3 > PIC S9(05)V99 COMP-3 > PIC S9(02)V99 COMP-3 > PIC S9(05)V99 COMP-3 > PIC 9(04) > PIC 9(04) > PIC S9(09) COMP-3 > PIC S9(09)V99 COMP-3 > PIC S9(03)V99 COMP-3 > PIC S9(03)V99 COMP-3 > PIC S9(03)V99 COMP-3 > PIC S9(09)V99 COMP-3 > PIC 9(08) > PIC X(01) > PIC 9(02) > PIC X(02) > PIC S9(07)V99 COMP-3 > PIC X(04) > PIC 9(07) > PIC 9(04) > PIC 9(05) > PIC S9(09)V99 COMP-3 > PIC S9(09)V99 COMP-3 > PIC S9(03)V99 COMP-3 > PIC S9(03)V99 COMP-3 > PIC S9(07)V99 COMP-3 > PIC X(01) > PIC X(02) >
From: GARY on 16 Jul 2006 16:03
My "guess" is: PIC X(01) 1 PIC 9(09) 9 PIC 9(04) 4 PIC 9(02) 2 PIC 9(07) 7 PIC 9(02) 2 PIC 9(02) 2 PIC 9(04) 4 PIC 9(01) 1 PIC 9(06) 6 PIC 9(07) 7 PIC S9(09)V99 COMP-3 11 PIC S9(05)V99 COMP-3 7 PIC S9(02)V99 COMP-3 4 PIC S9(05)V99 COMP-3 7 PIC 9(04) 4 PIC 9(04) 4 PIC S9(09) COMP-3 9 PIC S9(09)V99 COMP-3 11 PIC S9(03)V99 COMP-3 5 PIC S9(03)V99 COMP-3 5 PIC S9(03)V99 COMP-3 5 PIC S9(09)V99 COMP-3 11 PIC 9(08) 8 PIC X(01) 1 PIC 9(02) 2 PIC X(02) 2 PIC S9(07)V99 COMP-3 9 PIC X(04) 4 PIC 9(07) 7 PIC 9(04) 4 PIC 9(05) 5 PIC S9(09)V99 COMP-3 11 PIC S9(09)V99 COMP-3 11 PIC S9(03)V99 COMP-3 5 PIC S9(03)V99 COMP-3 5 PIC S9(07)V99 COMP-3 9 PIC X(01) 1 PIC X(02) 2 Note: The "Comp-8" LRECL = 160; the LRECL of my "guess" = 214 |