($title_img_alt)

こちらからの投稿は、先頭に表示されているコメントへの返信になります。
RE:キーワードの不足  IKD さん [ 5月9日(土) 10時1分 ]
ASDさんの DSPF の記述には問題ありません。

CHANGE(71) キー・ワードは確実に動作していることを実際に
DSPF + CLP で動作を下記のソースで確認テストしました。

 DSPF: TEST02FM ( http://218.44.135.18/QSYS.LIB/PGMRLIB.LIB/QDSPSRC.FILE/TE
ST02FM.MBR )
---------------------------------------------------------------------------
-----------
0001.00      A                                      DSPSIZ(24 80 *DS3)   
0002.00      A                                      MSGLOC(24)           
0003.00      A                                      PRINT                
0004.00      A          R DSP01                                          
0005.00      A                                      CLRL(22)             
0006.00      A                                      TEXT(' 明細画面 01') 
0007.00      A                                      CF03(03 ' 終了 ')    
0008.00      A                                      CHGINPDFT            
0009.00      A                                      CHANGE(71)           
0010.00      A            D1AAAA         5Y 2B  3 13                     
0011.00      A                                      CHECK(RB)            
0012.00      A                                      DSPATR(UL)           
0013.00      A                                      EDTWRD('   .  ')     
---------------------------------------------------------------------------
----------

 CLP : TEST02CL ( http://218.44.135.18/QSYS.LIB/PGMRLIB.LIB/QCLSRC.FILE/TES
T02CL.MBR )
---------------------------------------------------------------------------
-----------
0001.00              PGM                                                  
0002.00              DCLF       FILE(TEST.COM/TEST02FM)                   
0003.00                                                                   
0004.00  DSPLY:      SNDRCVF    RCDFMT(DSP01)                             
0005.00              IF         COND(&IN03 *EQ '1') THEN(RETURN)          
0006.00              IF         COND(&IN71 *EQ '1') THEN(DO)              
0007.00              SNDPGMMSG  MSG('*IN71 は ON です。 ') MSGTYPE(*DIAG) 
0008.00              ENDDO                                                
0009.00              ELSE       CMD(DO)                                   
0010.00              SNDPGMMSG  MSG('*IN71 は OFF です。 ') MSGTYPE(*DIAG)
0011.00              ENDDO                                                
0012.00              ENDPGM                                               
---------------------------------------------------------------------------
-----------

CHANMGE(71) のは問題はなくても実際の DSPF ソースには SETOFF が記述されているとか
標識 71 が DSPF の SFLレコード内でも定義されていたりすると
SFL の操作によって OFF になる場合があります。
ERRMSG や SFLMSG キーワードに同じ標識 71 が定義されていると OFF になります。

要はプログラム・コーディングのどこかにミスがあるはずですので
 71 という文字列を SEU で SCAN して調べてください。
どこか他で使用されているはずです。


なお *IN03 の使用は決して特殊ではありません。むしろ一般的です。
*INKC のほうが S/36 時代の使用方法を引き継いで゜いるので特殊なケースです。
RE:キーワードの不足  LiR さん [ 5月9日(土) 14時29分 ]
ありがとうございます。
もう一度じっくりソースを見直しました。
同じインジケータを使用しているというミスがありました。

CHANGE、ちゃんと認識してくれました。

お名前

パスワード

メールアドレス

タイトル

ホームページ

アドレス

項目