00001 *****                                                             08/11/98
00002 *                                                                 DTSICATB
00003 *    DTSICATB  ATTRIBUTE BYTE LITERALS.                              LV003
00004 *                                                                 DTSICATB
00005 *              REVIEWED AND MODIFIED FOR DC.  08/11/1998  EHH        CL**3
00006 *                                                                    CL**3
00007 *****                                                             DTSICATB
00008      05  CATB-ATTRB-LIT.                                          DTSICATB
00009          10  CATB-UNPROT-NORM-AN-MDTON    PIC  X(01)  VALUE 'A'.  DTSICATB
00010          10  CATB-UNPROT-BRT-AN-MDTOFF    PIC  X(01)  VALUE 'H'.  DTSICATB
00011          10  CATB-UNPROT-BRT-AN-MDTON     PIC  X(01)  VALUE 'I'.  DTSICATB
00012          10  CATB-UNPROT-NORM-NUM-MDTON   PIC  X(01)  VALUE 'J'.  DTSICATB
00013          10  CATB-UNPROT-BRT-NUM-MDTOFF   PIC  X(01)  VALUE 'Q'.  DTSICATB
00014          10  CATB-UNPROT-BRT-NUM-MDTON    PIC  X(01)  VALUE 'R'.  DTSICATB
00015          10  CATB-PROT-NORM-MDTOFF        PIC  X(01)  VALUE '-'.  DTSICATB
00016          10  CATB-PROT-NORM-MDTON         PIC  X(01)  VALUE '/'.  DTSICATB
00017          10  CATB-PROT-BRT-MDTOFF         PIC  X(01)  VALUE 'Y'.  DTSICATB
00018          10  CATB-PROT-BRT-MDTON          PIC  X(01)  VALUE 'Z'.  DTSICATB
00019          10  CATB-ASKIP-NORM-MDTOFF       PIC  X(01)  VALUE '0'.  DTSICATB
00020          10  CATB-ASKIP-NORM-MDTON        PIC  X(01)  VALUE '1'.  DTSICATB
00021          10  CATB-ASKIP-BRT-MDTOFF        PIC  X(01)  VALUE '8'.  DTSICATB
00022          10  CATB-ASKIP-BRT-MDTON         PIC  X(01)  VALUE '9'.  DTSICATB
00023          10  CATB-ASKIP-DRK-MDTOFF        PIC  X(01)  VALUE '@'.  DTSICATB
00024                                                                   DTSICATB
00025          10  CATB-CURSOR             PIC S9(04) COMP VALUE -1.    DTSICATB