Re: Seeking a clock program

[Chuck Lewis <clewis@xxxxxxxxxx>]

I have JUST what you need.

CMD:

            CMD        PROMPT('Display Time & Date')

CL:



             PGM        /* Display Time & Date */
             DCL        VAR(&HH) TYPE(*CHAR) LEN(2)
             DCL        VAR(&MN) TYPE(*CHAR) LEN(2)
             DCL        VAR(&SS) TYPE(*CHAR) LEN(2)
             DCL        VAR(&MM) TYPE(*CHAR) LEN(2)
             DCL        VAR(&DD) TYPE(*CHAR) LEN(2)
             DCL        VAR(&YY) TYPE(*CHAR) LEN(2)
             RTVSYSVAL  SYSVAL(QHOUR) RTNVAR(&HH)
             RTVSYSVAL  SYSVAL(QMINUTE) RTNVAR(&MN)
             RTVSYSVAL  SYSVAL(QSECOND) RTNVAR(&SS)
             RTVSYSVAL  SYSVAL(QMONTH) RTNVAR(&MM)
             RTVSYSVAL  SYSVAL(QDAY) RTNVAR(&DD)
             RTVSYSVAL  SYSVAL(QYEAR) RTNVAR(&YY)
             SNDPGMMSG  MSG('Date: ' *CAT &MM *CAT '/' *CAT &DD +
                          *CAT '/' *CAT &YY *CAT '  Time: ' *CAT +
                          &HH *CAT ':' *CAT &MN *CAT ':' *CAT +
                          &SS) TOPGMQ(*PRV) MSGTYPE(*COMP)
             ENDPGM



Mike Cornwell wrote:

> We are looking at doing some time and attendance on our AS/400 using
> dumb
> terminals and bar code scanners. We want to be able to display the
> time
> continually without having to press a key to update the screen. Does
> anyone
> know of a program that will display the time, preferably in larger
> letters
> and continually update the screen? I think I've seen something like
> this
> before, but I'm not sure where.
>
> Any help would be appreciated.
>
> TIA,
>
> Mike Cornwell
> mcornwell@colsoncaster.com
> Sr. Programmer/Analyst
> LAN Administrator
> Colson Caster Corporation
> Jonesboro, Arkansas
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---



--
Chuck


    _/_/_/_/   _/    _/   _/    _/   _/_/_/_/   _/    _/
   _/         _/    _/   _/    _/   _/         _/   _/
  _/         _/_/_/_/   _/    _/   _/         _/_/_/   Chuck Lewis
 _/         _/    _/   _/    _/   _/         _/   _/ CLEWIS@IQUEST.NET
_/_/_/_/   _/    _/   _/_/_/_/   _/_/_/_/   _/     _/ Indianapolis, IN

Home page at: http://www.bizcom.com/chucklewis

"The opinions that are shown, are exclusively my own. All my own, all my

own..." and NOT my employer's (with apologies to Emerson, Lake and
Palmer)...


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---