H DFTNAME(BUTTON) DATEDIT(*YMD/)                                                               
     F********  押しボタン *************************************************                        
     FBUTTONFM  CF   E             WORKSTN                                                          
     F**********************************************************************                        
     D F10MSG          C                   CONST('F10 ボタンが押されました。 ')                     
     D OKMSG           C                   CONST('OK ボタンが押されました。 ')                      
     D ON              S              2S 0 INZ(1)                                                   
     C*----------------------------------------------------+                                        
     C     DSPLY         TAG                                                    |                   
     C                   EXFMT     DSPDTA01                                     |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       99                            
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF03                
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C                   ENDIF                                                  CF03                
     C*( 実行キー )                                                                                 
     C                   EXSR      COUNT                                                            
     C                   GOTO      DSPLY                                                            
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C                   Z-ADD     0             KAISU                                              
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     COUNT         BEGSR                                                                      
     C******************************************************                                        
      *( F10 ボタン )                                                                               
     C     PSHF10        IFEQ      ON                                                               
     C                   MOVEL(P)  F10MSG        DSPMSG                                             
     C                   ADD       1             KAISU                                              
     C                   ELSE                                                                       
      *( 押しボタン )                                                                               
     C     PSHFLD        IFEQ      ON                                                               
     C                   MOVEL(P)  OKMSG         DSPMSG                                             
     C                   ADD       1             KAISU                                              
     C                   ELSE                                                                       
     C                   MOVE      *BLANKS       DSPMSG                                             
     C                   ENDIF                                                                      
     C                   ENDIF                                                                      
     C                   ENDSR