00001 ******************************************************************09/14/95 00002 * EWGVSMCB--VSAM WAGE DATA CONTROL BLOCK - REV 2.0 *EWGVSMCB 00003 ****************************************************************** LV003 00004 05 VSAM-WAGEDATA-CONTROL-BLOCK. EWGVSMCB 00005 10 DBW-PROGRAM-NAME PIC X(8). EWGVSMCB 00006 10 DBW-SEGNAME PIC X(4). EWGVSMCB 00007 88 DBW-ALL-SEGMENTS VALUE 'ALL '. EWGVSMCB 00008 88 DBW-HEADER-RECORD VALUE 'HDR '. EWGVSMCB 00009 88 DBW-PROFILE-SEGMENT VALUE 'SG01'. EWGVSMCB 00010 88 DBW-WAGE-SEGMENT VALUE 'SG02'. EWGVSMCB 00011 88 DBW-SEGNAME-VALID EWGVSMCB 00012 VALUE 'ALL ' 'HDR ' 'SG01' 'SG02'. EWGVSMCB 00013 10 DBW-VSAM REDEFINES DBW-SEGNAME. CL**2 00014 15 VSAM-W-FILLER PIC X(2). CL**2 00015 15 VSAM-W-SEG-TYPE PIC 9(2). CL**2 00016 88 VSAM-W-VALID-SEGMENT VALUE 0 THRU 2 99. CL**2 00017 10 DBW-PROCESSING-MODE PIC X(1). EWGVSMCB 00018 88 DBW-PROCESSING-MODE-VALID VALUE 'R' 'S' EWGVSMCB 00019 'G'. EWGVSMCB 00020 88 DBW-RANDOM-PROCESSING VALUE 'R'. EWGVSMCB 00021 88 DBW-GENERIC-PROCESSING VALUE 'G'. EWGVSMCB 00022 88 DBW-SEQUENTIAL-PROCESSING VALUE 'S'. EWGVSMCB 00023 10 DBW-CTLBLK-TRACE-IND PIC X(1). EWGVSMCB 00024 88 DBW-CTLBLK-TRACE VALUE 'T'. EWGVSMCB 00025 10 DBW-COMMAND-CODE PIC X(1). EWGVSMCB 00026 88 DBW-COMMAND-CODE-VALID VALUE 'A' 'B' EWGVSMCB 00027 'C' 'D' EWGVSMCB 00028 'F' 'I' EWGVSMCB 00029 'R' 'W' EWGVSMCB 00030 'S'. EWGVSMCB 00031 88 DBW-OPEN-INPUT VALUE 'I'. EWGVSMCB 00032 88 DBW-RESET-POINTERS VALUE 'S'. EWGVSMCB 00033 88 DBW-BEGIN-GENERIC VALUE 'B'. EWGVSMCB 00034 88 DBW-READ-SEGMENT VALUE 'R'. EWGVSMCB 00035 88 DBW-ADD-SEGMENT VALUE 'A'. EWGVSMCB 00036 88 DBW-ADD-FIRST-SEGMENT VALUE 'F'. EWGVSMCB 00037 88 DBW-DELETE-SEGMENT VALUE 'D'. EWGVSMCB 00038 88 DBW-REWRITE-SEGMENT VALUE 'W'. EWGVSMCB 00039 88 DBW-CLOSE-DATASET VALUE 'C'. EWGVSMCB 00040 10 VSAM-W-COMMAND-CODE REDEFINES DBW-COMMAND-CODE CL**2 00041 PIC X(1). CL**2 00042 88 VSAM-W-RESET VALUE 'S'. CL**2 00043 88 VSAM-W-READ VALUE 'R'. CL**2 00044 88 VSAM-W-ADD VALUE 'A'. CL**2 00045 88 VSAM-W-DELETE VALUE 'D'. CL**2 00046 88 VSAM-W-REWRITE VALUE 'W'. CL**2 00047 88 VSAM-W-CLOSE VALUE 'C'. CL**2 00048 88 VSAM-W-VALID-IO VALUE 'S' 'R' 'A' 'D' 'W' 'C'. CL**2 00049 10 DBW-COMPLETION-CODE PIC X(1). EWGVSMCB 00050 88 DBW-SUCCESSFUL-COMPLETION VALUE LOW-VALUE. EWGVSMCB 00051 88 DBW-NO-RECORD-FOUND VALUE '0'. EWGVSMCB 00052 88 DBW-END-OF-FILE VALUE '1'. EWGVSMCB 00053 10 DBW-STATUS-CODE PIC X(1). EWGVSMCB 00054 88 DBW-LAST-SEGMENT VALUE 'L'. EWGVSMCB 00055 10 DBW-KEY. EWGVSMCB 00056 15 DBW-SSN PIC X(9). EWGVSMCB 00057 15 DBW-NAME PIC X(3). EWGVSMCB 00058 10 VSAM-W-KEY REDEFINES DBW-KEY PIC X(12). CL**2 00059 10 DBW-RECD-LENGTH PIC S9(4) COMP. EWGVSMCB 00060 10 DBW-SEGMENT-OCCURRENCE PIC S9(4) COMP. EWGVSMCB 00061 10 VSAM-W-SEG-NBR REDEFINES DBW-SEGMENT-OCCURRENCE CL**2 00062 PIC S9(4) COMP. CL**2 00063 ************************************************************ EWGVSMCB 00064 * FOLLOWING FILLER IS FOR TEMPORARY USE ONLY UNTIL THESE * EWGVSMCB 00065 * LINKAGE SECTION INCLUDE MEMBERS STABILIZE IN LENGTH TO * EWGVSMCB 00066 * AVOID CONSTANT RECOMPILE OF THE ENTIRE SYSTEM AS THINGS * EWGVSMCB 00067 * ARE IN A STATE OF FLUX EARLY IN DEVELOPMENT * EWGVSMCB 00068 ************************************************************ EWGVSMCB 00069 10 FILLER PIC X(1). EWGVSMCB