90 lines
7.0 KiB
COBOL
90 lines
7.0 KiB
COBOL
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
|