Note:

• This sample is stored in hlq.HOME.ETC(MTHNAMC) for PDS deployment and as home/etc/src3gl/mthname.c on all other platforms.
• On PDS deployment use "-o mthname" to build using alternate source name of MTHNAMC.

Source:

/*                                                      */
/* MTHNAME: Sample User Written Routine in C            */
/*                                                      */
/* iWay/EDA refers to these as User Written Routines    */
/* and WebFOCUS/FOCUS refers to them as FUSELIBs        */
/* Routines. They are written in the same way for all   */
/* platforms and products, but the compilation and      */
/* link steps may differ depending on release and       */
/* product level. See appropriate platform/product      */
/* documentation for compilation and link instructions. */
/*                                                      */
 
void
mthname(double *mth, char *month)
{
static char *nmonth[13] = {"** Error **",
                           "January    ",
                           "February   ",
                           "March      ",
                           "April      ",
                           "May        ",
                           "June       ",
                           "July       ",
                           "August     ",
                           "September  ",
                           "October    ",
                           "November   ",
                           "December   ",};
int imth, loop;
imth = (int)*mth;
imth = (imth < 1 || imth > 12 ? 0:imth);
for (loop=0;loop < 12;++loop)
     month[loop] = nmonth[imth][loop];
return;
}