H DFTNAME(MOD001) DATEDIT(*YMD/)                                                               
     F**********  品種マスターの照会 - MODULE 版 ***************************                        
     FMOD001D   CF   E             WORKSTN                                                          
     FHINSHU    IF   E           K DISK                                                             
     F**********************************************************************                        
     D GET_HINSHU      PR            14                                                             
     D  HNSCOD                        4A   VALUE                                                    
     C*( 初期画面 )                                                                                 
     C*----------------------------------------------------+                                        
     C     START         TAG                                                                        
     C                   EXFMT     DSPHEAD                                                          
     C*----------------------------------------------------+                                        
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF03                
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C                   END                                                                        
     C*( 実行キー )                                                                                 
     C                   EVAL      HNSNAM = GET_HINSHU(HNSCOD)                                      
     C*( 明細画面 )                                                                                 
     C*----------------------------------------------------+                                        
     C                   EXFMT     DSPDTA01                                                         
     C*----------------------------------------------------+                                        
     C                   GOTO      START                                                            
     C******************************************************                                        
      *   GET_HINSHU :   品種名の取得                                                               
     C******************************************************                                        
     P GET_HINSHU      B                   EXPORT                                                   
     D GET_HINSHU      PI            14                                                             
     D  HNSCOD                        4A   VALUE                                                    
     C                   SETOFF                                       99                            
     C     HNSCOD        CHAIN     HINSHU                             99                            
     C                   RETURN    HNSNAM                                                           
     P GET_HINSHU      E