&NAM     PROC  &P,0                                                     STR00010
STRTAR   NAME                                                           STR00020
         LCL   &X                                                       STR00030
&X       SET   '&NAM.        '(1,8)                                     STR00040
*********************************************************************** STR00050
*                                                                     * STR00060
*                        START                                        * STR00070
*                                                                     * STR00080
*********************************************************************** STR00090
&X       START 0                                                        STR00100
*********************************************************************** STR00110
*                                                                     * STR00120
*                                                                     * STR00130
*                                                                     * STR00140
*********************************************************************** STR00150
         END                                                            STR00160
