H DFTNAME(PGM209) DATEDIT(*YMD/)                                                               
     F**********  部品在庫の照会  ******************************************                        
     FPGM209FM  CF   E             WORKSTN                                                          
     F                                     SFILE(SFREC01:RRN1)                                      
     F                                     INFDS(INFDS)                                             
     FBHZAIKO   IF   E           K DISK                                                             
     FBUHINM    IF   E           K DISK                                                             
     FBHIMAGE   IF   E           K DISK                                                             
     F**********************************************************************                        
     D INFDS           DS                                                                           
     D  TOPRRN               378    379B 0                                                          
     D  BRRN                 376    377B 0                                                          
                                                                                                    
     D*( HTML 参照フィールドの定義 )                                                                
     D                 DS                                                                           
     D  REFFLD#                1      7                                                             
     D   REF                   1      3                                                             
     D   REFNO                 4      7  0                                                          
     D HTMLREF         C                   CONST('ASNET.COM/ADDHTMLREF')                            
     D BEG_IMG         C                   CONST('<IMG SRC="')                                      
     D END_IMG         C                   CONST('" WIDTH="36" HEIGHT="24"-                         
     D                                     ALIGN="ABSMIDDLE">')                                     
     D VALUE           S            256A                                                            
                                                                                                    
     C*( U8: HTML の表示 )                                                                          
     C     *INU8         IFEQ      *ON                                                              
     C                   SETON                                        08                            
     C                   MOVEL     'REF'         REF                                                
     C                   Z-ADD     1             REFNO                                              
     C                   END                                                                        
     C*                                                                                             
     C                   EXSR      SFLCLR                                                           
     C                   EXSR      READ                                                             
     C                   Z-ADD     1             TOPRRN                                             
     C                   WRITE     DSPEND01                                                         
     C*----------------------------------------------------                                         
     C     DSPLY         TAG                                                                        
     C                   SETON                                        4142                          
     C                   EXFMT     SFCTL01                                                          
     C                   SETOFF                                       4142                          
     C*----------------------------------------------------                                         
     C                   SETOFF                                       99                            
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF03                
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C                   END                                                                        
     C*( 実行キー )                                                                                 
     C                   GOTO      DSPLY                                                            
PNL# C*****************************************************                                         
PNL# C     READ          BEGSR                                                                      
PNL# C*****************************************************                                         
     C     1             DO        *HIVAL        RRN1              4 0          RRN1=1-*HIVAL       
     C                   SETOFF                                       50                            
     C                   READ      BHZAIKO                                50                        
     C   50              LEAVE                                                                      
     C                   MOVE      RRN1          GYO                                                
     C                   SETOFF                                       99                            
     C     BZBHCD        CHAIN     BUHINM                             99                            
     C*  08:  画像イメージの追加                                                                    
     C   08              EXSR      ADD_IMAGE                                                        
     C*                                                                                             
     C*----------------------------------------------------+                                        
     C                   WRITE     SFREC01                                      |                   
     C*----------------------------------------------------+                                        
     C                   END                                                                        
     C                   ENDSR                                                                      
PNL# C*****************************************************                                         
PNL# C     ADD_IMAGE     BEGSR                                                                      
PNL# C*****************************************************                                         
     C                   SETOFF                                       99                            
     C     BZBHCD        CHAIN     BHIMAGE                            99                            
     C     *IN99         IFEQ      *OFF                                                             
     C                   MOVEL     REFFLD#       REFFLD                                             
     C                   MOVEL(P)  BEG_IMG       VALUE                                              
     C                   CAT       BMIMAGE:0     VALUE                                              
     C                   CAT       END_IMG:0     VALUE                                              
     C                   CAT       X'00':0       VALUE                                              
     C*( ADDHTMLREF: HTML 参照フィールドへの追加 )                                                  
     C*  REFxxxx=<IMAG SRC="....">  を投入します                                                    
     C*----------------------------------------------------+                                        
     C                   CALL      HTMLREF                                                          
     C                   PARM                    REFFLD                                             
     C                   PARM                    VALUE                                              
     C*----------------------------------------------------+                                        
     C                   END                                                                        
     C                   ADD       1             REFNO                                              
     C                   ENDSR                                                                      
PNL# C*****************************************************                                         
PNL# C     SFLCLR        BEGSR                                                                      
PNL# C*****************************************************                                         
     C*----------------------------------------------------+                                        
     C                   SETON                                        44        |                   
     C                   WRITE     SFCTL01                                                          
     C                   SETOFF                                       44        |                   
     C*----------------------------------------------------+                                        
     C                   ENDSR