00001 *****                                                             08/31/98
00002 *                                                                 DTSICCMP
00003 *    DTSICCMP    COMPRESSION/EXPANSION CONSTANTS AND WORK AREAS.     LV002
00004 *                                                                 DTSICCMP
00005 *                IF THIS CODE IS CHANGED, THEN RECOMPILE          DTSICCMP
00006 *                MACCU810 AND MACBU910.                           DTSICCMP
00007 *                                                                 DTSICCMP
00008 *                                                                    CL**2
00009 *                08/31/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00010 *                                                                    CL**2
00011 *****                                                             DTSICCMP
00012                                                                      CL**2
00013      05  CMP-ACTUAL-VALUES-BYTE      PIC  X(01)  VALUE X'00'.     DTSICCMP
00014      05  CMP-LOW-VALUES-BYTE         PIC  X(01)  VALUE X'40'.     DTSICCMP
00015      05  CMP-PACKED-ZERO-BYTE        PIC  X(01)  VALUE X'80'.     DTSICCMP
00016      05  CMP-SPACES-BYTE             PIC  X(01)  VALUE X'C0'.     DTSICCMP
00017                                                                      CL**2
00018      05  CMP-STRING-MAX              PIC S9(04)  COMP  VALUE +63. DTSICCMP
00019                                                                      CL**2
00020      05  CMP-PACKED-ZERO-LIT         PIC  X(01)  VALUE X'0C'.     DTSICCMP
00021                                                                      CL**2
00022      05  CMP-BINARY-HALF-WORD        PIC S9(04)  COMP.            DTSICCMP
00023      05  FILLER REDEFINES CMP-BINARY-HALF-WORD.                   DTSICCMP
00024          10  CMP-BINARY-HALF-BYTE-1 PIC   X(01).                  DTSICCMP
00025          10  CMP-BINARY-HALF-BYTE-2 PIC   X(01).                  DTSICCMP
00026                                                                      CL**2
00027      05  CMP-SUB-S1                  PIC S9(04)  COMP.            DTSICCMP
00028      05  CMP-SUB-S2                  PIC S9(04)  COMP.            DTSICCMP
00029                                                                      CL**2
00030      05  CMP-STRING-LENGTH           PIC S9(04)  COMP.            DTSICCMP
00031                                                                      CL**2
00032      05  CMP-STRING-COMPLETE-IND     PIC  X(01).                  DTSICCMP