Wednesday, August 10, 2016

REXX Select Statement

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  

No comments:

Post a Comment

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....