35 lines
2.7 KiB
COBOL
35 lines
2.7 KiB
COBOL
00001 ***** 11/11/02
|
|
00002 * DTSIT006
|
|
00003 * DTSIT006 RATING TRANSACTION RECORD. LV004
|
|
00004 * DTSIT006
|
|
00005 * DTSIT006
|
|
00006 * 09/23/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIT006
|
|
00007 * DTSIT006
|
|
00008 ***** DTSIT006
|
|
00009 DTSIT006
|
|
00010 10 T006-LENGTH PIC S9(04) COMP. DTSIT006
|
|
00011 DTSIT006
|
|
00012 10 T006-COMMON-AREA. DTSIT006
|
|
00013 15 T006-REC-TYPE PIC X(03) VALUE '006'. DTSIT006
|
|
00014 15 T006-EMP-NO PIC S9(07) COMP-3. DTSIT006
|
|
00015 15 T006-ORIGIN PIC X(10). DTSIT006
|
|
00016 15 FILLER REDEFINES T006-ORIGIN. DTSIT006
|
|
00017 20 T006-OP-ID PIC X(08). DTSIT006
|
|
00018 20 T006-SCR-ID PIC X(02). DTSIT006
|
|
00019 15 T006-SYS-DATE PIC S9(09) COMP-3. DTSIT006
|
|
00020 15 T006-SYS-TIME PIC S9(07) COMP-3. DTSIT006
|
|
00021 DTSIT006
|
|
00022 10 T006-DATA-AREA. DTSIT006
|
|
00023 15 T006-TRN-CD PIC X(02). DTSIT006
|
|
00024 88 T006-UIRTE-EXIST-CHK VALUE '01'. DTSIT006
|
|
00025 88 T006-UIRTE-NOTICE VALUE '03'. DTSIT006
|
|
00026 88 T006-FINAL-RATE VALUE '04'. DTSIT006
|
|
00027 DTSIT006
|
|
00028 15 T006-RESP-OP-ID PIC X(08). DTSIT006
|
|
00029 DTSIT006
|
|
00030 15 T006-START-YRQ PIC S9(05) COMP-3. DTSIT006
|
|
00031 DTSIT006
|
|
00032 15 T006-END-YRQ PIC S9(05) COMP-3. DTSIT006
|
|
00033 DTSIT006
|
|
00034 15 FILLER PIC X(20). DTSIT006
|