DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
30
Copybook/DTSIL026.cpy
Normal file
30
Copybook/DTSIL026.cpy
Normal 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
|
||||
Reference in New Issue
Block a user