50 lines
3.9 KiB
COBOL
50 lines
3.9 KiB
COBOL
00001 ***** 09/29/98
|
|
00002 * DTSIC991
|
|
00003 * MACIC991 BINARY TO HEXIDECIMAL CONVERSION. LV002
|
|
00004 * DTSIC991
|
|
00005 * CL**2
|
|
00006 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIC991
|
|
00009 CL**2
|
|
00010 05 C991-LITERAL-AREA. DTSIC991
|
|
00011 CL**2
|
|
00012 10 FILLER PIC X(14) VALUE '01020304050607'.DTSIC991
|
|
00013 10 FILLER PIC X(16) VALUE '08090A0B0C0D0E0F'.DTSIC991
|
|
00014 10 FILLER PIC X(16) VALUE '1011121314151617'.DTSIC991
|
|
00015 10 FILLER PIC X(16) VALUE '18191A1B1C1D1E1F'.DTSIC991
|
|
00016 10 FILLER PIC X(16) VALUE '2021222324252627'.DTSIC991
|
|
00017 10 FILLER PIC X(16) VALUE '28292A2B2C2D2E2F'.DTSIC991
|
|
00018 10 FILLER PIC X(16) VALUE '3031323334353637'.DTSIC991
|
|
00019 10 FILLER PIC X(16) VALUE '38393A3B3C3D3E3F'.DTSIC991
|
|
00020 10 FILLER PIC X(16) VALUE '4041424344454647'.DTSIC991
|
|
00021 10 FILLER PIC X(16) VALUE '48494A4B4C4D4E4F'.DTSIC991
|
|
00022 10 FILLER PIC X(16) VALUE '5051525354555657'.DTSIC991
|
|
00023 10 FILLER PIC X(16) VALUE '58595A5B5C5D5E5F'.DTSIC991
|
|
00024 10 FILLER PIC X(16) VALUE '6061626364656667'.DTSIC991
|
|
00025 10 FILLER PIC X(16) VALUE '68696A6B6C6D6E6F'.DTSIC991
|
|
00026 10 FILLER PIC X(16) VALUE '7071727374757677'.DTSIC991
|
|
00027 10 FILLER PIC X(16) VALUE '78797A7B7C7D7E7F'.DTSIC991
|
|
00028 10 FILLER PIC X(16) VALUE '8081828384858687'.DTSIC991
|
|
00029 10 FILLER PIC X(16) VALUE '88898A8B8C8D8E8F'.DTSIC991
|
|
00030 10 FILLER PIC X(16) VALUE '9091929394959697'.DTSIC991
|
|
00031 10 FILLER PIC X(16) VALUE '98999A9B9C9D9E9F'.DTSIC991
|
|
00032 10 FILLER PIC X(16) VALUE 'A0A1A2A3A4A5A6A7'.DTSIC991
|
|
00033 10 FILLER PIC X(16) VALUE 'A8A9AAABACADAEAF'.DTSIC991
|
|
00034 10 FILLER PIC X(16) VALUE 'B0B1B2B3B4B5B6B7'.DTSIC991
|
|
00035 10 FILLER PIC X(16) VALUE 'B8B9BABBBCBDBEBF'.DTSIC991
|
|
00036 10 FILLER PIC X(16) VALUE 'C0C1C2C3C4C5C6C7'.DTSIC991
|
|
00037 10 FILLER PIC X(16) VALUE 'C8C9CACBCCCDCECF'.DTSIC991
|
|
00038 10 FILLER PIC X(16) VALUE 'D0D1D2D3D4D5D6D7'.DTSIC991
|
|
00039 10 FILLER PIC X(16) VALUE 'D8D9DADBDCDDDEDF'.DTSIC991
|
|
00040 10 FILLER PIC X(16) VALUE 'E0E1E2E3E4E5E6E7'.DTSIC991
|
|
00041 10 FILLER PIC X(16) VALUE 'E8E9EAEBECEDEEEF'.DTSIC991
|
|
00042 10 FILLER PIC X(16) VALUE 'F0F1F2F3F4F5F6F7'.DTSIC991
|
|
00043 10 FILLER PIC X(16) VALUE 'F8F9FAFBFCFDFEFF'.DTSIC991
|
|
00044 SKIP3 DTSIC991
|
|
00045 05 FILLER REDEFINES C991-LITERAL-AREA. DTSIC991
|
|
00046 10 C991-ENTRY OCCURS 255 TIMES DTSIC991
|
|
00047 INDEXED BY C991-IDX. DTSIC991
|
|
00048 15 C991-HEX-1 PIC X(01). DTSIC991
|
|
00049 15 C991-HEX-2 PIC X(01). DTSIC991
|