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