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

51
Copybook/DTSIMREV.cpy Normal file
View File

@ -0,0 +1,51 @@
00001 ***** 03/14/13
00002 * DTSIMREV
00003 * DTSIMREV MASTER FILE 'REMITTANCE REVERSAL' RECORD LV001
00004 * DEFINITION. DTSIMREV
00005 * DTSIMREV
00006 * DTSIMREV
00007 * 08/31/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMREV
00008 * 04/12/2011 MODIFIED FOR NON-DOES CHECKS. GD DTSIMREV
00009 * DTSIMREV
00010 ***** DTSIMREV
00011 DTSIMREV
00012 10 MREV-KEY-AREA. DTSIMREV
00013 15 MREV-EMP-NO PIC S9(07) COMP-3. DTSIMREV
00014 15 MREV-REC-TYPE PIC S9(04) COMP. DTSIMREV
00015 88 MREV-REV-88 VALUE +49. DTSIMREV
00016 15 MREV-PA-DOC-NO. DTSIMREV
00017 20 MREV-PA-BATCH-NO PIC S9(05) COMP-3. DTSIMREV
00018 20 MREV-PA-ITEM-NO PIC S9(03) COMP-3. DTSIMREV
00019 15 MREV-PU-RF-PR-DOC-NO. DTSIMREV
00020 20 MREV-PU-RF-PR-BATCH-NO DTSIMREV
00021 PIC S9(05) COMP-3. DTSIMREV
00022 20 MREV-PU-RF-PR-ITEM-NO DTSIMREV
00023 PIC S9(03) COMP-3. DTSIMREV
00024 DTSIMREV
00025 DTSIMREV
00026 10 MREV-PURGE-DATE PIC S9(09) COMP-3. DTSIMREV
00027 DTSIMREV
00028 DTSIMREV
00029 10 MREV-DATA-AREA. DTSIMREV
00030 15 MREV-FATE PIC X(02). DTSIMREV
00031 88 MREV-PURGE-88 VALUE 'PU'. DTSIMREV
00032 88 MREV-REFUND-88 VALUE 'RF'. DTSIMREV
00033 88 MREV-REVERSE-88 VALUE 'PR'. DTSIMREV
00034 88 MREV-NG-CHECK-88 VALUE 'NG'. DTSIMREV
00035 88 MREV-NON-DOES-REV-88 VALUE 'NR'. DTSIMREV
00036 88 MREV-NON-DOES-NSF-88 VALUE 'NH'. DTSIMREV
00037 DTSIMREV
00038 15 MREV-AMT PIC S9(09)V9(02) COMP-3. DTSIMREV
00039 DTSIMREV
00040 DTSIMREV
00041 15 FILLER PIC X(16). DTSIMREV
00042 DTSIMREV
00043 DTSIMREV
00044 15 MREV-CONVERTED-IND PIC X(01). DTSIMREV
00045 88 MREV-CONVERTED-88 VALUE 'Y'. DTSIMREV
00046 88 MREV-NOT-CONVERTED-88 VALUE 'N'. DTSIMREV
00047 DTSIMREV
00048 DTSIMREV
00049 15 MREV-ESTB-DATE PIC S9(09) COMP-3. DTSIMREV
00050 DTSIMREV
00051 15 MREV-CHNG-DATE PIC S9(09) COMP-3. DTSIMREV