26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
00001 ***** 09/09/98
|
|
00002 * DTSIL825
|
|
00003 * DTSIL825 ONLINE ACTIVITY FILE OUTPUT LINKAGE. LV002
|
|
00004 * DTSIL825
|
|
00005 * DTSIL825 IS USED IN CONJUNCTION WITH DTSIRSK1 OR CL**2
|
|
00006 * DTSIRSK2 OR DTSIRSK3 TO FORM THE COMMUNICATIONS AREA CL**2
|
|
00007 * TO DTSCU825. CL**2
|
|
00008 * DTSIL825
|
|
00009 * CL**2
|
|
00010 * 09/09/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00011 * CL**2
|
|
00012 ***** DTSIL825
|
|
00013 CL**2
|
|
00014 10 L825-CMND-CD PIC X(03). DTSIL825
|
|
00015 88 L825-WRITE-88 VALUE 'WR '. DTSIL825
|
|
00016 CL**2
|
|
00017 10 FILLER PIC X(60). CL**2
|
|
00018 CL**2
|
|
00019 10 L825-MSG-AREA. DTSIL825
|
|
00020 15 L825-MSG-ID PIC X(04). DTSIL825
|
|
00021 15 L825-MSG-TXT PIC X(60). DTSIL825
|
|
00022 CL**2
|
|
00023 10 L825-RESULT-IND PIC X(01). DTSIL825
|
|
00024 88 L825-OK-88 VALUE '0'. DTSIL825
|
|
00025 88 L825-FILE-CLOSED-88 VALUE '9'. DTSIL825
|