Note:

• This sample is stored in hlq.HOME.ETC(MTHNAMBS) for PDS deployment and as home/etc/src3gl/mthname.bas on all other platforms.
• GENCPGM for Basic is only supported on OpenVMS and the sample on disk is only provided for reference for all other platforms.

Source:

1000 SUB mthname BY REF(REAL MTH, STRING MONTH = 12)
1001 REM
1002 REM MTHNAME: Sample User Written Routine in Basic
1003 REM This sample is based on FOCUS/VMS 6.x sample.
1004 REM
1005 REM Only changes were to make it more like the standard
1006 REM sample (entry point of lowercase mthname (vs. MTHNAM)
1007 REM datatype of REAL (vs. DOUBLE) and use mixed case 
1008 REM month names.
1009 REM
2000 ON INTEGER(MTH) GOTO 2001,2002,2003,2004,2005,2006, &
                          2007,2008,2009,2010,2011,2012 &
                          OTHERWISE 2013
2001 MONTH = "January" \ EXIT SUB
2002 MONTH = "February" \ EXIT SUB
2003 MONTH = "March" \ EXIT SUB
2004 MONTH = "April" \ EXIT SUB
2005 MONTH = "May" \ EXIT SUB
2006 MONTH = "June" \ EXIT SUB
2007 MONTH = "July" \ EXIT SUB
2008 MONTH = "August" \ EXIT SUB
2009 MONTH = "September" \ EXIT SUB
2010 MONTH = "October" \ EXIT SUB
2011 MONTH = "November" \ EXIT SUB
2012 MONTH = "December" \ EXIT SUB
2013 MONTH = "** Error **" \ EXIT SUB
3000 END SUB