18 lines
1.3 KiB
COBOL
18 lines
1.3 KiB
COBOL
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
|