|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
19.17.*SAVFのレコード数を検査するプログラム | |||||||||
ＲＰＧコード（桁位置は正しいので、このまま画面コピーできます）CALL前に、 OVRDBF SAVF xxxxxx として、実際の*SAVFにオーバーライドしてください。 FSAVF IF F 528 DISK
F KINFDS INFDSS
ISAVF AA 01
I 1 1 DATA
IINFDSS DS
I B 156 1590RCDNBR
C MOVE *ON *INLR
C RETRN
C READ SAVF 90
|
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
