[Gatomalo]

      
       OPEN INPUT TABLA.
       MOVE 1 TO TIPO-T.
        READ TABLA INVALID KEY STOP "NO EXITE NRO TABLA".
           
       ADD 1 TO NRO-T.
       CLOSE TABLA.
       MOVE NRO-T TO POW-NUMERIC OF CMTEXT1.

Cada vez que grabes adicionas 1 y regrabas.