00001 IDENTIFICATION DIVISION. 03/30/04 00002 PROGRAM-ID. DTSBU934. DTSBU934 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV005 00004 DATE-WRITTEN. SEPTEMBER 1998. DTSBU934 00005 DATE-COMPILED. DTSBU934 00006 SKIP3 DTSBU934 00007 ***** DTSBU934 00008 * DTSBU934 00009 * FUNCTION: NAICS FILE INPUT. DTSBU934 00010 * DTSBU934 00011 * DTSBU934 00012 * MODIFICATION LOG: DTSBU934 00013 * DTSBU934 00014 * 09/30/1998 CLONED FROM DTSBU933. DTSBU934 00015 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBU934 00016 * DTSBU934 00017 * 03/26/2004 REVISED FOR NEW VERSION OF VSAM NAICS FILE DTSBU934 00018 * REFERENCE: PROGRAMMER: GD DTSBU934 00019 * DTSBU934 00020 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU934 00021 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU934 00022 * DTSBU934 00023 * DTSBU934 00024 * DESCRIPTION: DTSBU934 00025 * DTSBU934 00026 * DTSBU934 PERFORMS ALL REQUIRED NAICS FILE INPUT. DTSBU934 00027 * DTSBU934 00028 * DTSBU934 00029 * GENERAL SPECIFICATIONS: DTSBU934 00030 * DTSBU934 00031 * ALL COMMANDS ARE VALID. DTSBU934 00032 * DTSBU934 00033 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DTSBU934 00034 * MODULE. DTSBU934 00035 * DTSBU934 00036 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DTSBU934 00037 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DTSBU934 00038 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DTSBU934 00039 * DTSBU934 00040 * DTSBU934 00041 * COMMAND SPECIFIC SPECIFICATIONS: DTSBU934 00042 * DTSBU934 00043 * OPEN-READ DTSBU934 00044 * OPEN INPUT. DTSBU934 00045 * DTSBU934 00046 * CLOSE DTSBU934 00047 * DTSBU934 00048 * READ DTSBU934 00049 * DTSBU934 00050 * START BROWSE DTSBU934 00051 * DTSBU934 00052 * READ NEXT DTSBU934 00053 * DTSBU934 00054 ***** DTSBU934 00055 SKIP3 DTSBU934 00056 ENVIRONMENT DIVISION. DTSBU934 00057 SKIP2 DTSBU934 00058 INPUT-OUTPUT SECTION. DTSBU934 00059 DTSBU934 00060 FILE-CONTROL. DTSBU934 00061 SELECT NAICS-FILE ASSIGN TO DTSFNAIC DTSBU934 00062 ORGANIZATION IS INDEXED DTSBU934 00063 RECORD KEY IS XNIC-KEY-AREA OF FILE-REC DTSBU934 00064 FILE STATUS IS FILE-STATUS DTSBU934 00065 ACCESS IS DYNAMIC. DTSBU934 00066 SKIP3 DTSBU934 00067 DATA DIVISION. DTSBU934 00068 SKIP3 DTSBU934 00069 FILE SECTION. DTSBU934 00070 SKIP3 DTSBU934 00071 FD NAICS-FILE. DTSBU934 00072 DTSBU934 00073 01 FILE-REC. DTSBU934 00074 ++INCLUDE DTSIXNIC DTSBU934 00075 EJECT DTSBU934 00076 WORKING-STORAGE SECTION. DTSBU934 000765 77 PAN-VALET PICTURE X(24) VALUE '005DTSBU934 03/30/04'. DTSBU934 00077 SKIP3 DTSBU934 00078 01 WRK-AREA. DTSBU934 00079 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +934.DTSBU934 00080 DTSBU934 00081 05 VAR-CHAR-CNT PIC S9(04) COMP. DTSBU934 00082 DTSBU934 00083 05 FILE-STATUS PIC X(02). DTSBU934 00084 88 FILE-OK-88 VALUE '00'. DTSBU934 00085 88 FILE-NO-REC-88 VALUE '10' '23'. DTSBU934 00086 88 FILE-VERIFY-88 VALUE '97'. DTSBU934 00087 EJECT DTSBU934 00088 LINKAGE SECTION. DTSBU934 00089 SKIP3 DTSBU934 00090 01 L934-LINK-AREA. DTSBU934 00091 ++INCLUDE DTSIL934 DTSBU934 00092 EJECT DTSBU934 00093 01 LINK-REC. DTSBU934 00094 ++INCLUDE DTSIXNIC DTSBU934 00095 EJECT DTSBU934 00096 PROCEDURE DIVISION USING L934-LINK-AREA DTSBU934 00097 LINK-REC. DTSBU934 00098 DTSBU934 00099 DTSBU934 00100 SET L934-OK-88 TO TRUE. DTSBU934 00101 DTSBU934 00102 IF L934-TRACE-88 DTSBU934 00103 PERFORM S9100-PRE-DISPLAY THRU S9100-EXIT. DTSBU934 00104 DTSBU934 00105 IF L934-READ-NEXT-88 DTSBU934 00106 PERFORM P2300-READ-NEXT THRU P2300-EXIT DTSBU934 00107 ELSE DTSBU934 00108 IF L934-READ-88 DTSBU934 00109 PERFORM P2100-READ THRU P2100-EXIT DTSBU934 00110 ELSE DTSBU934 00111 IF L934-START-BROWSE-88 DTSBU934 00112 PERFORM P2200-START-BROWSE THRU P2200-EXIT DTSBU934 00113 ELSE DTSBU934 00114 IF L934-OPEN-READ-88 DTSBU934 00115 PERFORM P1100-OPEN THRU P1100-EXIT DTSBU934 00116 ELSE DTSBU934 00117 IF L934-CLOSE-88 DTSBU934 00118 PERFORM P1200-CLOSE THRU P1200-EXIT DTSBU934 00119 ELSE DTSBU934 00120 PERFORM S999-ABEND THRU S999-EXIT. DTSBU934 00121 DTSBU934 00122 IF L934-TRACE-88 DTSBU934 00123 PERFORM S9200-POST-DISPLAY THRU S9200-EXIT. DTSBU934 00124 DTSBU934 00125 DTSBU934 00126 GOBACK. DTSBU934 00127 EJECT DTSBU934 00128 P1100-OPEN. DTSBU934 00129 OPEN INPUT NAICS-FILE. DTSBU934 00130 DTSBU934 00131 IF FILE-OK-88 OR FILE-VERIFY-88 DTSBU934 00132 NEXT SENTENCE DTSBU934 00133 ELSE DTSBU934 00134 PERFORM S999-ABEND THRU S999-EXIT. DTSBU934 00135 P1100-EXIT. DTSBU934 00136 EXIT. DTSBU934 00137 SKIP3 DTSBU934 00138 P1200-CLOSE. DTSBU934 00139 CLOSE NAICS-FILE. DTSBU934 00140 DTSBU934 00141 IF FILE-OK-88 DTSBU934 00142 NEXT SENTENCE DTSBU934 00143 ELSE DTSBU934 00144 PERFORM S999-ABEND THRU S999-EXIT. DTSBU934 00145 P1200-EXIT. DTSBU934 00146 EXIT. DTSBU934 00147 EJECT DTSBU934 00148 P2100-READ. DTSBU934 00149 MOVE XNIC-KEY-AREA OF LINK-REC TO XNIC-KEY-AREA OF FILE-REC. DTSBU934 00150 DTSBU934 00151 READ NAICS-FILE. DTSBU934 00152 DTSBU934 00153 IF FILE-OK-88 DTSBU934 00154 PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT DTSBU934 00155 ELSE DTSBU934 00156 IF FILE-NO-REC-88 DTSBU934 00157 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU934 00158 ELSE DTSBU934 00159 PERFORM S999-ABEND THRU S999-EXIT. DTSBU934 00160 P2100-EXIT. DTSBU934 00161 EXIT. DTSBU934 00162 EJECT DTSBU934 00163 P2200-START-BROWSE. DTSBU934 00164 MOVE XNIC-KEY-AREA OF LINK-REC TO XNIC-KEY-AREA OF FILE-REC. DTSBU934 00165 DTSBU934 00166 START NAICS-FILE DTSBU934 00167 KEY IS NOT < XNIC-KEY-AREA OF FILE-REC. DTSBU934 00168 DTSBU934 00169 IF FILE-OK-88 DTSBU934 00170 PERFORM P2300-READ-NEXT THRU P2300-EXIT DTSBU934 00171 ELSE DTSBU934 00172 IF FILE-NO-REC-88 DTSBU934 00173 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU934 00174 ELSE DTSBU934 00175 PERFORM S999-ABEND THRU S999-EXIT. DTSBU934 00176 P2200-EXIT. DTSBU934 00177 EXIT. DTSBU934 00178 EJECT DTSBU934 00179 P2300-READ-NEXT. DTSBU934 00180 READ NAICS-FILE NEXT. DTSBU934 00181 DTSBU934 00182 IF FILE-OK-88 DTSBU934 00183 PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT DTSBU934 00184 ELSE DTSBU934 00185 IF FILE-NO-REC-88 DTSBU934 00186 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU934 00187 ELSE DTSBU934 00188 PERFORM S999-ABEND THRU S999-EXIT. DTSBU934 00189 P2300-EXIT. DTSBU934 00190 EXIT. DTSBU934 00191 EJECT DTSBU934 00192 S1100-NO-REC. DTSBU934 00193 SET L934-NO-REC-88 TO TRUE. DTSBU934 00194 S1100-EXIT. DTSBU934 00195 EXIT. DTSBU934 00196 EJECT DTSBU934 00197 S2200-FILE-TO-LINK. DTSBU934 00198 MOVE FILE-REC TO LINK-REC. DTSBU934 00199 S2200-EXIT. DTSBU934 00200 EXIT. DTSBU934 00201 EJECT DTSBU934 00202 S9100-PRE-DISPLAY. DTSBU934 00203 DISPLAY ' '. DTSBU934 00204 DTSBU934 00205 DISPLAY ' '. DTSBU934 00206 DTSBU934 00207 DISPLAY '*** DTSBU934 PRE TRACE DISPLAY ***'. DTSBU934 00208 DTSBU934 00209 DISPLAY L934-MOD-NAME DTSBU934 00210 ' = L934-MOD-NAME'. DTSBU934 00211 DTSBU934 00212 DISPLAY L934-CMND-CD DTSBU934 00213 ' = L934-CMND-CD'. DTSBU934 00214 DTSBU934 00215 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU934 00216 S9100-EXIT. DTSBU934 00217 EXIT. DTSBU934 00218 SKIP3 DTSBU934 00219 S9200-POST-DISPLAY. DTSBU934 00220 DISPLAY ' '. DTSBU934 00221 DTSBU934 00222 DISPLAY ' '. DTSBU934 00223 DTSBU934 00224 DISPLAY '*** DTSBU934 POST TRACE DISPLAY ***'. DTSBU934 00225 DTSBU934 00226 DISPLAY L934-RESULT-IND DTSBU934 00227 ' = L934-RESULT-IND'. DTSBU934 00228 DTSBU934 00229 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU934 00230 S9200-EXIT. DTSBU934 00231 EXIT. DTSBU934 00232 SKIP3 DTSBU934 00233 S9300-REC-DISPLAY. DTSBU934 00234 DISPLAY ' '. DTSBU934 00235 DTSBU934 00236 DISPLAY XNIC-KEY-AREA OF LINK-REC DTSBU934 00237 ' = XNIC-KEY-AREA'. DTSBU934 00238 S9300-EXIT. DTSBU934 00239 EXIT. DTSBU934 00240 EJECT DTSBU934 00241 S999-ABEND. DTSBU934 00242 DISPLAY '*** I/O MODULE ABENDING'. DTSBU934 00243 DTSBU934 00244 DISPLAY '*** CMND-CD = ' L934-CMND-CD. DTSBU934 00245 DTSBU934 00246 DISPLAY '*** FILE-STATUS = ' FILE-STATUS. DTSBU934 00247 DTSBU934 00248 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU934 00249 DTSBU934 00250 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBU934 00251 S999-EXIT. DTSBU934 00252 EXIT. DTSBU934