26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
00001 ***** 07/27/98
|
|
00002 * DTSIL968
|
|
00003 * MACIL968 ARCHIVED RATING EXPERIENCE FILE LV001
|
|
00004 * OUTPUT LINKAGE. DTSIL968
|
|
00005 * DTSIL968
|
|
00006 * MACIL968 AND MACIESKL DEFINE THE LINAGE AREAS TO DTSIL968
|
|
00007 * MACCU968 (ARCHIVED RATING EXPERIENCE FILE OUTPUT). DTSIL968
|
|
00008 * DTSIL968
|
|
00009 ***** DTSIL968
|
|
00010 SKIP1 DTSIL968
|
|
00011 10 L968-TRACE-IND PIC X(01). DTSIL968
|
|
00012 88 L968-TRACE-88 VALUE 'T'. DTSIL968
|
|
00013 SKIP1 DTSIL968
|
|
00014 10 L968-MOD-NAME PIC X(08). DTSIL968
|
|
00015 SKIP1 DTSIL968
|
|
00016 10 L968-CMND-CD PIC X(03). DTSIL968
|
|
00017 88 L968-OPEN-UPDATE-88 VALUE 'OPU'. DTSIL968
|
|
00018 88 L968-WRITE-88 VALUE 'WR '. DTSIL968
|
|
00019 88 L968-CLOSE-88 VALUE 'CL '. DTSIL968
|
|
00020 SKIP1 DTSIL968
|
|
00021 10 FILLER PIC X(51). DTSIL968
|
|
00022 SKIP1 DTSIL968
|
|
00023 10 L968-RESULT-IND PIC X(01). DTSIL968
|
|
00024 88 L968-OK-88 VALUE '0'. DTSIL968
|
|
00025 88 L968-NO-REC-88 VALUE '1'. DTSIL968
|