@Ale, bueno pues inténtalo así, con
COMP-1:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 pgm pic x(10) value "program".
01 double comp-1.
01 num redefines double pic s9(9) comp-5.
PROCEDURE DIVISION.
call pgm using by content "Precio"
by value num
El caso es que este es de 4 bytes, y lo importes muy grandes no van a entrar.