H DFTNAME(TESTERRM) DFTACTGRP(*NO)                                                             
     H DEBUG(*YES)                                                                                  
     FJUCHU     IF   E           K DISK                                                             
     FTOKMAS    IF   E           K DISK                                                             
      * ｵﾒ.                                                                                         
      *   CALL TESTERRM ('AA' X'123F') -> ﾍﾏｳｳｵﾍﾍ.                                                  
      *   CALL TESTERRM ('AA' '123F')  -> ｶｱｹﾂ(Eﾒｳｵﾆﾎｹﾅﾄ ｷｵﾄｵﾈｱﾎｹﾄｷ).                               
      *                                                                                             
      * Pｱﾈｱﾃｵﾎｵﾈﾍ ｶﾅﾈ ﾎｸｹﾍ ﾆﾈﾅｷﾈｱﾃ.                                                                
     D TESTERRM        PR                                                                           
     D  P1                            2                                                             
     D  P2                            3  0                                                          
      *                                                                                             
     D TESTERRM        PI                                                                           
     D  P1                            2                                                             
     D  P2                            3  0                                                          
      *                                                                                             
      * Pｱﾈｱﾃｵﾎｵﾈﾍ ｶﾅﾈ Sｵﾄｴ Mｵﾍﾍｱｷｵ.                                                                
     DSNDMSG           ﾆﾈ                                                                           
     D MSGTXTﾎ                       80    CONST                                                    
      *                                                                                             
     DMSG              S             52    DIM(4) CTDATA PERRCD(1)                                  
     DP2CHR            S              3                                                             
      *                                                                                             
      * プログラム状況データ構造                                                                    
     DEﾒｳﾆDﾍ          SDS                                                                           
     D* ステートメント番号                                                                          
     D*  | CRTBNDRPG OPTION(*SRCSTMT) にするとソースと同じ行になる                                  
     D STMT                   21     28                                                             
     D* 例外タイプ (CPF または MCH)                                                                 
     D ｵﾒｳﾆTﾓﾆｵ               40     42                                                             
     D* 例外番号 (CPF または MCH の下 4 桁の英数字 )                                                
     D ｵﾒｳﾆNﾏﾃ                43     46                                                             
      *                                                                                             
      /ｶﾈｵｵ                                                                                         
                                                                                                    
       *INLR = *ON;                                                                                 
                                                                                                    
       MONITOR;                                                                                     
         P2CHR  = %CHAR(P2); // 数値を文字に                                                        
                                                                                                    
         DSPLY P1;                                                                                  
         DSPLY P2CHR ;                                                                              
                                                                                                    
         DSPLY ﾃﾍｷ(1);                                                                              
        //                                                                                          
        // Eﾒｳｵﾆﾎｹﾅﾄ ｸｱﾄｴﾂｹﾄｷ ｲﾓ Mﾅﾄｹﾎﾅﾈ.                                                           
        // エラー・コードは RPG 解説書を参照                                                        
        ON-ERROR;                                                                                   
                                                                                                    
          SELECT;                                                                                   
            WHEN %STATUS = 222;                                                                     
              DSPLY MSG(3);                                                                         
            WHEN %STATUS = 907;                                                                     
              DSPLY MSG(4);                                                                         
            OTHER;                                                                                  
              DSPLY MSG(2);                                                                         
          ENDSL;                                                                                    
                                                                                                    
          CALLP SNDMSG('Aﾄ ｵﾈﾈﾅﾈ ﾑｱﾍ ' +                                                            
                       ｵﾒｳﾆTﾓﾆｵ +                                                                   
                       ｵﾒｳﾆNﾏﾃ  +                                                                   
                       '. Sﾎｱﾎｵﾃｵﾄﾎ=' +                                                             
                       ﾍﾎﾃﾎ          );                                                             
        ENDMON;                                                                                     
        RETURN;                                                                                     
      /END-FREE                                                                                     
                                                                                                    
      *                                                                                             
      * メッセージ送信処理                                                                          
      *                                                                                             
     PSNDMSG           B                                                                            
     DSNDMSG           PI                                                                           
     D INPTEXT                       80    CONST                                                    
                                                                                                    
      * Sｵﾄｴ ﾃｵﾍﾍｱｷｵ API ﾆｱﾈｱﾃｵﾎｵﾈﾍ                                                                 
     D MSGID           ﾍ              7    INZ('CPF9898')                                           
     D MSGFILLIB       ﾍ             20    INZ('QCPFMSG   *LIBL     ')                              
     D MSGDATA         ﾍ                   LIKE(INPTEXT)                                            
     D MSGDATALEN      ﾍ             10ｹ 0 INZ(%SIZE(MSGDATA))                                      
     D MSGTYPE         ﾍ             10    INZ('*INFO')                                             
     D MSGSTACKENT     ﾍ             10    INZ('*')                                                 
     D MSGSTACKCNT     ﾍ             10ｹ 0 INZ(3)                                                   
     D MSGKEY          ﾍ              4                                                             
     D MSGERRSTRUC     ﾍ                   LIKE(ERRSTRUC)                                           
                                                                                                    
      * API ｵﾈﾈﾅﾈ ﾍﾎﾈﾏｳﾎﾏﾈｵ                                                                         
     D ERRSTRUC        DS                  INZ                                                      
     D  ERRSSIZE                     10ｹ 0 INZ(%LEN(ERRSTRUC))                                      
   * D  ERRSUSE                      10ｹ 0                                                          
   * D  ERRSMSGID                     7                                                             
   * D  ERRSRESRV                     1                                                             
   * D  ERRSDATA                     80                                                             
   *                                                                                                
     C                   EVAL      MSGDｱﾎｱ = INPTEXT                                                
     C                   EVAL      MSGERRSTRUC = ERRSTRUC                                           
      *--------------------------------------------------------------                               
     C                   CALL      'QMHSNDPM'                                                       
     C                   PARM                    MSGID                                              
     C                   PARM                    MSGFILLIB                                          
     C                   PARM                    MSGDATA                                            
     C                   PARM                    MSGDATALEN                                         
     C                   PARM                    MSGTYPE                                            
     C                   PARM                    MSGSTACKENT                                        
     C                   PARM                    MSGSTACKCNT                                        
     C                   PARM                    MSGKｵﾓ                                             
     C                   PARM                    MSGERRSTRUC                                        
      *--------------------------------------------------------------                               
     C                   EVAL      ERRSTRUC = MSGERRSTRUC                                           
     P                 E                                                                            
                                                                                                    
**                                                                                                  
 状況 (00000): 正常終了。                                                                           
 状況 (-----): 何らかのエラーあり。要デバッグ。                                                     
 状況 (00222): ポインターまたはパラメータのエラー。                                                 
 状況 (00907): 10 進数エラーです。