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

86
Copybook/OJRWE417.cpy Normal file
View File

@ -0,0 +1,86 @@
00001 01 OJRWE417-DATA-AREA. 05/13/02
00002 OJRWE417
00003 05 OJR-PARM-SUBJECT-YRQ PIC X(03). LV001
00004 OJRWE417
00005 05 OJR-PARM-RETURN-BY-DATE PIC X(06). OJRWE417
00006 OJRWE417
00007 OJRWE417
00008 05 OJR-SUBJECT-SLASH-QTR PIC X(04). OJRWE417
00009 OJRWE417
00010 05 OJR-UC30-FIRST-DEL-CUTOFF-DATE PIC S9(09) COMP-3. OJRWE417
00011 OJRWE417
00012 05 OJR-UC30-FIRST-DEL-MAIL-DATE PIC S9(09) COMP-3. OJRWE417
00013 OJRWE417
00014 05 OJR-FIRST-PURSUED-RPT-YRQ PIC S9(05) COMP-3. OJRWE417
00015 OJRWE417
00016 05 OJR-SUBJECT-YRQ-DEF-DUE-DATE PIC S9(09) COMP-3. OJRWE417
00017 OJRWE417
00018 OJRWE417
00019 05 OJR-SUBJECT-YRQ-PURSUED-IND PIC X(01). OJRWE417
00020 OJRWE417
00021 05 OJR-SUBJECT-YRQ-RPT-DUE-DATE PIC S9(09) COMP-3. OJRWE417
00022 OJRWE417
00023 05 OJR-SUBJECT-YRQ-UI-RATE PIC S9(01)V9(04) COMP-3.OJRWE417
00024 88 OJR-SUBJECT-YRQ-NO-UI-RATE-88 VALUE -9.9999. OJRWE417
00025 OJRWE417
00026 05 OJR-SUB PIC S9(04) COMP. OJRWE417
00027 OJRWE417
00028 05 OJR-MTAD-LETTER-SENT-IND PIC X(01). OJRWE417
00029 88 OJR-MTAD-LETTER-SENT-88 VALUE 'Y'. OJRWE417
00030 88 OJR-MTAD-NO-LETTER-SENT-88 VALUE 'N'. OJRWE417
00031 OJRWE417
00032 05 OJR-MOPO-LETTER-SENT-IND PIC X(01). OJRWE417
00033 88 OJR-MOPO-LETTER-SENT-88 VALUE 'Y'. OJRWE417
00034 88 OJR-MOPO-NO-LETTER-SENT-88 VALUE 'N'. OJRWE417
00035 OJRWE417
00036 05 OJR-MTAA-LETTER-SENT-IND PIC X(01). OJRWE417
00037 88 OJR-MTAA-LETTER-SENT-88 VALUE 'Y'. OJRWE417
00038 88 OJR-MTAA-NO-LETTER-SENT-88 VALUE 'N'. OJRWE417
00039 OJRWE417
00040 OJRWE417
00041 05 OJR-EDIT-STATUS-IND PIC X(01). OJRWE417
00042 88 OJR-EDIT-PASSED-88 VALUE 'Y'. OJRWE417
00043 88 OJR-EDIT-FAILED-88 VALUE 'N'. OJRWE417
00044 OJRWE417
00045 OJRWE417
00046 05 WRK-PARM-SUBJECT-YRQ PIC S9(05) COMP-3. OJRWE417
00047 OJRWE417
00048 05 WRK-PARM-RETURN-BY-DATE PIC S9(09) COMP-3. OJRWE417
00049 OJRWE417
00050 OJRWE417
00051 05 WRK-SUBJECT-SLASH-QTR PIC X(04). OJRWE417
00052 OJRWE417
00053 05 WRK-UC30-FIRST-DEL-CUTOFF-DATE PIC S9(09) COMP-3. OJRWE417
00054 OJRWE417
00055 05 WRK-UC30-FIRST-DEL-MAIL-DATE PIC S9(09) COMP-3. OJRWE417
00056 OJRWE417
00057 05 WRK-FIRST-PURSUED-RPT-YRQ PIC S9(05) COMP-3. OJRWE417
00058 OJRWE417
00059 05 WRK-SUBJECT-YRQ-DEF-DUE-DATE PIC S9(09) COMP-3. OJRWE417
00060 OJRWE417
00061 OJRWE417
00062 05 WRK-SUBJECT-YRQ-PURSUED-IND PIC X(01). OJRWE417
00063 OJRWE417
00064 05 WRK-SUBJECT-YRQ-RPT-DUE-DATE PIC S9(09) COMP-3. OJRWE417
00065 OJRWE417
00066 05 WRK-SUBJECT-YRQ-UI-RATE PIC S9(01)V9(04) COMP-3.OJRWE417
00067 88 WRK-SUBJECT-YRQ-NO-UI-RATE-88 VALUE -9.9999. OJRWE417
00068 OJRWE417
00069 05 WRK-SUB PIC S9(04) COMP. OJRWE417
00070 OJRWE417
00071 05 WRK-MTAD-LETTER-SENT-IND PIC X(01). OJRWE417
00072 88 WRK-MTAD-LETTER-SENT-88 VALUE 'Y'. OJRWE417
00073 88 WRK-MTAD-NO-LETTER-SENT-88 VALUE 'N'. OJRWE417
00074 OJRWE417
00075 05 WRK-MOPO-LETTER-SENT-IND PIC X(01). OJRWE417
00076 88 WRK-MOPO-LETTER-SENT-88 VALUE 'Y'. OJRWE417
00077 88 WRK-MOPO-NO-LETTER-SENT-88 VALUE 'N'. OJRWE417
00078 OJRWE417
00079 05 WRK-MTAA-LETTER-SENT-IND PIC X(01). OJRWE417
00080 88 WRK-MTAA-LETTER-SENT-88 VALUE 'Y'. OJRWE417
00081 88 WRK-MTAA-NO-LETTER-SENT-88 VALUE 'N'. OJRWE417
00082 OJRWE417
00083 OJRWE417
00084 05 WRK-EDIT-STATUS-IND PIC X(01). OJRWE417
00085 88 WRK-EDIT-PASSED-88 VALUE 'Y'. OJRWE417
00086 88 WRK-EDIT-FAILED-88 VALUE 'N'. OJRWE417