DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
24
Copybook/DTSIL826.cpy
Normal file
24
Copybook/DTSIL826.cpy
Normal file
@ -0,0 +1,24 @@
|
||||
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
|
||||
Reference in New Issue
Block a user