00001 IDENTIFICATION DIVISION. 10/22/98 00002 PROGRAM-ID. DTSCU027 DTSCU027 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV005 00004 DATE-WRITTEN OCTOBER 1998. CL**4 00005 DATE-COMPILED. DTSCU027 00006 SKIP3 DTSCU027 00007 ***** DTSCU027 00008 * DTSCU027 00009 * FUNCTION: EDIT AND FORMAT DC BUSINESS TAX NUMBER CL**2 00010 * DTSCU027 00011 * DTSCU027 00012 * THE BUSINESS TAX NUMBER ENTERED MUST BE NUMERIC AND GREATER CL**3 00013 * THAN ZERO. CL**3 00014 * CL**3 00015 * MODIFICATION LOG: DTSCU027 00016 * DTSCU027 00017 * 08/03/1998 INITIAL DEVELOPMENT. CREATED FOR DC. CL**2 00018 * WORK ORDER: PROGRAMMER: CL**2 00019 * DTSCU027 00020 * XX/XX/XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU027 00021 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU027 00022 * WORK ORDER: PROGRAMMER: DTSCU027 00023 * DTSCU027 00024 * DTSCU027 00025 * DESCRIPTION: DTSCU027 00026 * DTSCU027 00027 ***** DTSCU027 00028 SKIP3 DTSCU027 00029 ENVIRONMENT DIVISION. DTSCU027 00030 DATA DIVISION. DTSCU027 00031 SKIP3 DTSCU027 00032 WORKING-STORAGE SECTION. DTSCU027 000325 77 PAN-VALET PICTURE X(24) VALUE '005DTSCU027 10/22/98'. DTSCU027 00033 EJECT DTSCU027 00034 LINKAGE SECTION. DTSCU027 00035 01 DFHCOMMAREA. DTSCU027 00036 ++INCLUDE DTSIL027 CL**2 00037 EJECT DTSCU027 00038 PROCEDURE DIVISION. DTSCU027 00039 DTSCU027-MAIN. CL**2 00040 SET L027-NOT-VALID TO TRUE. CL**2 00041 MOVE +0 TO L027-BTN. CL**2 00042 SKIP2 DTSCU027 00043 IF (L027-S-BTN = SPACES OR LOW-VALUES) CL**2 00044 SET L027-NO-ENTRY TO TRUE CL**2 00045 GO TO DTSCU027-MAIN-EXIT CL**2 00046 END-IF. CL**2 00047 SKIP1 DTSCU027 00048 IF L027-S-BTN NUMERIC CL**2 00049 IF L027-S-BTN > ZERO CL**2 00050 MOVE L027-S-BTN-N TO L027-BTN CL**5 00051 SET L027-VALID TO TRUE CL**2 00052 ELSE CL**2 00053 SET L027-NOT-VALID TO TRUE CL**2 00054 END-IF CL**2 00055 ELSE CL**2 00056 SET L027-NOT-VALID TO TRUE CL**2 00057 END-IF. CL**2 00058 SKIP1 DTSCU027 00059 DTSCU027-MAIN-EXIT. CL**2 00060 EXEC CICS DTSCU027 00061 RETURN DTSCU027 00062 END-EXEC. DTSCU027 00063 GOBACK. DTSCU027 00064 SKIP3 DTSCU027