29 lines
2.2 KiB
COBOL
29 lines
2.2 KiB
COBOL
00001 ***** 07/27/98
|
|
00002 * DTSIL973
|
|
00003 * MACIL973 RATING EXPERIENCE FILE LV001
|
|
00004 * INPUT/OUTPUT LINKAGE. DTSIL973
|
|
00005 * DTSIL973
|
|
00006 ***** DTSIL973
|
|
00007 SKIP1 DTSIL973
|
|
00008 10 L973-TRACE-IND PIC X(01). DTSIL973
|
|
00009 88 L973-TRACE-88 VALUE 'T'. DTSIL973
|
|
00010 SKIP1 DTSIL973
|
|
00011 10 L973-MOD-NAME PIC X(08). DTSIL973
|
|
00012 SKIP1 DTSIL973
|
|
00013 10 L973-CMND-CD PIC X(03). DTSIL973
|
|
00014 88 L973-OPEN-READ-88 VALUE 'OPR'. DTSIL973
|
|
00015 88 L973-OPEN-UPDATE-88 VALUE 'OPU'. DTSIL973
|
|
00016 88 L973-READ-88 VALUE 'RD '. DTSIL973
|
|
00017 88 L973-START-BROWSE-88 VALUE 'STB'. DTSIL973
|
|
00018 88 L973-READ-NEXT-88 VALUE 'RDN'. DTSIL973
|
|
00019 88 L973-WRITE-88 VALUE 'WR '. DTSIL973
|
|
00020 88 L973-REWRITE-88 VALUE 'RWR'. DTSIL973
|
|
00021 88 L973-DELETE-88 VALUE 'DEL'. DTSIL973
|
|
00022 88 L973-CLOSE-88 VALUE 'CL '. DTSIL973
|
|
00023 SKIP1 DTSIL973
|
|
00024 10 FILLER PIC X(51). DTSIL973
|
|
00025 SKIP1 DTSIL973
|
|
00026 10 L973-RESULT-IND PIC X(01). DTSIL973
|
|
00027 88 L973-OK-88 VALUE '0'. DTSIL973
|
|
00028 88 L973-NO-REC-88 VALUE '1'. DTSIL973
|