MTHNAME Pascal Implementation (Based on HP OpenVMS Pascal 5.8)

Note:

• This sample is stored in hlq.HOME.ETC(MTHNAMPS) for PDS deployment and ashome/etc/src3gl/mthname.pas on all other platforms.
• GENCPGM for Pascal is only supported on OpenVMS and the sample on disk is only provided for reference for all other platforms.

Source:

{
  MTHNAME: Sample User Written Routine in Pascal
  This sample is based on FOCUS/VMS 6.x sample.
  Only changes were to make it more like the standard
  C sample (entry point of lowercase mthname (vs. MTHNAM)
  and use mixed case month names).
}
MODULE MTH;
TYPE
  monthstring = packed array [1..12] OF CHAR;
[GLOBAL] PROCEDURE mthname(MTH:double ; var month : monthstring);
  VAR
IMONTH :INTEGER;
 BEGIN
   IMONTH:= ROUND(MTH);
   IF IMONTH IN [1..12] THEN
     CASE IMONTH OF
       1 : MONTH := 'January';
       2 : MONTH := 'February';
       3 : MONTH := 'March';
       4 : MONTH := 'April';
       5 : MONTH := 'May';
       6 : MONTH := 'June';
       7 : MONTH := 'July';
       8 : MONTH := 'August';
       9 : MONTH := 'September';
      10 : MONTH := 'October';
      11 : MONTH := 'November';
      12 : MONTH := 'December';
    END
  ELSE
    MONTH := '** Error **'
 END;
END.