Note:
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 ;
iWay Software |