/* rexx */                  
Mon.01="January"            
Mon.02="February"           
Mon.03="March"              
Mon.04="April"              
Mon.05="May"                
Mon.06="June"               
Mon.07="July"               
Mon.08="August"             
Mon.09="September"          
Mon.10="October"            
Mon.11="November"           
Mon.12="December"           
myDate= "1999/12/25"    /* date in yyyy/mm/dd format. */
/* If you have a different format you need to tweak the lines below */         
year = substr(myDate,1,4)   /* year portion  */   
day = substr(myDate,9,2)    /* day portion   */    
mon = substr(myDate,6,2)    /* Month portion */   
monname=MON.mon             /* Translate month */             
say day monname year        /* Display it    */        
exit