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

68
Copybook/DTSIFFID.cpy Normal file
View File

@ -0,0 +1,68 @@
00001 ***** 08/12/98
00002 * DTSIFFID
00003 * DTSIFFID REFERENCE FILE 'FIELD REPRESENTATIVE RECORD' LV006
00004 * DEFINITION. DTSIFFID
00005 * DTSIFFID
00006 ***** DTSIFFID
00007 CL**4
00008 10 FFID-KEY-AREA. DTSIFFID
00009 15 FFID-REC-TYPE PIC S9(04) COMP. DTSIFFID
00010 88 FFID-FID-88 VALUE +07. DTSIFFID
00011 15 FFID-FLD-REP-ID PIC X(02). DTSIFFID
00012 88 FFID-UNASSIGNED-88 VALUE 'FD'. DTSIFFID
00013 88 FFID-DC-UNKNOWN-88 VALUE '??'. CL**2
00014 88 FFID-ACCOUNTING-DESK-88 VALUE 'AD'. CL**2
00015 88 FFID-FIELD-DESK-88 DTSIFFID
00016 VALUE 'FD' '??'. CL**2
00017 15 FFID-KEY-FILLER PIC X(12). DTSIFFID
00018 CL**4
00019 10 FFID-DATA-AREA. DTSIFFID
00020 15 FFID-OP-ID PIC X(08). DTSIFFID
00021 CL**4
00022 15 FFID-ACCOUNTING-TECH-CD PIC X(03). CL**2
00023 CL**4
00024 15 FFID-NAME PIC X(32). DTSIFFID
00025 CL**4
00026 15 FFID-CASUAL-NAME PIC X(12). DTSIFFID
00027 CL**4
00028 15 FFID-MAIL-ADDR. DTSIFFID
00029 20 FFID-MAIL-ATTN-LINE PIC X(40). CL**3
00030 20 FFID-MAIL-DELIV-LINE-1 PIC X(40). CL**3
00031 20 FFID-MAIL-DELIV-LINE-2 PIC X(40). CL**3
00032 20 FFID-MAIL-CITY PIC X(25). CL**3
00033 20 FFID-MAIL-ST PIC X(02). CL**3
00034 20 FFID-MAIL-ZIP PIC X(10). CL**3
00035 20 FFID-MAIL-ADVANCED-BARCODE PIC X(14). CL**3
00036 CL**4
00037 15 FFID-PHYSICAL-ADDR. DTSIFFID
00038 20 FFID-PHYS-ATTN-LINE PIC X(40). CL**3
00039 20 FFID-PHYS-DELIV-LINE-1 PIC X(40). CL**3
00040 20 FFID-PHYS-DELIV-LINE-2 PIC X(40). CL**3
00041 20 FFID-PHYS-CITY PIC X(25). CL**3
00042 20 FFID-PHYS-ST PIC X(02). CL**3
00043 20 FFID-PHYS-ZIP PIC X(10). CL**3
00044 20 FFID-PHYS-ADVANCED-BARCODE PIC X(14). CL**3
00045 CL**4
00046 15 FFID-PHONE-NUMBERS. DTSIFFID
00047 20 FFID-VOICE-1. CL**2
00048 25 FFID-VOICE-1-AREA-CD PIC X(03). CL**3
00049 25 FFID-VOICE-1-PREFIX PIC X(03). CL**3
00050 25 FFID-VOICE-1-SUFFIX PIC X(04). CL**3
00051 25 FFID-VOICE-1-EXT PIC X(05). CL**3
00052 20 FFID-VOICE-2. CL**3
00053 25 FFID-VOICE-2-AREA-CD PIC X(03). CL**3
00054 25 FFID-VOICE-2-PREFIX PIC X(03). CL**3
00055 25 FFID-VOICE-2-SUFFIX PIC X(04). CL**3
00056 25 FFID-VOICE-2-EXT PIC X(05). CL**3
00057 20 FFID-FAX. DTSIFFID
00058 25 FFID-FAX-AREA-CD PIC X(03). CL**3
00059 25 FFID-FAX-PREFIX PIC X(03). CL**3
00060 25 FFID-FAX-SUFFIX PIC X(04). CL**3
00061 25 FFID-FAX-EXT PIC X(05). CL**3
00062 CL**4
00063 15 FFID-EMAIL-ADDRESS PIC X(40). CL**3
00064 CL**4
00065 15 FILLER PIC X(92). CL**6
00066 CL**4
00067 15 FFID-ESTB-DATE PIC S9(09) COMP-3. DTSIFFID
00068 15 FFID-CHNG-DATE PIC S9(09) COMP-3. DTSIFFID