*> Variaveis para acerto do numero em caracter
       01 seq-geral.
            02 seq-77  pic 99 value zeros.
            02 seq-7   pic 99 value zeros.

       01 numeroch  pic x(15) value spaces.
       01 numerord redefines numeroch.
           03 numeropos occurs 15 times pic x.
       01 numeronu  pic x(15) value spaces.
       01 numerorn redefines numeronu.
           03 numeronupos occurs 15 times pic x.