A*%%TS  SD  19940302  221529  QTR         REL-V2R2M0  5738-PW1             
     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  19940302  221529  QTR         REL-V2R2M0  5738-PW1             
     A                                      TEXT(' 明細画面 01')                
     A                                      CF03(03 ' 終了 ')                   
     A                                      SETOF(99)                           
     A                                      BLINK                               
     A                                  1 27' ラジオ・ボタン '                  
     A                                      DSPATR(HI)                          
     A                                  3  2' 下記はラジオ・ボタンのサンプル +  
     A                                       です '                             
     A                                  6  2' 受注区分 '                        
     A            JUKBN#         2Y 0B  6 15TEXT(' 受注区分 ')                  
     A                                      SNGCHCFLD((*NUMCOL 1))              
     A                                      CHOICE(1 ' 売上 ')                  
     A                                      CHOICE(2 ' 返品 ')                  
     A                                  6 34' 処理区分 '                        
     A            JUSHOR#        2Y 0B  6 47TEXT(' 処理区分 ')                  
     A                                      SNGCHCFLD((*NUMCOL 1))              
     A                                      CHOICE(3 ' 今月 ')                  
     A                                      CHOICE(4 ' 来勘 ')                  
     A                                 13 10' 締日 '                            
     A            TKSIME         2Y 0B 13 25                                    
     A                                      SNGCHCFLD((*NUMCOL 1))              
     A                                      CHOICE(10 '10 日締め ')             
     A                                      CHOICE(20 '20 日締め ')             
     A                                      CHOICE(31 ' 末日締め ')             
     A*                                                                         
     A            DSPMSG        40A    20  4                                    
     A                                      DSPATR(HI)                          
     A                                 23  2'F3= 終了 '                         
     A            PSHFLD         2Y 0B 23 22PSHBTNFLD(*RSTCSR (*NUMCOL 1))      
     A                                      PSHBTNCHC(1 ' ＯＫ ' ENTER)