A*%%TS  SD  20070817  120013  QTR         REL-V5R4M0  5722-WDS             
     A*            11:59:33    QSECOFR     REL-R06M00  5714-UT1                 
     A*%%EC                                                                     
     A                                      DSPSIZ(24 80 *DS3)                  
     A                                      MSGLOC(24)                          
     A                                      PRINT                               
     A          R DSPDTA01                                                      
     A*%%TS  SD  20070817  120013  QTR         REL-V5R4M0  5722-WDS             
     A                                      TEXT(' 明細画面 01')                
     A                                      CF03(03 ' 終了 ')                   
     A                                      SETOF(99)                           
     A                                      BLINK                               
     A                                  1 27' 押しボタン '                      
     A                                      DSPATR(HI)                          
     A                                  3  2' 下記は押しボタンのサンプルです '  
     A                                  4  3'OK ボタンを押したときは押した +    
     A                                       回数をカウントします。 '           
     A                                  8  4' 押した回数 . . . . . . . . . .'   
     A            KAISU          3Y 0B  8 37                                    
     A            PSHFLD         2Y 0B  8 45PSHBTNFLD(*RSTCSR (*NUMCOL 1))      
     A                                      PSHBTNCHC(1 ' ＯＫ ' ENTER)         
     A            PSHF10         2Y 0B 10 45PSHBTNFLD(*RSTCSR (*NUMCOL 1))      
     A                                      PSHBTNCHC(1 ' Ｆ１Ｏ ' CF10)        
     A            DSPMSG        40A  O 20  4DSPATR(HI)                          
     A                                 23  2'F3= 終了 '