00001 ***** 07/27/98 00002 * DTSIL931 00003 * MACIL931 BATCH REFERENCE FILE INPUT/OUTPUT LINKAGE. LV001 00004 * DTSIL931 00005 * MACIL931 AND MACIFSKL DEFINE THE LINKAGE AREAS TO DTSIL931 00006 * MACBU931 (REFERENCE FILE INPUT/OUTPUT). DTSIL931 00007 * DTSIL931 00008 ***** DTSIL931 00009 SKIP1 DTSIL931 00010 10 L931-TRACE-IND PIC X(01). DTSIL931 00011 88 L931-TRACE-88 VALUE 'T'. DTSIL931 00012 SKIP1 DTSIL931 00013 10 L931-MOD-NAME PIC X(08). DTSIL931 00014 SKIP1 DTSIL931 00015 10 L931-CMND-CD PIC X(03). DTSIL931 00016 88 L931-OPEN-READ-88 VALUE 'OPR'. DTSIL931 00017 88 L931-OPEN-UPDATE-88 VALUE 'OPU'. DTSIL931 00018 88 L931-READ-88 VALUE 'RD '. DTSIL931 00019 88 L931-START-BROWSE-88 VALUE 'STB'. DTSIL931 00020 88 L931-READ-NEXT-88 VALUE 'RDN'. DTSIL931 00021 88 L931-WRITE-88 VALUE 'WR '. DTSIL931 00022 88 L931-REWRITE-88 VALUE 'RWR'. DTSIL931 00023 88 L931-DELETE-88 VALUE 'DEL'. DTSIL931 00024 88 L931-CLOSE-88 VALUE 'CL '. DTSIL931 00025 SKIP1 DTSIL931 00026 10 FILLER PIC X(51). DTSIL931 00027 SKIP1 DTSIL931 00028 10 L931-RESULT-IND PIC X(01). DTSIL931 00029 88 L931-OK-88 VALUE '0'. DTSIL931 00030 88 L931-NO-REC-88 VALUE '1'. DTSIL931