コマンド

17. コマンド入力の妥当性検査を行うには?

コマンドの入力値は RANGE や 有効な値を定義することによって、静的な妥当性の検査を定義することはできる。

しかし、もう一歩進んでプログラムなどによって動的に妥当性を検査することも可能である。

【 CMDソース 】
0001.00              CMD        PROMPT('OPNDTA 実行コマンドの作成 ')
0002.00              PARM       KWD(OPNDFN) TYPE(OPNDFN) +                 
0003.00                           PROMPT('OPNDTA 定義 ')                   
0004.00  OPNDFN:     QUAL       TYPE(*NAME) LEN(10)  CHOICE(*PGM) +        
0005.00                           CHOICEPGM(RDALIB/SELOPNCL)               
0006.00              QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +           
0007.00                           SPCVAL((*LIBL) (*CURLIB))        +       
0008.00                           PROMPT(' ライブラリー ')                 
0009.00              PARM       KWD(OPTION) TYPE(*CHAR) LEN(4) RSTD(*YES) +
0010.00                           DFT(*NO)  VALUES(*YES *NO) +             
0011.00                           PROMPT(' パラメーターの作成 ') 
【 解説 】

このコマンドに対してコマンドのコンパイルのときには妥当性検査プログラムを定義しておく。

妥当性検査のCLPソースの例を次に示す。

【 CLPソース 】
0001.00              PGM        PARM(&OPNDFNLIB &OPTION)
0002.00 /*---------------------------------------------------------*/      
0003.00 /*   CRTOPNCHK:  CRTOPNCMD 妥当性検査                      */      
0004.00 /*---------------------------------------------------------*/      
0005.00              DCL        VAR(&OPNDFNLIB) TYPE(*CHAR) LEN(20)        
0006.00              DCL        VAR(&OPNDFN) TYPE(*CHAR) LEN(10)           
0007.00              DCL        VAR(&OPTION) TYPE(*CHAR) LEN(4)            
0008.00              DCL        VAR(&OBJLIB) TYPE(*CHAR) LEN(10)           
0009.00              DCL        VAR(&USRDFN) TYPE(*CHAR) LEN(10)           
0010.00              DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)              
0011.00              DCL        VAR(&MSGKEY) TYPE(*CHAR) LEN(4)            
0012.00              DCL        VAR(&USER)   TYPE(*CHAR) LEN(10)           
0013.00              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))    
0014.00                                                                    
0015.00              CHGVAR     VAR(&OPNDFN) VALUE(%SST(&OPNDFNLIB 01 10)) 
0016.00              CHGVAR     VAR(&OBJLIB) VALUE(%SST(&OPNDFNLIB 11 10)) 
0017.00 /*      ************************************************    */     
0018.00 /*                *PRV ライブラリーの変更                   */     
0019.00 /*      ************************************************    */     
0020.00              RTVJOBA    USER(&USER)                                
0021.00              CHGDTAARA  DTAARA(QGPL/&USER (11 10)) VALUE(&OBJLIB)  
0022.00                                                                    
0023.00              IF         COND(&OPNDFN *EQ '          ') THEN(DO)    
0024.00              SNDPGMMSG  MSGID(CPD0006) MSGF(QCPFMSG) MSGDTA('0000 +
0025.00              OPNDTA 定義を指定してください。 +                     
0026.00                           ') MSGTYPE(*DIAG)                        
0027.00              GOTO       CMDERR                                     
0028.00              ENDDO                                                 
0029.00 /*( OPNDTA 定義のチエック )*/                                      
0030.00              IF         COND(&OPNDFN *NE '*NONE     ') THEN(DO)    
0031.00              CHGVAR     VAR(&OPNDFN) VALUE(&OPNDFN *TCAT '_OPN')   
0032.00              RTVOBJD    OBJ(&OBJLIB/&OPNDFN) OBJTYPE(*FILE) +      
0033.00                           RTNLIB(&OBJLIB) USRDFNATR(&USRDFN)       
0034.00              MONMSG     MSGID(CPF9800 CPF2100) EXEC(DO)            
0035.00              RCVMSG     MSGTYPE(*LAST) RMV(*NO) KEYVAR(&MSGKEY) +  
0036.00                           MSG(&MSG)                                
0037.00              SNDPGMMSG  MSGID(CPD0006) MSGF(QCPFMSG) +             
0038.00                           MSGDTA('0000' *CAT &MSG) MSGTYPE(*DIAG)  
0039.00              GOTO       CMDERR                                     
0040.00              ENDDO                                                 
0041.00              IF         COND(&USRDFN *NE 'OPNDFN    ') THEN(DO)    
0042.00              SNDPGMMSG  MSGID(CPD0006) MSGF(QCPFMSG) +             
0043.00                           MSGDTA('0000' *CAT ' ライブラリー ' *TCAT
0044.00              &OBJLIB *TCAT ' の ' *TCAT +                          
0045.00              &OPNDFN *TCAT ' は OPNDTA 定義ではありません。 ') +   
0046.00                           MSGTYPE(*DIAG)                           
0047.00              GOTO       CMDERR                                     
0048.00              ENDDO                                                 
0049.00              ENDDO                                                 
0050.00              RETURN                                                
0051.00  CMDERR:                                                           
0052.00              SNDPGMMSG  MSGID(CPF0002) MSGF(QSYS/QCPFMSG) +        
0053.00                           MSGTYPE(*ESCAPE)                         
0054.00              RETURN                                                
0055.00  ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                         
0056.00              SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                   
0057.00  ENDPGM:     ENDPGM
【 解説 】

エラーがあった場合はメッセージ CPD0006 を戻すように取り決められている。

これまでのコマンドの解説によっておわかりのようにコマンドの制御によってできないことはほとんどない。

ちょっとした入力などを受け付けるために DSPF を記述することよりも、コマンドを使用すれば画面レイアウトを

いちいち行う必要はない。

またコマンドであれば画面レイアウトはOS/400によって行われるために、つねに見やすく適正な画面配置がされ、

操作性も統一される。

DSPF を作る前に、是非コマンドの使用を検討されることをお勧めする。