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                                      KEEP                                
     A                                      BLINK                               
     A                                  1 27' 日付フィールドのテスト '          
     A                                      DSPATR(RI)                          
     A                                  4  2' ６桁の日付 (DATE)'                
     A                                  4 22DATE EDTCDE(Y)                      
     A                                  4 34'( EDTCDE(Y) )'                     
     A                                  6  2' ８桁の日付 (DATE)'                
     A                                  6 22DATE(*YY) EDTCDE(W)                 
     A                                  6 34'( EDTCDE(W) )'                     
     A                                 23  2'F3= 終了 '