DUTAS re-platformed to Raincode - Initial Source Code

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

30
Copybook/DTSIL026.cpy Normal file
View File

@ -0,0 +1,30 @@
00001 ***** 08/24/98
00002 * DTSIL026
00003 * MACIL026 OP ID TO/FROM ACCOUNTING ENTRY SCREEN LV002
00004 * MODULE LINKAGE DTSIL026
00005 * DTSIL026
00006 ***** DTSIL026
00007 DTSIL026
00008 10 L026-REQUEST-IND PIC X(01). DTSIL026
00009 88 L026-SCR-TO-INT-88 VALUE '1'. DTSIL026
00010 88 L026-INT-TO-SCR-88 VALUE '2'. DTSIL026
00011 DTSIL026
00012 10 L026-RESULT-IND PIC X(01). DTSIL026
00013 88 L026-NO-ENTRY-88 VALUE '0'. DTSIL026
00014 88 L026-ENTRY-88 VALUE '1'. DTSIL026
00015 DTSIL026
00016 10 L026-SCR-OPID-AREA. DTSIL026
00017 15 L026-SCR-OPID-SUF-AREA. DTSIL026
00018 20 L026-SCR-OPID-SUF-L PIC S9(04) COMP. DTSIL026
00019 20 L026-SCR-OPID-SUF-A PIC X(01). DTSIL026
00020 20 L026-SCR-OPID-SUF PIC X(04). DTSIL026
00021 15 L026-SCR-OPID-PRE-AREA. DTSIL026
00022 20 L026-SCR-OPID-PRE-L PIC S9(04) COMP. DTSIL026
00023 20 L026-SCR-OPID-PRE-A PIC X(01). DTSIL026
00024 20 L026-SCR-OPID-PRE PIC X(02). DTSIL026
00025 DTSIL026
00026 10 L026-INT-OPID. DTSIL026
00027 15 L026-INT-OPID-PRE PIC X(02). DTSIL026
00028 15 L026-INT-OPID-SUF PIC X(06). DTSIL026
00029 DTSIL026
00030 10 FILLER PIC X(08). DTSIL026