&NAM     PROC  &P,0                                                     DSC00010
DSCTAR   NAME                                                           DSC00020
         LCL   &X                                                       DSC00030
&X       SET   '&NAM.        '(1,8)                                     DSC00040
*********************************************************************** DSC00050
*                                                                     * DSC00060
*                        DSECT                                        * DSC00070
*                                                                     * DSC00080
*********************************************************************** DSC00090
&X       DSECT                                                          DSC00100
*********************************************************************** DSC00110
*                                                                     * DSC00120
*                                                                     * DSC00130
*                                                                     * DSC00140
*********************************************************************** DSC00150
         END                                                            DSC00160
