31 lines
2.4 KiB
COBOL
31 lines
2.4 KiB
COBOL
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
|