dcl duedate char(8); dcl (b1,b2) bit(1); duedate = '19950228'; b1 = validdate( duedate, 'YYYYMMDD' ); /* b1 = '1'b */ duedate = '02301995'; b2 = validdate( duedate, 'DDMMYYYY' ); /* b2 = '0'b */