H NOMAIN                                                                                       
     F**********  品種マスターの検索 ***************************************                        
     FHINSHU    IF   E           K DISK    EXTFILE(HINSHU_LIB)                                      
     F**********************************************************************                        
     D HINSHU_LIB      S             13    INZ('QTRFIL/HINSHU')                                     
      ****************************************************                                          
      *       プロシージャーのプロトタイプ宣言           *                                          
      ****************************************************                                          
     D*( RTV_HSNAME  のプロトタイプ宣言 )                                                           
     D RTV_HSNAME      PR            14A                                                            
     D  HNSCOD                        4A   Vｱﾂﾏｵ                                                    
                                                                                                    
      ************************************************************                                  
      *   RTV_HSNAME :  品種名の検索                                                                
      ************************************************************                                  
      *---( RTV_HSNAME PROCEDURE  ここから )---------------------*                                  
     P RTV_HSNAME      B                   EXPORT                                                   
     D RTV_HSNAME      PI            14A                                                            
     D   HNSCOD                       4A   Vｱﾂﾏｵ                                                    
     C                   MOVE      *BLANKS       HNSNAM                                             
     C                   SETOFF                                       99                            
     C     HNSCOD        CHAIN     HINSHU                             99                            
     C                   RETURN    HNSNAM                                                           
     P RTV_HSNAME      E                                                                            
      *---( RTV_HSNAME PROCEDURE  ここまで )---------------------*