|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
7.24.RPG IVと組み込み関数（BIF）の例1 | |||||||||
C* C* DEFINE FILED C* C *LIKE DEFINE A1FLD W1OLD C********************************************************************* C* MAIN MODULE SECTION C********************************************************************* C EXSR SRHED C* C READ AFILE C* C DOW NOT %EOF(AFILE) C MOVE A1FLD W1OLD C* C DOW NOT %EOF(AFILE) C EXSR SRSUM C EXSR SRDTL C READ AFILE C ENDDO C* C EXSR SRTOL C EXSR SRCLR C ENDDO C* C EXSR SREND C* C SETON LR C RETURN 2001-2-9 |
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
