MTHNAME PL/1 Implementation

Note:

• This sample is stored in hlq.HOME.ETC(MTHNAMPL) for PDS deployment and as home/etc/src3gl/mthname.pl1 on all other platforms.
• PL/1 is only supported on z/OS and the sample on disk is only provided for reference for all other platforms.
• On PDS deployment use "-o mthname" to build using alternate source name of MTHNAMAS.
• PL/1 coding must start in column 2 of file.

Source:

/* MTHNAME: Sample User Written Routine in PL/1 */
 
MTHNAME: PROC(MTHNUM,FULLMTH) OPTIONS(COBOL);
DECLARE MTHNUM DECIMAL FLOAT (16) ;
DECLARE FULLMTH CHARACTER (9) ;
DECLARE MONTHNUM FIXED BIN (15,0) STATIC ;
DECLARE MONTH_TABLE(13) CHARACTER (9) STATIC
                      INIT ('January',
                            'February',
                            'March',
                            'April',
                            'May',
                            'June',
                            'July',
                            'August',
                            'September',
                            'October',
                            'November',
                            'December',
                            '**ERROR**') ;
MONTHNUM = MTHNUM + 0.00001 ;
IF MONTHNUM < 1 | MONTHNUM > 12 THEN MONTHNUM = 13 ;
FULLMTH = MONTH_TABLE(MONTHNUM) ;
RETURN ;
END MTHNAME ;