106 lines
8.3 KiB
COBOL
106 lines
8.3 KiB
COBOL
00001 IDENTIFICATION DIVISION. 09/01/98
|
|
00002 PROGRAM-ID. DTSCU028 DTSCU028
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV006
|
|
00004 DATE-WRITTEN NOVEMBER 1991. DTSCU028
|
|
00005 DATE-COMPILED. DTSCU028
|
|
00006 SKIP3 DTSCU028
|
|
00007 ***** DTSCU028
|
|
00008 * DTSCU028
|
|
00009 * FUNCTION: EDIT AND FORMAT LIEN NUMBER, LEVY NUMBER, AND CL**5
|
|
00010 * REFUND NUMBER. CL**5
|
|
00011 * CL**5
|
|
00012 * DTSCU028
|
|
00013 * MODIFICATION LOG: DTSCU028
|
|
00014 * DTSCU028
|
|
00015 * 08/04/98 INITIAL DEVELOPMENT. MODIFIED FROM MACCU028. CL**5
|
|
00016 * WORK ORDER: PROGRAMMER: ZL1. CL**2
|
|
00017 * CL**5
|
|
00018 * 09/01/1998 CLONED FROM DTSCU022. CL**5
|
|
00019 * WORK ORDER: DC DEVELOPMENT PROGRAMMER: EHH CL**5
|
|
00020 * DTSCU028
|
|
00021 * XX/XX/XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU028
|
|
00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU028
|
|
00023 * WORK ORDER: PROGRAMMER: DTSCU028
|
|
00024 * DTSCU028
|
|
00025 * DTSCU028
|
|
00026 * DESCRIPTION: DTSCU028
|
|
00027 * DTSCU028
|
|
00028 ***** DTSCU028
|
|
00029 SKIP3 DTSCU028
|
|
00030 ENVIRONMENT DIVISION. DTSCU028
|
|
00031 DATA DIVISION. DTSCU028
|
|
00032 SKIP3 DTSCU028
|
|
00033 WORKING-STORAGE SECTION. DTSCU028
|
|
000335 77 PAN-VALET PICTURE X(24) VALUE '006DTSCU028 09/01/98'. DTSCU028
|
|
00034 01 WRK-AREA. DTSCU028
|
|
00035 05 WRK-AREA. CL**5
|
|
00036 10 WRK-YR PIC 9(04). CL**5
|
|
00037 10 WRK-SEQ PIC 9(04). CL**5
|
|
00038 05 WRK-COMPLETE-NO REDEFINES WRK-AREA CL**5
|
|
00039 PIC 9(08). CL**6
|
|
00040 EJECT DTSCU028
|
|
00041 01 DTSIL007-COMM-AREA. CL**2
|
|
00042 ++INCLUDE DTSIL007 CL**3
|
|
00043 EJECT DTSCU028
|
|
00044 01 DTSIL013-COMM-AREA. CL**2
|
|
00045 ++INCLUDE DTSIL013 CL**3
|
|
00046 EJECT DTSCU028
|
|
00047 LINKAGE SECTION. DTSCU028
|
|
00048 01 DFHCOMMAREA. DTSCU028
|
|
00049 ++INCLUDE DTSIL028 CL**5
|
|
00050 EJECT DTSCU028
|
|
00051 PROCEDURE DIVISION. DTSCU028
|
|
00052 SKIP2 DTSCU028
|
|
00053 SET L028-NOT-VALID TO TRUE. CL**5
|
|
00054 MOVE +0 TO L028-NO. CL**5
|
|
00055 SKIP2 DTSCU028
|
|
00056 IF (L028-S-YR = SPACES OR LOW-VALUES) CL**5
|
|
00057 AND DTSCU028
|
|
00058 (L028-S-SEQ = SPACES OR LOW-VALUES) CL**5
|
|
00059 SET L028-NO-ENTRY TO TRUE CL**5
|
|
00060 GO TO INIT0199-GO-BACK. DTSCU028
|
|
00061 CL**5
|
|
00062 SET L007-FROM-YR-2 TO TRUE. DTSCU028
|
|
00063 MOVE L028-S-YR TO L007-YR-2-X. CL**5
|
|
00064 PERFORM S007-CONVERT-EDIT-YR THRU S007-EXIT. DTSCU028
|
|
00065 IF L007-VALID-YR DTSCU028
|
|
00066 MOVE L007-YR-4-9 TO WRK-YR CL**5
|
|
00067 ELSE DTSCU028
|
|
00068 GO TO INIT0199-GO-BACK. DTSCU028
|
|
00069 CL**5
|
|
00070 MOVE L028-S-SEQ-AREA TO L013-S-CNT-AREA. CL**5
|
|
00071 MOVE +1 TO L013-MIN-CNT. CL**5
|
|
00072 MOVE +9999 TO L013-MAX-CNT. CL**5
|
|
00073 PERFORM S013-CONVERT-EDIT-SEQ THRU S013-EXIT. DTSCU028
|
|
00074 IF L013-VALID DTSCU028
|
|
00075 MOVE L013-CNT TO WRK-SEQ CL**5
|
|
00076 ELSE DTSCU028
|
|
00077 GO TO INIT0199-GO-BACK. DTSCU028
|
|
00078 CL**5
|
|
00079 MOVE WRK-COMPLETE-NO TO L028-NO. CL**5
|
|
00080 CL**5
|
|
00081 SET L028-VALID TO TRUE. CL**5
|
|
00082 CL**5
|
|
00083 CL**5
|
|
00084 INIT0199-GO-BACK. DTSCU028
|
|
00085 EXEC CICS DTSCU028
|
|
00086 RETURN DTSCU028
|
|
00087 END-EXEC. DTSCU028
|
|
00088 CL**5
|
|
00089 CL**5
|
|
00090 GOBACK. DTSCU028
|
|
00091 SKIP3 DTSCU028
|
|
00092 S007-CONVERT-EDIT-YR. DTSCU028
|
|
00093 EXEC CICS DTSCU028
|
|
00094 LINK PROGRAM ('DTSCU007') CL**2
|
|
00095 COMMAREA (DTSIL007-COMM-AREA) CL**2
|
|
00096 END-EXEC. DTSCU028
|
|
00097 S007-EXIT. EXIT. DTSCU028
|
|
00098 SKIP3 DTSCU028
|
|
00099 S013-CONVERT-EDIT-SEQ. DTSCU028
|
|
00100 EXEC CICS DTSCU028
|
|
00101 LINK PROGRAM ('DTSCU013') CL**2
|
|
00102 COMMAREA (DTSIL013-COMM-AREA) CL**2
|
|
00103 END-EXEC. DTSCU028
|
|
00104 S013-EXIT. EXIT. DTSCU028
|