PROCESS   APOST.
000800 IDENTIFICATION              DIVISION.
      *****************************************************************
000500*****************************************************************
000900 PROGRAM-ID.           DSKUTLW.
001000 AUTHOR.               YONI.
000500*****************************************************************
001100 ENVIRONMENT           DIVISION.
000500*****************************************************************
001200 CONFIGURATION         SECTION.
001300 SOURCE-COMPUTER.      IBM-AS400.
001400 OBJECT-COMPUTER.      IBM-AS400.
001500 SPECIAL-NAMES. REQUESTOR  IS  WS
001500                LOCAL-DATA   IS  LOCALS
                      I-O-FEEDBACK  IS  I-O-FEEDBACK.
001700 INPUT-OUTPUT          SECTION.
001800 FILE-CONTROL.
           SELECT  DSKUTLP   ASSIGN  TO  DATABASE-DSKUTLP.
           SELECT  DSKUTL    ASSIGN  TO  DATABASE-DSKUTL
                             ORGANIZATION  IS  SEQUENTIAL.
003400******************************************************************
003500 DATA                        DIVISION.
003600******************************************************************
003700 FILE                  SECTION.
      *
       FD  DSKUTLP.
       01  DSP-REC.
           03  DSP-PRE                 PIC  X(98).
           03  DSP-PREC                PIC  X(05).
           03  DSP-PREC-R REDEFINES DSP-PREC.
               05  DSP-PREC-SS         PIC  99.
               05  FILLER              PIC  X.
               05  DSP-PREC-HH         PIC  99.
           03  DSP-REST                PIC  X(29).
      *
       FD  DSKUTL.
       01  DSKUTL-RECX.  COPY DDS-DSKUTLREC  OF  HAFALA-DSKUTL.
004600******************************************************************
004700 WORKING-STORAGE       SECTION.
      *****************************************************************
014800 01  SW-AREA.
016100     03  SW-DSP-EOF-STS           PIC  9   VALUE 0.
016200         88  SW-DSP-EOF            VALUE  1.
016800*
004200 01  WA-AREA.
           03  WA-PREC                 PIC  9999V99.
           03  WA-DATE                 PIC  9(06).
           03  WA-DATEX                PIC  XX/XX/XX.
           03  WA-TIME                 PIC  9(08).
           03  WA-TIME-R REDEFINES  WA-TIME.
               05  WA-TIME21           PIC  X(02).
               05  WA-TIME22           PIC  X(02).
               05  FILLER              PIC  9999.
           03  WA-TIMEX.
               05  WA-TIMEX21          PIC  XX.
               05  WA-TIMEXSL          PIC  X  VALUE  ':'.
               05  WA-TIMEX22          PIC  XX.
017900******************************************************************
018000 PROCEDURE                         DIVISION.
018100******************************************************************
018200 START-PROGRAM         SECTION.
018300 ST-PROG.
           PERFORM  Z100-START.
           PERFORM  A100-MAIN  UNTIL  SW-DSP-EOF.
           PERFORM  Z999-END.
018700     STOP  RUN.
018800 ST-PROG-EX.
018900     EXIT.
014000******************************************************************
014100*                                                                *
014200******************************************************************
014300 A100-MAIN                    SECTION.
014400 A100.
           PERFORM  B100-ACTION.
054500 A100-EX.
054600     EXIT.
014000******************************************************************
014100*                                                                *
014200******************************************************************
014300 B100-ACTION                     SECTION.
014400 B100.
           COMPUTE  WA-PREC = (DSP-PREC-HH / 100) + DSP-PREC-SS.
           MOVE  WA-PREC               TO  DISKPRC.
           MOVE  WA-DATEX              TO  DSPDATE.
           MOVE  WA-TIMEX              TO  DSPTIME.
           MOVE  1                     TO  SW-DSP-EOF-STS.
054500 B100-WRITE.
           WRITE  DSKUTL-RECX.
054500 B100-EX.
054600     EXIT.
014000******************************************************************
014100*                                                                *
014200******************************************************************
014300 C100-READ                    SECTION.
014400 C100.
           READ  DSKUTLP   AT  END     MOVE  1  TO  SW-DSP-EOF-STS
                                       GO  TO  C100-EX.
           READ  DSKUTLP   AT  END     MOVE  1  TO  SW-DSP-EOF-STS
                                       GO  TO  C100-EX.
           READ  DSKUTLP   AT  END     MOVE  1  TO  SW-DSP-EOF-STS
                                       GO  TO  C100-EX.
           READ  DSKUTLP   AT  END     MOVE  1  TO  SW-DSP-EOF-STS
                                       GO  TO  C100-EX.
054500 C100-EX.
054600     EXIT.
      ******************************************************
      *                                                    *
      ******************************************************
       Z100-START                      SECTION.
       Z100.
           ACCEPT  WA-DATE             FROM  DATE.
           MOVE  WA-DATE               TO  WA-DATEX.
           ACCEPT  WA-TIME             FROM  TIME.
           MOVE  WA-TIME21             TO  WA-TIMEX21.
           MOVE  WA-TIME22             TO  WA-TIMEX22.
           MOVE  0                     TO  SW-DSP-EOF-STS.
           OPEN  INPUT  DSKUTLP
                 EXTEND  DSKUTL.
           PERFORM  C100-READ.
063000 Z100-EX.
063100     EXIT.
      ******************************************************
      *                                                    *
      ******************************************************
       Z999-END                        SECTION.
       Z999.
           CLOSE        DSKUTLP
                         DSKUTL.
       Z999-EX.
           EXIT.