F*****************************************************************
     F*  Valida campo CODSUN. CODSUN es un campo alfa de 10 posiciones	 
     F*  y el programa lo verifica y si esta ok lo mueve al campo WCINTIA. 
     F*****************************************************************
     D  Wlong          s              3s 0
     D                 DS                  inz
     D  WCINTID                1     10S 0
     D  WCINTIA                1     10
     D  WCINTIB               11     20
     d*
     C*------------------------------------
     c*- sbrchk – Cheque campo            -
     C*------------------------------------
     C	sbrchk	 begsr
     c                   eval      wcintia = *zeros
     C* testea campo numerico.
     C                   TESTN                   codsun               21
     c* todos numeros o.k.
     c                   if        *in21 = *on
     c                   eval      wcintia = codsun
     c                   else
     c                   eval      *in21 = *off
     c                   eval      wcintib = \'0000000000\'
     c* Obtiene cantidad de caracteres
     c                   eval      wlong = %len(%trim(codsun))
     c                   if        wlong = 0
     C                   clear                   wcintid
     c                   leavesr
     c                   endif
     c* Mueve caracteres a la derecha
     c                   eval      %subst(wcintib:11-wlong) = %trim(codsun)
     c* Muevo cero a blanco de la izquierda
     c     \' \':\'0\'       xlate     wcintib       wcintib
     C* testea campo numerico
     C                   TESTN                 wcintib              21
     c                   if        *in21 = *on
     c* todos numeros o.k.
     c                   eval      wcintia = wcintib
     c                   else
     c                   eval      wcintia = *zeros
     c                   endif
     c                   endif 
     c                   end