Pregunta, no sería más rapido si cambiaseis:
Código COBOL:
MOVE 100 TO IDX-LON
PERFORM UNTIL IDX-LON = ZEROS OR WS-TEXTO-BSQ(IDX-LON:1) NOT = SPACES
SUBTRACT 1 FROM IDX-LON
END-PERFORM
por:
Código COBOL:
COMPUTE IDX-LON = FUNCTION STORED-CHAR-LENGTH (WS-TEXTO-BSQ)
Ahorrariais un bucle que, en caso de que el "
sitio" dónde buscar, tenga muchos registros, vendría bien, no lo he probado, pero creo que funcionaría igual de bien.
Un saludo.-