PGM                                                                
             DCL        VAR(&DATE8) TYPE(*CHAR) LEN(8)                          
             DCL        VAR(&YY4) TYPE(*CHAR) STG(*DEFINED) LEN(4) +            
                          DEFVAR(&DATE8 1)                                      
             DCL        VAR(&MM) TYPE(*CHAR) STG(*DEFINED) LEN(2) +             
                          DEFVAR(&DATE8 5)                                      
             DCL        VAR(&DD) TYPE(*CHAR) STG(*DEFINED) LEN(2) +             
                          DEFVAR(&DATE8 7)                                      
             DCL        VAR(&CHGDATE) TYPE(*CHAR) LEN(13)                       
             DCL        VAR(&TIME) TYPE(*CHAR) LEN(6)                           
             DCL        VAR(&HOUR) TYPE(*CHAR) STG(*DEFINED) LEN(2) +           
                          DEFVAR(&TIME 1)                                       
             DCL        VAR(&MINUTE) TYPE(*CHAR) STG(*DEFINED) +                
                          LEN(2) DEFVAR(&TIME 3)                                
             DCL        VAR(&SECOND) TYPE(*CHAR) STG(*DEFINED) +                
                          LEN(2) DEFVAR(&TIME 5)                                
                                                                                
             RTVOBJD    OBJ(QTRSRC/QRPGLESRC) OBJTYPE(*FILE) +                  
                          CHGDATE(&CHGDATE)                                     
             CHGVAR     VAR(&DATE8) VALUE('20' *CAT %SST(&CHGDATE 2 6))         
             CHGVAR     VAR(&TIME) VALUE(%SST(&CHGDATE 8 6))                    
             SNDPGMMSG  MSG(' このソース・ファイルに変動があったのは ' +        
                          *CAT &YY4 *CAT '/' *CAT &MM *CAT '/' *CAT +           
                          &DD *CAT ' 日 ' *CAT &HOUR *CAT ':' *CAT +            
                          &MINUTE *CAT ':' *CAT &SECOND *CAT +                  
                          ' 分です。 ') MSGTYPE(*DIAG)                          
             RETURN                                                             
             ENDPGM