code

Name
Astradyne (UK) Ltd
Scriptlanguage
Plain Text
Tabwidth
4
Date
Fri, 21 Sep 2007 14:23:28 +0100
IP
192.168.0.35

Example of how using date type fields for date handling makes life so much easier.

  1.     D MyDecDate      s              8s 0 Inz(20061231)                                 
  2.                                                                                          
  3.     D MyDateISO      s              d  DatFmt(*ISO)                                   
  4.     D MyDateEUR      s              d  DatFmt(*EUR)                                   
  5.     D MyDateUSA      s              d  DatFmt(*USA)                                   
  6.                                                                                          
  7.     C* Convert the decimal date to ISO format...                                         
  8.     C                  Eval      MyDateISO = %Date(MyDecDate : *ISO)                   
  9.     C    MyDateISO    Dsply                                                           
  10.                                                                                          
  11.     C* Moving between date type fields automatically changes the format...               
  12.     C                  Eval      MyDateEUR = MyDateISO                                 
  13.     C    MyDateEUR    Dsply                                                           
  14.                                                                                          
  15.     C                  Eval      MyDateUSA = MyDateEUR                                 
  16.     C    MyDateUSA    Dsply                                                           
  17.                                                                                          
  18.     C* Date calculations can be done using Eval and %Days, %Months and %Years functions...
  19.     C                  Eval      myDateISO = myDateISO + %Years(1) +                   
  20.     C                              %Months(6) + %Days(14)
  21.     C    MyDateISO    Dsply                           
  22.                                                          
  23.     C                  Eval      *InLR = *On           
  24.     C                  Return