PGM                                                                
             DCL        VAR(&CHGDATE) TYPE(*CHAR) LEN(13)                       
             DCL        VAR(&CRTDATE) TYPE(*CHAR) LEN(13)                       
             DCL        VAR(&DLTDATE) TYPE(*CHAR) LEN(13)                       
             DCL        VAR(&USEDATE) TYPE(*CHAR) LEN(7)                        
                                                                                
          /*---------------------------*/                                       
             CALLSUBR   SUBR(CHKLIBR)                                           
          /*---------------------------*/                                       
             SNDPGMMSG  MSG(' 最後の変動があったのは ' *CAT &CHGDATE +          
                          *TCAT ' です。 ') MSGTYPE(*DIAG)                      
             RETURN                                                             
         /******************************/                                       
             SUBR       SUBR(CHKLIBR)                                           
         /******************************/                                       
             RTVOBJD    OBJ(CRTLIB) OBJTYPE(*CMD) USEDATE(&USEDATE)             
             CHGVAR     VAR(&CRTDATE) VALUE('20' *CAT %SST(&USEDATE +           
                          2 6))                                                 
             RTVOBJD    OBJ(DLTLIB) OBJTYPE(*CMD) USEDATE(&USEDATE)             
             CHGVAR     VAR(&DLTDATE) VALUE('20' *CAT %SST(&USEDATE +           
                          2 6))                                                 
             IF         COND(&CRTDATE >= &DLTDATE) THEN(DO)                     
             CHGVAR     VAR(&CHGDATE) VALUE(&CRTDATE)                           
             ENDDO                                                              
             ELSE       CMD(DO)                                                 
             CHGVAR     VAR(&CHGDATE) VALUE(&DLTDATE)                           
             ENDDO                                                              
             ENDSUBR                                                            
             ENDPGM