&NAM     PROC  &P,0                                                     CSC00010
CSCTAR   NAME                                                           CSC00020
         LCL   &X                                                       CSC00030
&X       SET   '&NAM.        '(1,8)                                     CSC00040
*********************************************************************** CSC00050
*                                                                     * CSC00060
*                        CSECT                                        * CSC00070
*                                                                     * CSC00080
*********************************************************************** CSC00090
&X       CSECT                                                          CSC00100
*********************************************************************** CSC00110
*                                                                     * CSC00120
*                                                                     * CSC00130
*                                                                     * CSC00140
*********************************************************************** CSC00150
         END                                                            CSC00160
