Re: Animation/Auto refresh screens

You might find it easier to look for is a PC program like Wink.exe which will do pretty much what you are asking, plus allow a voice-over.

However, to answer your question:
http://www.martinvt.com/Code_Samples/Kiosk_Clock/kiosk_clock.html
This program refreshes either with the Enter key _or_ with a timer.

The key elements of making it work, for me, were these:

Special notes concerning the auto-refresh feature. The goal is to
have the screen be auto-refreshing on a user-selected time period.
At the same time, we need the user to be able to interrupt the cycle
at will.
1-The *DSPF must have the INVITE keyword, and if there is to be a
subfile then INVITE must be conditioned with an indicator. That indicator must be off when clearing and filling the subfile. Tip: Use a unique indicator.
2-Look at the F-spec. You need "workstn maxdev(*file)"
3-The RPGLE program must use WRITE/READ combinations.
--->Do not use EXFMT. <---------------------
4-The conditioning indicator must be on when doing a WRITE/READ.
5-Remember the rulz: Always WRITE the record and READ the file.
6-Use a MONITOR/ON_ERROR/ENDMON block on all WRITE/READ pairs.
7- wCmd = 'OVRDSPF FILE(CLOCKD) WAITRCD('
+ %char(%int(wMinutes * 60)) + ')'; is what makes it work.
8-When the screen times out, MUST set off conditioning indicator
and then WRITE the screen again, so the INVITE keyword
is not active.
9-KEEP is the keyword to keep the background screen from going
black on the second & subsequent writes of the format


On 7/1/2012 4:51 AM, Yvan Janssens wrote:

Hello,

I'm attempting to create an animation on my 5250 session - the approach I
want to try is separating the animation in frames, create a dspf record for
each frame, and display each dspf record sequentially.

The display file works (it counts 37k lines though, so compilation takes a
bit of time on my Model 250), but my RPG program waits for an [ENTER] after
every display, and hitting 300 times [enter] to get through the animation
is a PITA...

I'm using the following RPGLE code:

H DFTACTGRP(*NO)
fSCENE1 cf e workstn SFILE(S1:RRN1)
d usleep pr 10i 0 ExtProc ('usleep')
d seconds 10i 0 value
c ExFmt FR000
c callp usleep(100000)
c ExFmt FR001
c callp usleep(100000)
...

How can I evade the requirement to push on the [enter] button after every
frame? (my RPG level of experience is copy-paste n00b, just started
learning).

The idea is to make a demo for a local demoscene competition (like the
animations on the Commodore 64 and such), and get an animation out of my
green screen terminal.

Thank you,

Yvan Janssens

(ps: these files are autogenerated - I created ASCII art logo's, and
transformation routines, which creates in turn every frame in a .txt file
in ASCII, then I'll optimize it and create DSPF files)