DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
73
Copybook/DTSIL062.cpy
Normal file
73
Copybook/DTSIL062.cpy
Normal file
@ -0,0 +1,73 @@
|
||||
00001 ***** 09/08/98
|
||||
00002 * DTSIL062
|
||||
00003 * DTSIL062 FIELD REP ID EDIT/DESCRIPTION MODULE LINKAGE. LV003
|
||||
00004 * DTSIL062
|
||||
00005 * CL**3
|
||||
00006 * 09/08/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**3
|
||||
00007 * CL**3
|
||||
00008 ***** DTSIL062
|
||||
00009 CL**3
|
||||
00010 10 L062-FLD-REP-ID PIC X(02). DTSIL062
|
||||
00011 88 L062-FIELD-DESK-88 VALUE '??' 'FD'. CL**2
|
||||
00012 88 L062-ACCOUNTING-DESK-88 VALUE 'AD'. CL**3
|
||||
00013 88 L062-DEFAULT-FLD-REP-88 VALUE '00'. DTSIL062
|
||||
00014 CL**3
|
||||
00015 10 L062-RESULT-IND PIC X(01). DTSIL062
|
||||
00016 88 L062-VALID VALUE '1'. DTSIL062
|
||||
00017 88 L062-NOT-VALID VALUE '2'. DTSIL062
|
||||
00018 88 L062-FILE-CLOSED VALUE '3'. DTSIL062
|
||||
00019 CL**3
|
||||
00020 CL**3
|
||||
00021 10 L062-RETURN-AREA. DTSIL062
|
||||
00022 15 L062-OP-ID PIC X(08). DTSIL062
|
||||
00023 CL**3
|
||||
00024 15 L062-ACCOUNTING-TECH-CD PIC X(03). CL**3
|
||||
00025 CL**3
|
||||
00026 15 L062-NAME PIC X(32). DTSIL062
|
||||
00027 CL**3
|
||||
00028 15 L062-CASUAL-NAME PIC X(12). DTSIL062
|
||||
00029 CL**3
|
||||
00030 15 L062-MAIL-ADDR. DTSIL062
|
||||
00031 20 L062-MAIL-ATTN-LINE PIC X(40). DTSIL062
|
||||
00032 20 L062-MAIL-DELIV-LINE-1 PIC X(40). CL**3
|
||||
00033 20 L062-MAIL-DELIV-LINE-2 PIC X(40). CL**3
|
||||
00034 20 L062-MAIL-CITY PIC X(25). DTSIL062
|
||||
00035 20 L062-MAIL-ST PIC X(02). DTSIL062
|
||||
00036 20 L062-MAIL-ZIP PIC X(10). DTSIL062
|
||||
00037 20 L062-MAIL-ADVANCED-BARCODE CL**3
|
||||
00038 PIC X(14). CL**3
|
||||
00039 CL**3
|
||||
00040 15 L062-PHYSICAL-ADDR. DTSIL062
|
||||
00041 20 L062-PHYS-ATTN-LINE PIC X(40). DTSIL062
|
||||
00042 20 L062-PHYS-DELIV-LINE-1 PIC X(40). CL**3
|
||||
00043 20 L062-PHYS-DELIV-LINE-2 PIC X(40). CL**3
|
||||
00044 20 L062-PHYS-CITY PIC X(25). DTSIL062
|
||||
00045 20 L062-PHYS-ST PIC X(02). DTSIL062
|
||||
00046 20 L062-PHYS-ZIP PIC X(10). DTSIL062
|
||||
00047 20 L062-PHYS-ADVANCED-BARCODE CL**3
|
||||
00048 PIC X(14). CL**3
|
||||
00049 CL**3
|
||||
00050 15 L062-PHONE-NUMBERS. DTSIL062
|
||||
00051 20 L062-VOICE-1. CL**3
|
||||
00052 25 L062-VOICE-1-AREA-CD PIC X(03). CL**3
|
||||
00053 25 L062-VOICE-1-PREFIX PIC X(03). CL**3
|
||||
00054 25 L062-VOICE-1-SUFFIX PIC X(04). CL**3
|
||||
00055 25 L062-VOICE-1-EXT PIC X(05). CL**3
|
||||
00056 20 L062-VOICE-2. CL**3
|
||||
00057 25 L062-VOICE-2-AREA-CD PIC X(03). CL**3
|
||||
00058 25 L062-VOICE-2-PREFIX PIC X(03). CL**3
|
||||
00059 25 L062-VOICE-2-SUFFIX PIC X(04). CL**3
|
||||
00060 25 L062-VOICE-2-EXT PIC X(05). CL**3
|
||||
00061 20 L062-FAX. DTSIL062
|
||||
00062 25 L062-FAX-AREA-CD PIC X(03). DTSIL062
|
||||
00063 25 L062-FAX-PREFIX PIC X(03). DTSIL062
|
||||
00064 25 L062-FAX-SUFFIX PIC X(04). DTSIL062
|
||||
00065 25 L062-FAX-EXT PIC X(05). CL**3
|
||||
00066 CL**3
|
||||
00067 15 L062-EMAIL-ADDRESS PIC X(40). CL**3
|
||||
00068 CL**3
|
||||
00069 10 FILLER PIC X(92). CL**3
|
||||
00070 CL**3
|
||||
00071 10 L062-MSG-AREA. DTSIL062
|
||||
00072 15 L062-MSG-ID PIC X(04). DTSIL062
|
||||
00073 15 L062-MSG-TEXT PIC X(60). DTSIL062
|
||||
Reference in New Issue
Block a user