Example of Calling a Win32 API Routine

The following program makes use of an API routine to retrieve the current date and time.

       special-names.
       call-convention 78 is winapi-void.
       working-storage section. 
       01  pp procedure-pointer.
       01 system-time.
         03 system-year     pic 9(4) comp-5.
         03 system-month    pic 9(4) comp-5.
         03 system-day-of-week  pic 9(4) comp-5.
         03 system-day    pic 9(4) comp-5.
         03 system-hour    pic 9(4) comp-5.
         03 system-minute   pic 9(4) comp-5.
         03 system-second   pic 9(4) comp-5.
         03 system-millisecond  pic 9(4) comp-5.
       procedure division.
         set pp to entry "kernel32"
         call winapi-void "GetSystemTime" using
                  by reference system-time
         display "Day of week is:  " system-day-of-week
         display "Day of month is:  " system-day
       stop run.