23 lines
1.7 KiB
COBOL
23 lines
1.7 KiB
COBOL
00001 ***** 02/15/99
|
|
00002 * DTSIR907
|
|
00003 * DTSIR907 UNUSUAL CONDITIONS ENCOUNTERED REPORT RECORD. LV005
|
|
00004 * DTSIR907
|
|
00005 * CL**2
|
|
00006 * 10/01/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIR907
|
|
00009 CL**2
|
|
00010 10 R907-LENGTH PIC S9(04) COMP. CL**2
|
|
00011 CL**2
|
|
00012 10 R907-SORT-AREA. DTSIR907
|
|
00013 15 R907-REC-TYPE PIC X(03) VALUE '907'. CL**5
|
|
00014 15 R907-MSG-ID PIC X(03). DTSIR907
|
|
00015 15 FILLER REDEFINES R907-MSG-ID. DTSIR907
|
|
00016 20 R907-MSG-ID-CHAR-1 PIC X(01). DTSIR907
|
|
00017 20 FILLER PIC X(02). DTSIR907
|
|
00018 15 R907-EMP-NO PIC S9(07) COMP-3. DTSIR907
|
|
00019 CL**2
|
|
00020 10 R907-DATA-AREA. DTSIR907
|
|
00021 15 R907-MSG-TEXT PIC X(105). DTSIR907
|
|
00022 15 R907-MODULE-NAME PIC X(08). DTSIR907
|