|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
19.19.RPG IV AIDソース | |||||||||
FDSPF CF E WORKSTN F INFDS(INFDSP) D INFDSP DS D PUSHED 369 369 D****************************************************** D* D E F I N E C O N S T A N T * D****************************************************** D F1 C CONST(X'31') D F2 C CONST(X'32') D F3 C CONST(X'33') D F4 C CONST(X'34') D F5 C CONST(X'35') D F6 C CONST(X'36') D F7 C CONST(X'37') D F8 C CONST(X'38') D F9 C CONST(X'39') D F10 C CONST(X'3A') D F11 C CONST(X'3B') D F12 C CONST(X'3C') D F13 C CONST(X'B1') D F14 C CONST(X'B2') D F15 C CONST(X'B3') D F16 C CONST(X'B4') D F17 C CONST(X'B5') D F18 C CONST(X'B6') D F19 C CONST(X'B7') D F20 C CONST(X'B8') D F21 C CONST(X'B9') D F22 C CONST(X'BA') D F23 C CONST(X'BB') D F24 C CONST(X'BC') D CLEAR C CONST(X'BD') D RECENT C CONST(X'F1') D HELP C CONST(X'F3') D ROLDWN C CONST(X'F4') D ROLUP C CONST(X'F5') D PAGPRT C CONST(X'F6') D BACKSP C CONST(X'F8') D AUTINP C CONST(X'3F') I****************************************************** I* D E F I N E D A T A - S T R U C T U R E * I****************************************************** C IF (F3 = PUSHED) OR (F12 = PUSHED) C MOVE *ON POCNL C ENDIF 2001-2-9 |
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
