DSPF : REDSPD CRTDSPFのWAITRCDで再表示の間隔(秒)を指定します。 A CF03
A CF12
A*-------------------------------------*
A R FMT01
A*-------------------------------------*
A FRCDTA
A INVITE
A V1UPCT 7Y 0O 3 41EDTCDE(3)
A 3 49' 回表示 '
RPG : REDSPR FREDSPD CF E WORKSTN KNUM 1
F KINFDS INFDSP
F KINFSR *PSSR
I X'33' C F3
I X'3C' C F12
IINFDSP DS
I *STATUS STATUS
I 369 369 PUSHED
C* :
B001 C STATUS DOUNE1331 :
001 C* :
001 C ADD 1 V1UPCT :
001 C WRITEFMT01 :
001 C READ REDSPD 9898:
001 C* :
B002 C F3 IFEQ PUSHED :
*002 C F12 OREQ PUSHED :
002 C LEAVE :
E002 C ENDIF :
E001 C ENDDO :
C* :
C MOVE *ON *INLR :
C RETRN :
C*-----------------------------------------------------
C *PSSR BEGSR :
C*-----------------------------------------------------
C MOVE *ON *INLR :
C RETRN :
C* :
C ENDSR :
|