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