/*  Declarations. */
             DCL        VAR(&HRS_C) TYPE(*CHAR) LEN(2)
             DCL        VAR(&HRS_2) TYPE(*DEC) LEN(2 0)


/*  Get current time. */
             RTVSYSVAL  SYSVAL(QHOUR) RTNVAR(&HRS_C)
             CHGVAR     VAR(&HRS_2) VALUE(&HRS_C)

/*  If it is after 1800 and before 0600, start at Night_Time.  */
             IF         COND(&HRS_2 >= 18 *OR &HRS_2 < 06) +
                        THEN(GOTO CMDLBL(Night_Time))


LOOP:

/*  Reset statistics. */
             WRKDSKSTS  OUTPUT(*PRINT) RESET(*YES)
             DLTSPLF    FILE(QPWCDSKS) SPLNBR(*LAST)

/*  Wait for 5 minutes. */
             DLYJOB     RSMTIME('18:00:00')

/*  Print report day-time report. */
             WRKDSKSTS  OUTPUT(*PRINT) RESET(*NO)



Night_Time:

/*  Reset statistics. */
             WRKDSKSTS  OUTPUT(*PRINT) RESET(*YES)
             DLTSPLF    FILE(QPWCDSKS) SPLNBR(*LAST)

/*  Wait for 5 minutes. */
             DLYJOB     RSMTIME('06:00:00')

/*  Print report night-time report. */
             WRKDSKSTS  OUTPUT(*PRINT) RESET(*NO)



/*  Do it again. */
             GOTO       CMDLBL(LOOP)