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

102
Copybook/DTSIC201.cpy Normal file
View File

@ -0,0 +1,102 @@
00001 ***** 05/22/01
00002 * DTSIC201
00003 * DTSIC201 ELECTRONIC MEDIA STATUS MESSAGE TABLE. LV001
00004 * DTSIC201
00005 * THIS TABLE LISTS ALL SYSTEM-GENERATED STATUS DTSIC201
00006 * MESSAGES. DTSIC201
00007 * DTSIC201
00008 * DTSIC201
00009 ***** DTSIC201
00010 DTSIC201
00011 10 C201-MESSAGE-TABLE. DTSIC201
00012 ******************************************************** DTSIC201
00013 * STATUS MESSAGES DTSIC201
00014 ******************************************************** DTSIC201
00015 15 SMSG001-RECEIVED-LONG. DTSIC201
00016 20 FILLER PIC X(09) DTSIC201
00017 VALUE 'RECEIVED '. DTSIC201
00018 20 SMSG001-DATE PIC X(08). DTSIC201
00019 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
00020 20 SMSG001-TIME PIC X(08). DTSIC201
00021 20 FILLER PIC X(33) VALUE SPACES. DTSIC201
00022 15 SMSG001-RECEIVED-SHORT. DTSIC201
00023 20 FILLER PIC X(12) DTSIC201
00024 VALUE 'RECEIVED '. DTSIC201
00025 DTSIC201
00026 15 SMSG002-DATA-CNTR-LONG. DTSIC201
00027 20 FILLER PIC X(20) DTSIC201
00028 VALUE 'SENT TO DATA CENTER '. DTSIC201
00029 20 SMSG002-DATE PIC X(08). DTSIC201
00030 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
00031 20 SMSG002-TIME PIC X(08). DTSIC201
00032 20 FILLER PIC X(22) VALUE SPACES. DTSIC201
00033 15 SMSG002-DATA-CNTR-SHORT. DTSIC201
00034 20 FILLER PIC X(12) DTSIC201
00035 VALUE 'DATA CENTER '. DTSIC201
00036 DTSIC201
00037 15 SMSG003-RETURN-DOES-LONG. DTSIC201
00038 20 FILLER PIC X(15) DTSIC201
00039 VALUE 'RETURN TO DOES '. DTSIC201
00040 20 SMSG003-DATE PIC X(08). DTSIC201
00041 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
00042 20 SMSG003-TIME PIC X(08). DTSIC201
00043 20 FILLER PIC X(27) VALUE SPACES. DTSIC201
00044 15 SMSG003-RETURN-DOES-SHORT. DTSIC201
00045 20 FILLER PIC X(12) DTSIC201
00046 VALUE 'RETURN DOES '. DTSIC201
00047 DTSIC201
00048 15 SMSG004-COMPLETE-LONG. DTSIC201
00049 20 FILLER PIC X(09) DTSIC201
00050 VALUE 'COMPLETE '. DTSIC201
00051 20 SMSG004-DATE PIC X(08). DTSIC201
00052 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
00053 20 SMSG004-TIME PIC X(08). DTSIC201
00054 20 FILLER PIC X(33) VALUE SPACES. DTSIC201
00055 15 SMSG004-COMPLETE-SHORT. DTSIC201
00056 20 FILLER PIC X(12) DTSIC201
00057 VALUE 'COMPLETE '. DTSIC201
00058 DTSIC201
00059 15 SMSG005-PROCESS-START-LONG. DTSIC201
00060 20 FILLER PIC X(19) DTSIC201
00061 VALUE 'PROCESSING STARTED '. DTSIC201
00062 20 SMSG005-DATE PIC X(08). DTSIC201
00063 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
00064 20 SMSG005-TIME PIC X(08). DTSIC201
00065 20 FILLER PIC X(23) VALUE SPACES. DTSIC201
00066 15 SMSG005-PROCESS-START-SHORT. DTSIC201
00067 20 FILLER PIC X(12) DTSIC201
00068 VALUE 'EDIT STARTED'. DTSIC201
00069 DTSIC201
00070 15 SMSG006-PROCESS-END-LONG. DTSIC201
00071 20 FILLER PIC X(30) DTSIC201
00072 VALUE 'PROCESSING ENDED SUCCESSFULLY '. DTSIC201
00073 20 SMSG006-DATE PIC X(08). DTSIC201
00074 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
00075 20 SMSG006-TIME PIC X(08). DTSIC201
00076 20 FILLER PIC X(12) VALUE SPACES. DTSIC201
00077 15 SMSG006-PROCESS-END-SHORT. DTSIC201
00078 20 FILLER PIC X(12) DTSIC201
00079 VALUE 'PROCESS END '. DTSIC201
00080 DTSIC201
00081 15 SMSG007-PROCESS-ERRORS-LONG. DTSIC201
00082 20 FILLER PIC X(29) DTSIC201
00083 VALUE 'PROCESSING ENDED WITH ERRORS '. DTSIC201
00084 20 SMSG007-DATE PIC X(08). DTSIC201
00085 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
00086 20 SMSG007-TIME PIC X(08). DTSIC201
00087 20 FILLER PIC X(13) VALUE SPACES. DTSIC201
00088 15 SMSG007-PROCESS-ERRORS-SHORT. DTSIC201
00089 20 FILLER PIC X(12) DTSIC201
00090 VALUE 'ERRORS FOUND'. DTSIC201
00091 DTSIC201
00092 15 SMSG008-PROCESS-FAILED-LONG. DTSIC201
00093 20 FILLER PIC X(18) DTSIC201
00094 VALUE 'PROCESSING FAILED '. DTSIC201
00095 20 SMSG008-DATE PIC X(08). DTSIC201
00096 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
00097 20 SMSG008-TIME PIC X(08). DTSIC201
00098 20 FILLER PIC X(13) VALUE SPACES. DTSIC201
00099 15 SMSG008-PROCESS-FAILED-SHORT. DTSIC201
00100 20 FILLER PIC X(12) DTSIC201
00101 VALUE 'FAILED '. DTSIC201
00102 DTSIC201