|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
レコードロックメッセージ | |||||||||
|
ロックさせて実行した結果 表示されているのが、プログラム内のERRMSGの内容です。テストをする時は、対象となる更新ファイルのWAITRCDを1秒にしてみてください。早くに分かります。省略値は60秒です。
RPGソース H 1 Y/ 1
F******************************************************
F* D E F I N E F I L E S *
F******************************************************
FFILE UF F 1 DISK
FLOCKD CF E WORKSTN
I******************************************************
I* D E F I N E I N P U T F I E L D *
I******************************************************
IFILE AA 01
I 1 1 DTA
I******************************************************
I* D E F I N E D A T A - S T R U C T U R E *
I******************************************************
I* PROGRAM STATUS
I SDS
I → 91 170 ERRMSG
C******************************************************
C* M A I N - R O U T I N E
C******************************************************
C 1 CHAINFILE 9091 ;
C* ;
B001 C *IN90 IFEQ *ON ;
001 C MOVEL'NO KEY!!'V1MSG ;
+001 C ELSE ;
B002 C *IN91 IFEQ *ON ;
002 C MOVELERRMSG V1MSG ← ;
+002 C ELSE ;
002 C MOVEL'OK!!' V1MSG ;
E002 C END ;
E001 C END ;
C* ;
C EXFMTFMT01 ;
C* ;
B001 C *IN90 IFEQ *OFF ;
*001 C *IN91 ANDEQ*OFF ;
001 C EXCPT#UPD ;
E001 C END ;
C* ;
C MOVE *ON *INLR ;
C RETRN ;
O******************************************************
O* O U T P U T M O D U L E *
O******************************************************
OFILE E #UPD
|
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
