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