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
