d Var1            S              5p 0 Import

     c     Var1          dsply                   r                 1

     c                   z-add     77            Var1

     c     Var1          dsply                   r                 

     c                   return