DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
89
Copybook/DTSIFFIS.cpy
Normal file
89
Copybook/DTSIFFIS.cpy
Normal file
@ -0,0 +1,89 @@
|
||||
00001 ***** 07/18/00
|
||||
00002 * DTSIFFIS
|
||||
00003 * DTSIFFIS REFERENCE FILE 'FISCAL AGENT RECORD' LV001
|
||||
00004 * DEFINITION. DTSIFFIS
|
||||
00005 * DTSIFFIS
|
||||
00006 * A FISCAL AGENT WILL HAVE AN FFIS RECORD FOR EACH TYPE DTSIFFIS
|
||||
00007 * OF SERVICE PROVIDED. DTSIFFIS
|
||||
00008 ***** DTSIFFIS
|
||||
00009 DTSIFFIS
|
||||
00010 10 FFIS-KEY-AREA. DTSIFFIS
|
||||
00011 15 FFIS-REC-TYPE PIC S9(04) COMP. DTSIFFIS
|
||||
00012 88 FFIS-FIS-88 VALUE +08. DTSIFFIS
|
||||
00013 15 FFIS-FISCAL-AGENT-CD PIC X(03). DTSIFFIS
|
||||
00014 15 FFIS-SERVICE-TYPE PIC X(02). DTSIFFIS
|
||||
00015 88 FFIS-SERVICE-UC30-88 VALUE '01'. DTSIFFIS
|
||||
00016 88 FFIS-SERVICE-BEN-CHG-88 VALUE '02'. DTSIFFIS
|
||||
00017 88 FFIS-SERVICE-CORRESPOND-88 VALUE '03'. DTSIFFIS
|
||||
00018 15 FFIS-KEY-FILLER PIC X(09). DTSIFFIS
|
||||
00019 DTSIFFIS
|
||||
00020 10 FFIS-PURGE-DATE PIC S9(09) COMP-3.DTSIFFIS
|
||||
00021 DTSIFFIS
|
||||
00022 10 FFIS-DATA-AREA. DTSIFFIS
|
||||
00023 15 FFIS-NAME PIC X(40). DTSIFFIS
|
||||
00024 DTSIFFIS
|
||||
00025 15 FFIS-MEDIA-TYPE-CD PIC X(01). DTSIFFIS
|
||||
00026 88 FFIS-MEDIA-CART-TAPE-88 VALUE 'C'. DTSIFFIS
|
||||
00027 88 FFIS-MEDIA-DISKETTE-88 VALUE 'D'. DTSIFFIS
|
||||
00028 88 FFIS-MEDIA-INTERNET-88 VALUE 'I'. DTSIFFIS
|
||||
00029 88 FFIS-MEDIA-REEL-TAPE-88 VALUE 'R'. DTSIFFIS
|
||||
00030 88 FFIS-MEDIA-CART-REEL-88 VALUE 'C' 'R'. DTSIFFIS
|
||||
00031 88 FFIS-MEDIA-VALID-88 VALUE 'C' 'D' 'I' DTSIFFIS
|
||||
00032 'R'. DTSIFFIS
|
||||
00033 DTSIFFIS
|
||||
00034 15 FFIS-DISK-SIZE PIC X(05). DTSIFFIS
|
||||
00035 88 FFIS-DISK-3-HALF-88 VALUE '3 1/2'. DTSIFFIS
|
||||
00036 88 FFIS-DISK-5-QTR-88 VALUE '5 1/4'. DTSIFFIS
|
||||
00037 88 FFIS-DISK-BOTH-88 VALUE 'BOTH '. DTSIFFIS
|
||||
00038 88 FFIS-DISK-NONE-88 VALUE ' '. DTSIFFIS
|
||||
00039 88 FFIS-DISK-YES-88 VALUE '3 1/2' DTSIFFIS
|
||||
00040 '5 1/4' 'BOTH '. DTSIFFIS
|
||||
00041 DTSIFFIS
|
||||
00042 15 FFIS-MEDIA-CHANGE-DATE PIC S9(09) COMP-3.DTSIFFIS
|
||||
00043 DTSIFFIS
|
||||
00044 15 FFIS-MEDIA-CONTACT-NAME PIC X(32). DTSIFFIS
|
||||
00045 DTSIFFIS
|
||||
00046 15 FFIS-MEDIA-CONTACT-EMAIL PIC X(40). DTSIFFIS
|
||||
00047 DTSIFFIS
|
||||
00048 15 FFIS-MEDIA-PHONE-NUMBERS. DTSIFFIS
|
||||
00049 20 FFIS-MEDIA-VOICE. DTSIFFIS
|
||||
00050 25 FFIS-MEDIA-VOICE-AREA-CD PIC X(03). DTSIFFIS
|
||||
00051 25 FFIS-MEDIA-VOICE-PREFIX PIC X(03). DTSIFFIS
|
||||
00052 25 FFIS-MEDIA-VOICE-SUFFIX PIC X(04). DTSIFFIS
|
||||
00053 25 FFIS-MEDIA-VOICE-EXT PIC X(05). DTSIFFIS
|
||||
00054 20 FFIS-MEDIA-FAX. DTSIFFIS
|
||||
00055 25 FFIS-MEDIA-FAX-AREA-CD PIC X(03). DTSIFFIS
|
||||
00056 25 FFIS-MEDIA-FAX-PREFIX PIC X(03). DTSIFFIS
|
||||
00057 25 FFIS-MEDIA-FAX-SUFFIX PIC X(04). DTSIFFIS
|
||||
00058 25 FFIS-MEDIA-FAX-EXT PIC X(05). DTSIFFIS
|
||||
00059 DTSIFFIS
|
||||
00060 15 FFIS-BUSINESS-CONTACT-NAME PIC X(32). DTSIFFIS
|
||||
00061 DTSIFFIS
|
||||
00062 15 FFIS-BUSINESS-CONTACT-EMAIL PIC X(40). DTSIFFIS
|
||||
00063 DTSIFFIS
|
||||
00064 15 FFIS-BUSINESS-PHONE-NUMBERS. DTSIFFIS
|
||||
00065 20 FFIS-BUSINESS-VOICE. DTSIFFIS
|
||||
00066 25 FFIS-BUSINESS-VOICE-AREA-CD PIC X(03). DTSIFFIS
|
||||
00067 25 FFIS-BUSINESS-VOICE-PREFIX PIC X(03). DTSIFFIS
|
||||
00068 25 FFIS-BUSINESS-VOICE-SUFFIX PIC X(04). DTSIFFIS
|
||||
00069 25 FFIS-BUSINESS-VOICE-EXT PIC X(05). DTSIFFIS
|
||||
00070 20 FFIS-BUSINESS-FAX. DTSIFFIS
|
||||
00071 25 FFIS-BUSINESS-FAX-AREA-CD PIC X(03). DTSIFFIS
|
||||
00072 25 FFIS-BUSINESS-FAX-PREFIX PIC X(03). DTSIFFIS
|
||||
00073 25 FFIS-BUSINESS-FAX-SUFFIX PIC X(04). DTSIFFIS
|
||||
00074 25 FFIS-BUSINESS-FAX-EXT PIC X(05). DTSIFFIS
|
||||
00075 DTSIFFIS
|
||||
00076 15 FFIS-ADDR. DTSIFFIS
|
||||
00077 20 FFIS-ATTN-LINE PIC X(40). DTSIFFIS
|
||||
00078 20 FFIS-DELIV-LINE-1 PIC X(40). DTSIFFIS
|
||||
00079 20 FFIS-DELIV-LINE-2 PIC X(40). DTSIFFIS
|
||||
00080 20 FFIS-CITY PIC X(25). DTSIFFIS
|
||||
00081 20 FFIS-ST PIC X(02). DTSIFFIS
|
||||
00082 20 FFIS-ZIP PIC X(10). DTSIFFIS
|
||||
00083 20 FFIS-ADVANCED-BARCODE PIC X(14). DTSIFFIS
|
||||
00084 DTSIFFIS
|
||||
00085 DTSIFFIS
|
||||
00086 15 FILLER PIC X(50). DTSIFFIS
|
||||
00087 DTSIFFIS
|
||||
00088 15 FFIS-ESTB-DATE PIC S9(09) COMP-3.DTSIFFIS
|
||||
00089 15 FFIS-CHNG-DATE PIC S9(09) COMP-3.DTSIFFIS
|
||||
Reference in New Issue
Block a user