d Var1            S              5p 0 Export Inz(3)

     c     Var1          dsply                   r                 1

     c                   callb     'EXP_IMP1'

     c     Var1          dsply                   r                 


     c                   return