85 lines
6.6 KiB
COBOL
85 lines
6.6 KiB
COBOL
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
|