25 lines
1.9 KiB
COBOL
25 lines
1.9 KiB
COBOL
00001 ***** 09/13/01
|
|
00002 * DTSIL962
|
|
00003 * DTSIL962 BATCH SEQUENTIAL MASTER FILE OUTPUT LINKAGE. LV002
|
|
00004 * DTSIL962
|
|
00005 * DTSIL962 AND DTSIMSKL DEFINE THE LINKAGE AREAS TO CL**2
|
|
00006 * DTSCU962 (BATCH SEQUENTIAL MASTER FILE OUTPUT). CL**2
|
|
00007 * DTSIL962
|
|
00008 ***** DTSIL962
|
|
00009 SKIP1 DTSIL962
|
|
00010 10 L962-TRACE-IND PIC X(01). DTSIL962
|
|
00011 88 L962-TRACE-88 VALUE 'T'. DTSIL962
|
|
00012 SKIP1 DTSIL962
|
|
00013 10 L962-MOD-NAME PIC X(08). DTSIL962
|
|
00014 SKIP1 DTSIL962
|
|
00015 10 L962-CMND-CD PIC X(03). DTSIL962
|
|
00016 88 L962-OPEN-UPDATE-88 VALUE 'OPU'. DTSIL962
|
|
00017 88 L962-WRITE-88 VALUE 'WR '. DTSIL962
|
|
00018 88 L962-CLOSE-88 VALUE 'CL '. DTSIL962
|
|
00019 SKIP1 DTSIL962
|
|
00020 10 FILLER PIC X(51). DTSIL962
|
|
00021 SKIP1 DTSIL962
|
|
00022 10 L962-RESULT-IND PIC X(01). DTSIL962
|
|
00023 88 L962-OK-88 VALUE '0'. DTSIL962
|
|
00024 88 L962-NO-REC-88 VALUE '1'. DTSIL962
|