MACRO                                                                  
&N       UPPER &AREA                                                            
* ******************************************************************* *         
*                                                                     *         
*                           U P P E R                                 *         
*                                                                     *         
*        Fold the passed area to uppercase.                           *         
*                                                                     *         
         AIF   (K'&AREA EQ 0).E12                                               
&N       OC    &Area,=256C' '       Fold to uppercase                           
         MEXIT                                                                  
.E12     MNOTE 8,'***** No Area passed *****************************'           
*                                                                     *         
*  Copyright - Abbydale Systems LLC.                                  *         
* ******************************************************************* *         
         MEND