PGM                                                                
/*---------------------------------------------------------*/                   
/*   TESTDCVT1 :   日付の変換テスト 1:                     */                   
/*                MDY から YMD へ変換する                  */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&DATE6) TYPE(*CHAR) LEN(6)                          
             DCL        VAR(&TODATE6) TYPE(*CHAR) LEN(6)                        
                                                                                
             CHGVAR     VAR(&DATE6) VALUE('053112') /* +                        
                          2012 年 05 月 31 日 */                                
             CVTDAT     DATE(&DATE6) TOVAR(&TODATE6) FROMFMT(*MDY) +            
                          TOFMT(*YMD) TOSEP(*NONE)                              
             SNDPGMMSG  MSG(&DATE6 *CAT ' から ' *CAT &TODATE6 +                
                          *TCAT ' へ変換しました。 ') MSGTYPE(*DIAG)            
             ENDPGM