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