PGM                                                                
/*---------------------------------------------------------*/                   
/*   TESTDCVT4 :   日付の変換テスト 4:                     */                   
/*       本日から２週間後の日付を算出する                  */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&DATE6) TYPE(*CHAR) LEN(6)                          
             DCL        VAR(&TODATE10) TYPE(*CHAR) LEN(10)                      
             DCL        VAR(&DATFMT) TYPE(*CHAR) LEN(3)                         
             DCL        VAR(&QDATFMT) TYPE(*CHAR) LEN(4)                        
             DCL        VAR(&DAYSU) TYPE(*CHAR) LEN(8)                          
             DCL        VAR(&DEC08) TYPE(*DEC) LEN(8 0)                         
                                                                                
             RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE6)                            
             RTVSYSVAL  SYSVAL(QDATFMT) RTNVAR(&DATFMT)                         
             CHGVAR     VAR(&QDATFMT) VALUE('*' *CAT &DATFMT)                   
             CVTDAT     DATE(&DATE6) TOVAR(&DAYSU) FROMFMT(&QDATFMT) +          
                          TOFMT(*JUL) TOSEP(*NONE)                              
             CHGVAR     VAR(&DEC08) VALUE(&DAYSU)                               
             CHGVAR     VAR(&DEC08) VALUE(&DEC08 + 14)                          
             CHGVAR     VAR(&DAYSU) VALUE(&DEC08)                               
 ZEROS:      IF         COND(%SST(&DAYSU 1 1) *EQ '0') THEN(DO)                 
             CHGVAR     VAR(&DAYSU) VALUE(%SST(&DAYSU 2 7) *CAT ' ')            
             GOTO       ZEROS                                                   
             ENDDO                                                              
             CVTDAT     DATE(&DAYSU) TOVAR(&TODATE10) FROMFMT(*JUL) +           
                          TOFMT(*YYMD) TOSEP(/)                                 
             SNDPGMMSG  MSG(' 本日 ' *CAT &DATE6 *CAT +                         
                          ' から２週間後は ' *CAT &TODATE10 *TCAT +             
                          ' です。 ') MSGTYPE(*DIAG)                            
             ENDPGM