Global character not keeping value

[Joe Reichman]

I have a prolog and eplog macros as exit and entry to program 

 

The prolog is coded as such    

                  MACRO                     

 &NAME    PRLG    &DSA             

                   GBLC   &DSANUM             

 &DSANUM  SETC  '&DSA'              

 

When used in the prolog

 

  As such

 

          AIF   ('&DSANUM' EQ '').NODSA        

          AH    R11,=H'&DSANUM'                

 .NODSA   ANOP                  

 

   I get the value I coded e.g. PRLG 30 

 

GNERATES AH   R11,=H'30'

 

However when I used it in the EIPLOG it fails to retain its value and is
null

 

              MACRO                          

              EPLG                       

             LCLC  &CURCSECT                

            GBLC  &DSANUM 

 

 

As this code in the eplog is skipped

 

   WS_DSECT  DSECT                          

                DS    18FD                      

 NAB      DS    AD                        

             AIF   ('&DSANUM' EQ '').NODSA   

               DS    CL&DSANUM                 

 .NODSA   ANOP