@luisbago, ya te lo dije cuando te envié el .cbl arreglado.
Citación del post de
JCantero
|
❞
- En una sentencia string ...... no puedes poner campos computacionales, lo he movido a un campo de edicion
|
Tienes que moverlo a un campo de edición y adjuntar ese campo.
Código COBOL:
* Si tienes este campo numerico
01 NSS PIC 9(11) COMP-3.
* defines uno de edicion en working
01 nss-e pic z(11).
* en la procedure division
move nss to nss-e.
* y haces uso de nss-e en vez de nss
El anterior campo de edición te deja un string con espacios en blanco a la izquierda(_________123) si lo quieres así (000000000123) pon pic 9(11) en vez de pic z(11). Tambien te puede interesar pic z(10)9