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