COBOL OverPunch chars for Zoned numbers EBCDIC-HEX Value Ascii signed unsign NetCOBOL +0 { x7B C0 F0 @ x40 +1 A x41 C1 F1 A x41 +2 B x42 C2 F2 B x42 +3 C x43 C3 F3 C x43 +4 D x44 C4 F4 D x44 +5 E x45 C5 F5 E x45 +6 F x46 C6 F6 F x46 +7 G x47 C7 F7 G x47 +8 H x48 C8 F8 H x48 +9 I x49 C9 F9 I x49 -0 } x7D D0 P x50 -1 J x4A D1 Q x51 -2 K x4B D2 R x52 -3 L x4C D3 S x53 -4 M x4D D4 T x54 -5 N x4E D5 U x55 -6 O x4F D6 V x56 -7 P x50 D7 W x57 -8 Q x51 D8 X x58 -9 R x52 D9 Y x59 Value EBCDIC hex Chars ASCII hex +120 F1, F2, C0 "12{" 31, 32, 7B +121 F1, F2, C1 "12A" 31, 32, 41 +122 F1, F2, C2 "12B" 31, 32, 42 +123 F1, F2, C3 "12C" 31, 32, 43 123 F1, F2, F3 "123" 31, 32, 33 -123 F1, F2, D3 "12L" 31, 32, 4C " 123" 40 F1 F2 D3 " 12L" 20 31 32 4C EBC space = "@" 0x40 Keven Miller 02/01/2011