This post is pretty much self explanatory. All the best.
/*REXX*/
MONTH = "AUG"
SELECT
WHEN MONTH = 'JAN' THEN MONTH_NUM = '01'
WHEN MONTH = 'FEB' THEN MONTH_NUM = '02'
WHEN MONTH = 'MAR' THEN MONTH_NUM = '03'
WHEN MONTH = 'APR' THEN MONTH_NUM = '04'
WHEN MONTH = 'MAY' THEN MONTH_NUM = '05'
WHEN MONTH = 'JUN' THEN MONTH_NUM = '06'
WHEN MONTH = 'JUL' THEN MONTH_NUM = '07'
WHEN MONTH = 'AUG' THEN MONTH_NUM = '08'
WHEN MONTH = 'SEP' THEN MONTH_NUM = '09'
WHEN MONTH = 'OCT' THEN MONTH_NUM = '10'
WHEN MONTH = 'NOV' THEN MONTH_NUM = '11'
WHEN MONTH = 'DEC' THEN MONTH_NUM = '12'
END
SAY 'Month In Number :' MONTH_NUM
EXIT
Subscribe to:
Post Comments (Atom)
Featured Post
REXX Skeleton: Submitting jobs through Rexx
Submitting jobs through REXX and reading the spool through REXX gives us immense potential to automate many manual activities in mainframes....
-
Abend S013 SYSTEM COMPLETION CODE=013 REASON CODE=00000018 AN OPEN WAS ISSUED FOR A PARTITIONED DATASET. THE SPECIFIED MEMBER NAME WAS N...
-
A word is defined as a blank delimited set of characters within a string in REXX. The characters in a word can be alpha, numeric, alphanume...
-
String functions interrogate, compare, and manipulate character strings of data. Some of the built-in function are listed below: COPIES...
No comments:
Post a Comment