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

47
Copybook/DTSIL112.cpy Normal file
View File

@ -0,0 +1,47 @@
00001 ***** 10/15/98
00002 * DTSIL112
00003 * DTSIL112 FORMAT ADDRESS FOR MAILING. LV005
00004 * DTSIL112
00005 ***** DTSIL112
00006 SKIP1 DTSIL112
00007 10 L112-ADDR-TYPE PIC X(01). DTSIL112
00008 88 L112-TAD-ADDR-88 VALUE '1'. DTSIL112
00009 88 L112-TAA-ADDR-88 VALUE '2'. DTSIL112
00010 88 L112-OPO-ADDR-88 VALUE '3'. DTSIL112
00011 88 L112-BAA-ADDR-88 VALUE '4'. DTSIL112
00012 88 L112-FID-MAILING-ADDR-88 VALUE '8'. CL**5
00013 88 L112-FID-PHYSICAL-ADDR-88 VALUE '9'. CL**5
00014 SKIP1 DTSIL112
00015 10 L112-ANCHOR-LINE-IND PIC X(01). DTSIL112
00016 88 L112-ANCHOR-FIRST-88 VALUE 'F'. DTSIL112
00017 88 L112-ANCHOR-LAST-88 VALUE 'L'. DTSIL112
00018 SKIP1 DTSIL112
00019 10 L112-PRIMARY-NAME PIC X(40). CL**2
00020 SKIP1 DTSIL112
00021 10 L112-NAME-ADDRESS-AREA. DTSIL112
00022 15 L112-NAME PIC X(40). DTSIL112
00023 SKIP1 DTSIL112
00024 15 L112-TITLE PIC X(20). DTSIL112
00025 SKIP1 DTSIL112
00026 15 L112-ADDRESS. DTSIL112
00027 20 L112-ATTN-LINE PIC X(40). DTSIL112
00028 20 L112-DELIV-LINE-1 PIC X(40). CL**4
00029 20 L112-DELIV-LINE-2 PIC X(40). CL**4
00030 20 L112-CITY PIC X(25). DTSIL112
00031 20 L112-ST PIC X(02). DTSIL112
00032 20 L112-ZIP PIC X(10). DTSIL112
00033 20 L112-ADVANCED-BARCODE CL**4
00034 PIC X(14). CL**4
00035 SKIP3 DTSIL112
00036 10 L112-MAILING-ADDRESS. DTSIL112
00037 15 L112-MAILING-LINE-1 PIC X(40). DTSIL112
00038 15 L112-MAILING-LINE-2 PIC X(40). DTSIL112
00039 15 L112-MAILING-LINE-3 PIC X(40). DTSIL112
00040 15 L112-MAILING-LINE-4 PIC X(40). DTSIL112
00041 15 L112-MAILING-LINE-5 PIC X(40). DTSIL112
00042 10 FILLER REDEFINES L112-MAILING-ADDRESS. DTSIL112
00043 15 L112-MAILING-LINE OCCURS 5 TIMES DTSIL112
00044 INDEXED BY L112-MAILING-IDX DTSIL112
00045 PIC X(40). DTSIL112
00046 SKIP1 DTSIL112
00047 10 FILLER PIC X(86). DTSIL112