H DFTNAME(PGM101) DATEDIT(*YMD/)                                                               
     F**********  商品マスターの照会 ***************************************                        
     FSMP001FM  CF   E             WORKSTN                                                          
     FSHOHIN    IF   E           K DISK                                                             
     F*********************************************************************                         
     D*( RTV_HSNAME  のプロトタイプ宣言 )                                                           
     D RTV_HSNAME      PR            14A                                                            
     D  HNSCOD                        4A   Vｱﾂﾏｵ                                                    
     C*----------------------------------------------------+                                        
     C     START         TAG                                                                        
     C                   EXFMT     DSPHEAD                                                          
     C*----------------------------------------------------+                                        
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF03                
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C                   END                                                    CF03                
     C*( 商品マスターを検索 )                                                                       
     C                   SETOFF                                       90                            
     C     SHCODE        CHAIN     SHOHIN                                                           
     C     *IN90         IFEQ      *OFF                                                             
     C                   EVAL      HNSNAM = RTV_HSNAME(SHSCOD)                                      
     C                   END                                                                        
     C*----------------------------------------------------+                                        
     C     DSPLY         TAG                                                                        
     C                   EXFMT     DSPDTA01                                                         
     C*----------------------------------------------------+                                        
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF03                
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C                   END                                                    CF03                
     C                   GOTO      DSPLY                                                            
     C     END           TAG