Citación del post de
Kuk
|
❞
es un COMP-5 o sea binario nativo y por lo tanto no obedece al PIC de Cobol sino al tamaño físico
|
En RM/Cobol un pic 99 es un numero de 2 digitos.
Si hago esto :
Código COBOL:
id division.
program-id. Comp5.
environment division.
configuration section.
data division.
working-storage section.
01 crc PIC X(1).
01 crcNum redefines crc pic 9(2) comp-5.
procedure division.
inicio.
move 205 to crcNum
display crcNum
STOP RUN.
El resultado del display es 05
He probado en OpenCobol y funciona igual.
Ya no se en otros cobol, pero en los que he probado es asi.
