DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
17
Copybook/DTSIR791.cpy
Normal file
17
Copybook/DTSIR791.cpy
Normal file
@ -0,0 +1,17 @@
|
||||
00001 ***** 11/18/05
|
||||
00002 * REVIEWED BY D.SHEPPERSON 10/23/98 DTSIR791
|
||||
00003 * LV011
|
||||
00004 * DTSIR791 OPERATOR ID LIST REPORT RECORD. DTSIR791
|
||||
00005 * DTSIR791
|
||||
00006 ***** DTSIR791
|
||||
00007 SKIP1 DTSIR791
|
||||
00008 07 R791-LENGTH PIC S9(04) COMP. DTSIR791
|
||||
00009 SKIP1 DTSIR791
|
||||
00010 07 R791-SORT-AREA. DTSIR791
|
||||
00011 10 R791-REC-TYPE PIC X(03). DTSIR791
|
||||
00012 10 R791-BUREAU-NAME PIC X(30). DTSIR791
|
||||
00013 10 R791-UNIT-NAME PIC X(30). DTSIR791
|
||||
00014 10 R791-OP-ID PIC X(08). DTSIR791
|
||||
00015 SKIP1 DTSIR791
|
||||
00016 07 R791-DATA-AREA PIC X(512). DTSIR791
|
||||
00017 DTSIR791
|
||||
Reference in New Issue
Block a user