@JCantero, es un
COMP-5 o sea binario nativo y por lo tanto no obedece al PIC de Cobol sino al tamaño físico
Para que te hagas una idea, declara un campo como
PIC 9(4) COMP-5 y hazle un
MOVE de 54321 y luego hazle un
DISPLAY, ya verás
COMPUTATIONAL-5 or COMP-5 (native binary):
Computational items
En cuanto al resultado: el problema de
@Dasije eran las operaciones sobre Bits. En realidad, según lo que vi por los internetes, no estoy para nada seguro que el código Delphi es correcto. Por lo pronto la tabla difiere de las que he visto por ahí. Y el código pues también. Pero es lo de menos porque se puede jugar con ello hasta dar con lo que se desea o simplemente ver el algoritmo en sí y crear código propio.