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

91
Copybook/DTSIMFSL.cpy Normal file
View File

@ -0,0 +1,91 @@
00001 ***** 11/19/09
00002 * DTSIMFSL
00003 * DTSIMFSL MASTER FILE 'AUDIT SCHEDULE' LV001
00004 * RECORD DEFINITION. DTSIMFSL
00005 * DTSIMFSL
00006 * DTSIMFSL
00007 * 10/08/2009 INITIAL DEVELOPMENT GD DTSIMFSL
00008 * DTSIMFSL
00009 ***** DTSIMFSL
00010 DTSIMFSL
00011 10 MFSL-KEY-AREA. DTSIMFSL
00012 15 MFSL-EMP-NO PIC S9(07) COMP-3. DTSIMFSL
00013 15 MFSL-REC-TYPE PIC S9(04) COMP. DTSIMFSL
00014 88 MFSL-FSL-88 VALUE +30. DTSIMFSL
00015 15 MFSL-ASSIGN-NO PIC S9(09) COMP-3. DTSIMFSL
00016 15 MFSL-ID-NO PIC S9(03) COMP-3. DTSIMFSL
00017 15 MFSL-KEY-FILLER PIC X(03). DTSIMFSL
00018 DTSIMFSL
00019 DTSIMFSL
00020 10 MFSL-PURGE-DATE PIC S9(09) COMP-3. DTSIMFSL
00021 DTSIMFSL
00022 DTSIMFSL
00023 10 MFSL-DATA-AREA. DTSIMFSL
00024 15 MFSL-STATUS-CD PIC X(01). DTSIMFSL
00025 88 MFSL-STATUS-PENDING-88 VALUE 'P'. DTSIMFSL
00026 88 MFSL-STATUS-COMPLED-88 VALUE 'C'. DTSIMFSL
00027 88 MFSL-STATUS-CANCELED-88 VALUE 'K'. DTSIMFSL
00028 DTSIMFSL
00029 15 MFSL-NAME PIC X(40). DTSIMFSL
00030 DTSIMFSL
00031 15 MFSL-AUDIT-DATE PIC S9(09) COMP-3. DTSIMFSL
00032 DTSIMFSL
00033 15 MFSL-AUDIT-TIME PIC S9(06) COMP-3. DTSIMFSL
00034 DTSIMFSL
00035 15 MFSL-AUDIT-LOCATION. DTSIMFSL
00036 20 MFSL-ATTN-LINE PIC X(40). DTSIMFSL
00037 20 MFSL-DELIV-LINE-1 PIC X(40). DTSIMFSL
00038 20 MFSL-DELIV-LINE-2 PIC X(40). DTSIMFSL
00039 20 MFSL-CITY PIC X(25). DTSIMFSL
00040 20 MFSL-ST PIC X(02). DTSIMFSL
00041 20 MFSL-ZIP PIC X(10). DTSIMFSL
00042 20 MFSL-ADVANCED-BARCODE DTSIMFSL
00043 PIC X(14). DTSIMFSL
00044 DTSIMFSL
00045 15 MFSL-AUDIT-MAIL. DTSIMFSL
00046 20 MFSL-ATTN-MAIL PIC X(40). DTSIMFSL
00047 20 MFSL-DELIV-MAIL-1 PIC X(40). DTSIMFSL
00048 20 MFSL-DELIV-MAIL-2 PIC X(40). DTSIMFSL
00049 20 MFSL-CITY-MAIL PIC X(25). DTSIMFSL
00050 20 MFSL-ST-MAIL PIC X(02). DTSIMFSL
00051 20 MFSL-ZIP-MAIL PIC X(10). DTSIMFSL
00052 20 MFSL-ADVANCED-BARCODE-MAIL DTSIMFSL
00053 PIC X(14). DTSIMFSL
00054 DTSIMFSL
00055 15 MFSL-PHONE-NUMBERS. DTSIMFSL
00056 20 MFSL-VOICE-1. DTSIMFSL
00057 25 MFSL-VOICE-1-AREA-CD PIC X(03). DTSIMFSL
00058 25 MFSL-VOICE-1-PREFIX PIC X(03). DTSIMFSL
00059 25 MFSL-VOICE-1-SUFFIX PIC X(04). DTSIMFSL
00060 25 MFSL-VOICE-1-EXT PIC X(05). DTSIMFSL
00061 20 MFSL-VOICE-2. DTSIMFSL
00062 25 MFSL-VOICE-2-AREA-CD PIC X(03). DTSIMFSL
00063 25 MFSL-VOICE-2-PREFIX PIC X(03). DTSIMFSL
00064 25 MFSL-VOICE-2-SUFFIX PIC X(04). DTSIMFSL
00065 25 MFSL-VOICE-2-EXT PIC X(05). DTSIMFSL
00066 20 MFSL-FAX. DTSIMFSL
00067 25 MFSL-FAX-AREA-CD PIC X(03). DTSIMFSL
00068 25 MFSL-FAX-PREFIX PIC X(03). DTSIMFSL
00069 25 MFSL-FAX-SUFFIX PIC X(04). DTSIMFSL
00070 25 MFSL-FAX-EXT PIC X(05). DTSIMFSL
00071 DTSIMFSL
00072 15 MFSL-EMAIL-ADDRESS PIC X(40). DTSIMFSL
00073 DTSIMFSL
00074 15 MFSL-CREATE-OP-ID PIC X(8). DTSIMFSL
00075 DTSIMFSL
00076 15 MFSL-CHANGE-OP-ID PIC X(8). DTSIMFSL
00077 DTSIMFSL
00078 15 MFSL-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMFSL
00079 DTSIMFSL
00080 DTSIMFSL
00081 15 FILLER PIC X(25). DTSIMFSL
00082 DTSIMFSL
00083 DTSIMFSL
00084 15 MFSL-CONVERTED-IND PIC X(01). DTSIMFSL
00085 88 MFSL-CONVERTED-88 VALUE 'Y'. DTSIMFSL
00086 88 MFSL-NOT-CONVERTED-88 VALUE 'N'. DTSIMFSL
00087 DTSIMFSL
00088 DTSIMFSL
00089 15 MFSL-ESTB-DATE PIC S9(09) COMP-3. DTSIMFSL
00090 DTSIMFSL
00091 15 MFSL-CHNG-DATE PIC S9(09) COMP-3. DTSIMFSL