giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Copybook/DTSICATB.cpy Normal file
View File

@ -0,0 +1,25 @@
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