miércoles, 1 de marzo de 2017

Cobol - Inicializar variables numéricas a nueves

Solemos estar acostumbrados a inicializar variables numéricas en Cobol de la siguiente manera:

     MOVE ZEROES        TO WS-VAR-NUM

Y en todas sus vertientes:

     MOVE ZEROS         TO WS-VAR-NUM
     MOVE 0                 TO WS-VAR-NUM

Pero, ¿qué pasa cuándo queremos inicializarla con un valor distinto de 0 (por ejemplo, 9)? Si nuestro objetivo es inicializarla con nueves, sólo tenemos que hacer lo siguiente:

     MOVE ALL '9'         TO WS-VAR-NUM

Seguro que te choca ver '9' en lugar de 9, pero es así y me ha funcionado. Pruébalo tú y nos cuentas.