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

  dcl Date_format value ('MMDDYYYY') char;
  dcl Todays_date char(length(Date_format));
  dcl Sep2_1993 char(length(Date_format));
  dcl Days_of_July4_1993 fixed bin(31);
  dcl Msg char(100) varying;
  dcl Date_due char(length(Date_format));
 
  Todays_date = datetime(date_format);          /* e.g. 06161993  */
 
  Days_of_July4_1993 = days('07041993','MMDDYYYY');
  Sep2_1993 = daystodate(days_of_July4_1993 + 60, Date_format);
               /*  09021993    */
 
  Date_due = daystodate(days() + 60, Date_format);
          /* assuming today is July 4, 1993, this would be Sept. 2, 1993  */
 
  Msg = 'Please pay amount due on or before ' ||
           substr(Date_due, 1, 2) || '/' ||
           substr(Date_due, 3,2)  || '/' ||
           substr(Date_due, 5);

許可されるパターンを 表 50 にリストしてあります。 リリアン形式の説明については、日付/時刻組み込み関数を参照してください。


Terms of use | Feedback

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