PGM                                                                
/*---------------------------------------------------------*/                   
/*   TESTDATECL :   日付フィールドのテスト                 */                   
/*---------------------------------------------------------*/                   
             DCLF       FILE(TEST.COM/TESTDATEFM)                               
             DCL        VAR(&UDATE) TYPE(*CHAR) LEN(10)                         
                                                                                
 DSPLY:      SNDRCVF    RCDFMT(DSPDTA01)                                        
             IF         COND(&IN03 *EQ '1') THEN(RETURN)                        
             GOTO       DSPLY                                                   
                                                                                
             ENDPGM