         PROC  &P,3                     DM PROC                         DM$00010
DM$FNC   NAME  0                        FILE NAME CHECK                 DM$00020
DM$UR01  NAME  1
.*
.*                       DM$FNC
.*
.*                                        CHECK POSITIONAL PARAMETER
.*                                        FOR A FIRST ALPHABETIC
.*                                        CHARACTER.  (FIRST CHARACTER
.*                                        MAY BE  A-Z, QUESTION MARK,
.*                                        DOLLAR SIGN, POUND SYMBOL
.*                                        AND COMMERCIAL AT.)  IF NOT
.*                                        ALPHABETIC, GLOBAL SYMBOL
.*                                        DM$C1 IS SET TO 1.  OTHERWISE
.*                                        DM$C1 IS 0.  SEE WP 526.
.*
.*                       DM$UR01
.*
.*                                        CHECKS FOR SYSPARM='GEXXXXXX'
.*                                        IF SO, A PRINT GEN IS
.*                                        GENERATED, ELSE PRINT NOGEN
.*                                        IS GENERATED.  THIS PROC
.*                                        ALLOWS CONTROL OF PROC
.*                                        EXPANSION LISTING BY MEANS
.*                                        OF THE  // PARAM SYSPARM=
.*                                        CARD TO THE ASSEMBLER.
         GBL   &DM$C1                                                   DM$00030
         LCL   &S$C1                                                    DM$00040
         DO    &P(0)=0                                                  DM$00070
&DM$C1   SET   0                                                        DM$00080
&S$C1    SET   '&P(1)'(1,1)                                             DM$00090
         DO    (('&S$C1'<'A')++('&S$C1'>'Z'))**(('&S$C1'='?'=0)**('&S$CXDM$00100
               1'='$'=0)**('&S$C1'='#'=0)**('&S$C1'='@'=0))             DM$00110
&DM$C1   SET   1                                                        DM$00120
         ENDO                                                           DM$00130
         ENDO                                                           DM$00140
         DO    &P(0)=1                  DM$UR01 PROC                    DM$00145
         DO    '&SYSPARM'(1,2)='GE'
         PRINT GEN
         GOTO  .END
         ENDO
         PRINT NOGEN
         ENDO
.END     LABEL
         END                                                            DM$00150
