70 lines
5.5 KiB
COBOL
70 lines
5.5 KiB
COBOL
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
|