00001  IDENTIFICATION DIVISION.                                         08/06/98
00002  PROGRAM-ID.             DTSCU019                                 DTSCU019
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV003
00004  DATE-WRITTEN            NOVEMBER 1991.                           DTSCU019
00005  DATE-COMPILED.                                                   DTSCU019
00006      SKIP3                                                        DTSCU019
00007 *****                                                             DTSCU019
00008 *                                                                 DTSCU019
00009 *    FUNCTION:   EDIT AND FORMAT BATCH FROM SCREEN                DTSCU019
00010 *                                                                 DTSCU019
00011 *                                                                 DTSCU019
00012 *    MODIFICATION LOG:                                            DTSCU019
00013 *                                                                 DTSCU019
00014 *    08/04/98    INITIAL DEVELOPMENT. MODIFIED FROM MACCU019.        CL**2
00015 *                WORK ORDER:                 PROGRAMMER: ZL1.        CL**2
00016 *                                                                 DTSCU019
00017 *    XX/XX/XX    XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX     DTSCU019
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX     DTSCU019
00019 *                WORK ORDER:                 PROGRAMMER:          DTSCU019
00020 *                                                                 DTSCU019
00021 *                                                                 DTSCU019
00022 *    DESCRIPTION:                                                 DTSCU019
00023 *                                                                 DTSCU019
00024 *****                                                             DTSCU019
00025  SKIP3                                                            DTSCU019
00026  ENVIRONMENT DIVISION.                                            DTSCU019
00027  SKIP3                                                            DTSCU019
00028  DATA DIVISION.                                                   DTSCU019
00029  SKIP3                                                            DTSCU019
00030  WORKING-STORAGE SECTION.                                         DTSCU019
000305 77  PAN-VALET PICTURE X(24) VALUE '003DTSCU019  08/06/98'.       DTSCU019
00031  SKIP3                                                            DTSCU019
00032  01  WRK-AREA.                                                    DTSCU019
00033      05  WS-BATCH-NO                          PIC  9(05).         DTSCU019
00034                                                                   DTSCU019
00035      05  WS-ITEM-NO                           PIC  9(03).         DTSCU019
00036                                                                   DTSCU019
00037      05  WRK-BATCH-ENTRY                      PIC  X(01).         DTSCU019
00038          88  WRK-BATCH-ENTRY-YES      VALUE 'Y'.                  DTSCU019
00039          88  WRK-BATCH-ENTRY-NO       VALUE 'N'.                  DTSCU019
00040          88  WRK-BATCH-ENTRY-ERROR    VALUE 'E'.                  DTSCU019
00041                                                                   DTSCU019
00042      05  WRK-ITEM-ENTRY                       PIC  X(01).         DTSCU019
00043          88  WRK-ITEM-ENTRY-YES       VALUE 'Y'.                  DTSCU019
00044          88  WRK-ITEM-ENTRY-NO        VALUE 'N'.                  DTSCU019
00045          88  WRK-ITEM-ENTRY-ERROR     VALUE 'E'.                  DTSCU019
00046      EJECT                                                        DTSCU019
00047  LINKAGE SECTION.                                                 DTSCU019
00048                                                                   DTSCU019
00049  01  DFHCOMMAREA.                                                 DTSCU019
00050  ++INCLUDE DTSIL019                                                  CL**3
00051      EJECT                                                        DTSCU019
00052  PROCEDURE DIVISION.                                              DTSCU019
00053                                                                   DTSCU019
00054      MOVE +0 TO L019-BATCH-NO                                     DTSCU019
00055                 L019-DOC-NO.                                      DTSCU019
00056                                                                   DTSCU019
00057      IF  L019-S-BATCH-NO = SPACES OR LOW-VALUES                   DTSCU019
00058         SET WRK-BATCH-ENTRY-NO TO TRUE                               CL**2
00059         MOVE +0  TO L019-BATCH-NO                                 DTSCU019
00060      ELSE                                                         DTSCU019
00061      IF L019-S-BATCH-NO NUMERIC                                   DTSCU019
00062         SET WRK-BATCH-ENTRY-YES TO TRUE                              CL**2
00063         MOVE L019-S-BATCH-NO TO WS-BATCH-NO                       DTSCU019
00064         MOVE WS-BATCH-NO TO L019-BATCH-NO                         DTSCU019
00065      ELSE                                                         DTSCU019
00066         SET WRK-BATCH-ENTRY-ERROR TO TRUE                            CL**2
00067         MOVE +0  TO L019-BATCH-NO.                                DTSCU019
00068                                                                   DTSCU019
00069      IF L019-S-ITEM-NO = SPACE OR LOW-VALUES                      DTSCU019
00070         SET WRK-ITEM-ENTRY-NO TO TRUE                                CL**2
00071         MOVE +0  TO L019-ITEM-NO                                  DTSCU019
00072      ELSE                                                         DTSCU019
00073      IF L019-S-ITEM-NO NUMERIC                                    DTSCU019
00074         SET WRK-ITEM-ENTRY-YES TO TRUE                               CL**2
00075         MOVE L019-S-ITEM-NO TO WS-ITEM-NO                         DTSCU019
00076         MOVE WS-ITEM-NO TO L019-ITEM-NO                           DTSCU019
00077      ELSE                                                         DTSCU019
00078         SET WRK-ITEM-ENTRY-ERROR TO TRUE                             CL**2
00079         MOVE +0  TO L019-ITEM-NO.                                 DTSCU019
00080                                                                   DTSCU019
00081      IF WRK-BATCH-ENTRY-ERROR                                     DTSCU019
00082      OR WRK-ITEM-ENTRY-ERROR                                      DTSCU019
00083         PERFORM NOT-VALID-ENTRY THRU NOT-VALID-EXIT               DTSCU019
00084         GO TO INIT0199-GO-BACK.                                   DTSCU019
00085                                                                   DTSCU019
00086      IF  WRK-ITEM-ENTRY-YES                                       DTSCU019
00087      AND WRK-BATCH-ENTRY-NO                                       DTSCU019
00088         PERFORM NOT-VALID-ENTRY THRU NOT-VALID-EXIT               DTSCU019
00089         GO TO INIT0199-GO-BACK.                                   DTSCU019
00090                                                                   DTSCU019
00091      IF  WRK-BATCH-ENTRY-NO                                       DTSCU019
00092      AND WRK-ITEM-ENTRY-NO                                        DTSCU019
00093         SET L019-NO-ENTRY TO TRUE                                    CL**2
00094         GO TO INIT0199-GO-BACK.                                   DTSCU019
00095                                                                   DTSCU019
00096      SET L019-VALID TO TRUE.                                      DTSCU019
00097                                                                   DTSCU019
00098  INIT0199-GO-BACK.                                                DTSCU019
00099      EXEC CICS                                                    DTSCU019
00100          RETURN                                                   DTSCU019
00101      END-EXEC.                                                    DTSCU019
00102      GOBACK.                                                      DTSCU019
00103  NOT-VALID-ENTRY.                                                 DTSCU019
00104      SET L019-NOT-VALID TO TRUE                                      CL**2
00105      MOVE ZERO TO                                                 DTSCU019
00106                 L019-BATCH-NO                                     DTSCU019
00107                 L019-ITEM-NO.                                     DTSCU019
00108  NOT-VALID-EXIT.                                                  DTSCU019
00109      EXIT.                                                        DTSCU019
