25 lines
1.9 KiB
COBOL
25 lines
1.9 KiB
COBOL
00001 ***** 03/01/12
|
|
00002 * DTSIL826
|
|
00003 * DTSIL826 ACCOUNTING HISTORY FILE OUTPUT LINKAGE. LV001
|
|
00004 * DTSIL826
|
|
00005 * DTSIL826 IS USED IN CONJUNCTION WITH DTSIAATH DTSIL826
|
|
00006 * TO FORM THE COMMUNICATIONS AREA FOR DTSCU826. DTSIL826
|
|
00007 * DTSIL826
|
|
00008 * DTSIL826
|
|
00009 * 12/14/2009 INITIAL DEVELOPMENT GD DTSIL826
|
|
00010 * DTSIL826
|
|
00011 ***** DTSIL826
|
|
00012 DTSIL826
|
|
00013 10 L826-CMND-CD PIC X(03). DTSIL826
|
|
00014 88 L826-WRITE-88 VALUE 'WR '. DTSIL826
|
|
00015 DTSIL826
|
|
00016 10 FILLER PIC X(60). DTSIL826
|
|
00017 DTSIL826
|
|
00018 10 L826-MSG-AREA. DTSIL826
|
|
00019 15 L826-MSG-ID PIC X(04). DTSIL826
|
|
00020 15 L826-MSG-TXT PIC X(60). DTSIL826
|
|
00021 DTSIL826
|
|
00022 10 L826-RESULT-IND PIC X(01). DTSIL826
|
|
00023 88 L826-OK-88 VALUE '0'. DTSIL826
|
|
00024 88 L826-FILE-CLOSED-88 VALUE '9'. DTSIL826
|