|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
19.18.RPG400 AIDソース | |||||||||
FDSPF CF E WORKSTN
F KINFDS INFDSP
IINFDSP DS
I 369 369 PUSHED
I******************************************************
I* D E F I N E C O N S T A N T *
I******************************************************
I X'31' C F1
I X'32' C F2
I X'33' C F3
I X'34' C F4
I X'35' C F5
I X'36' C F6
I X'37' C F7
I X'38' C F8
I X'39' C F9
I X'3A' C F10
I X'3B' C F11
I X'3C' C F12
I X'B1' C F13
I X'B2' C F14
I X'B3' C F15
I X'B4' C F16
I X'B5' C F17
I X'B6' C F18
I X'B7' C F19
I X'B8' C F20
I X'B9' C F21
I X'BA' C F22
I X'BB' C F23
I X'BC' C F24
I X'BD' C CLEAR
I X'F1' C RECENT
I X'F3' C HELP
I X'F4' C ROLDWN
I X'F5' C ROLUP
I X'F6' C PAGPRT
I X'F8' C BACKSP
I X'3F' C AUTINP
I******************************************************
I* D E F I N E D A T A - S T R U C T U R E *
I******************************************************
C F3 IFEQ PUSHED :
C F12 OREQ PUSHED :
C MOVE *ON POCNL :
C ENDIF :
C* :
2001-2-9 |
|
You are at K's tips-n-kicks of AS/400
|
|
|||
|
|
