Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, 言語解説書

  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 */

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)