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

89
Copybook/DTSIFFIS.cpy Normal file
View 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