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