00001 ***** 09/29/98 00002 * DTSIL910 00003 * DTSIL910 BATCH MASTER FILE INPUT/OUTPUT LINKAGE. LV005 00004 * DTSIL910 00005 * DTSIL910 AND DTSIMSKL DEFINE THE LINKAGE AREAS TO CL**3 00006 * DTSBU910 (MASTER FILE INPUT/OUTPUT). FOR EXAMPLE: CL**3 00007 * DTSIL910 00008 * DTSIL910 00009 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**5 00010 * CL**5 00011 * CL**5 00012 * 01 L910-LINK-AREA. DTSIL910 00013 * ++INCLUDE DTSIL910 CL**4 00014 * DTSIL910 00015 * 01 MSKL-REC. DTSIL910 00016 * ++INCLUDE DTSIMSKL CL**4 00017 * DTSIL910 00018 * DTSIL910 00019 * CALL 'DTSBU910' USING L910-LINK-AREA CL**4 00020 * MSKL-REC. DTSIL910 00021 * DTSIL910 00022 * DTSIL910 00023 * WITH THE FOLLOWING EXCEPTIONS, DTSBU910 FUNCTIONS PERFORM CL**4 00024 * AS IF THEY WERE STANDARD I/O STATEMENTS ISSUED AGAINST TWO DTSIL910 00025 * VSAM KSDS FILES: ONE FILE CONTAINING MHDR AND MPRF RECORDS DTSIL910 00026 * AND THE SECOND FILE CONTAINING ALL OTHER RECORD TYPES. DTSIL910 00027 * DTSIL910 00028 * . L910-START-BROWSE-88 PERFORMS A START BROWSE AND A DTSIL910 00029 * READ NEXT, RETURNING A RECORD (IF A RECORD EXISTS). CL**5 00030 * DTSIL910 00031 * . L910-START-BROWSE-88 AND L910-READ-NEXT-88 WILL RETURN DTSIL910 00032 * L910-NO-REC-88 AT A BREAK IN MSKL-EMP-NO+MSKL-REC-TYPE. DTSIL910 00033 * THUS, WHEN L910-NO-REC-88, THE FILE POSITION INDICATOR DTSIL910 00034 * MAY BE RESET. DTSIL910 00035 * DTSIL910 00036 * . L910-COUNT-88 RETURNS A COUNT OF THE NUMBER OF RECORDS DTSIL910 00037 * WITH FIRST PORTION OF KEY EQUAL TO MSKL-EMP-NO+ DTSIL910 00038 * MSKL-REC-TYPE (EXCEPTION: FOR MAUY RECORDS AND MFAR DTSIL910 00039 * RECORDS, L910-COUNT-88 RETURNS A COUNT OF THE NUMBER CL**3 00040 * OF RECORDS WITH FIRST PORTION OF KEY EQUAL TO DTSIL910 00041 * M*-EMP-NO+M*-REC-TYPE+M*-ASSIGN-NO). IF RETURNED DTSIL910 00042 * L910-REC-COUNT IS NOT EQUAL TO ZERO, THE KEY OF THE DTSIL910 00043 * LAST RECORD COUNTED IS RETURNED IN MSKL-KEY-AREA. DTSIL910 00044 * L910-COUNT-88 RESETS THE FILE POSITION INDICTOR. DTSIL910 00045 * DTSIL910 00046 * . L910-REWRITE-88 AND L910-DELETE-88 RESET THE FILE DTSIL910 00047 * POSITION INDICATOR. DTSIL910 00048 * DTSIL910 00049 * . UNLESS THE FILES ARE OPEN L910-OPEN-UPDATE-NO-AIX-88, DTSIL910 00050 * DTSBU910 PERFORMS ALTERNATE INDEX FILE MAINTENANCE. CL**4 00051 * DTSIL910 00052 ***** DTSIL910 00053 CL**5 00054 10 L910-TRACE-IND PIC X(01). DTSIL910 00055 88 L910-TRACE-88 VALUE 'T'. DTSIL910 00056 CL**5 00057 10 L910-MOD-NAME PIC X(08). DTSIL910 00058 CL**5 00059 10 L910-CMND-CD PIC X(03). DTSIL910 00060 88 L910-OPEN-READ-88 VALUE 'OPR'. DTSIL910 00061 88 L910-OPEN-UPDATE-88 VALUE 'OPU'. DTSIL910 00062 88 L910-OPEN-UPDATE-HDR-88 VALUE 'OPH'. DTSIL910 00063 88 L910-OPEN-UPDATE-NO-AIX-88 VALUE 'OPA'. DTSIL910 00064 88 L910-READ-88 VALUE 'RD '. DTSIL910 00065 88 L910-START-BROWSE-88 VALUE 'STB'. DTSIL910 00066 88 L910-READ-NEXT-88 VALUE 'RDN'. DTSIL910 00067 88 L910-COUNT-88 VALUE 'CNT'. DTSIL910 00068 88 L910-WRITE-88 VALUE 'WR '. DTSIL910 00069 88 L910-REWRITE-88 VALUE 'RWR'. DTSIL910 00070 88 L910-DELETE-88 VALUE 'DEL'. DTSIL910 00071 88 L910-CLOSE-88 VALUE 'CL '. DTSIL910 00072 CL**5 00073 10 FILLER REDEFINES L910-CMND-CD. DTSIL910 00074 15 FILLER PIC X(02). DTSIL910 00075 88 L910-OPEN-88 VALUE 'OP'. DTSIL910 00076 15 FILLER PIC X(01). DTSIL910 00077 CL**5 00078 10 L910-RECORD-CNT PIC S9(04) COMP. DTSIL910 00079 CL**5 00080 10 FILLER PIC X(49). DTSIL910 00081 CL**5 00082 10 L910-RESULT-IND PIC X(01). DTSIL910 00083 88 L910-OK-88 VALUE '0'. DTSIL910 00084 88 L910-NO-REC-88 VALUE '1'. DTSIL910