DUTAS re-platformed to Raincode - Initial Source Code

This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions

17
Copybook/DTSIR791.cpy Normal file
View 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