26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
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
|