@Ale,
|
|
En cuanto a esto:
Código CPP:
const char * IFOpRetGet (const char * name)
En Cobol se hace con un puntero:
Código COBOL:
WORKING-STORAGE SECTION.
01 ptrDato POINTER.
...
LINKAGE SECTION.
01 datosRecepcion PIC X(100).
PROCEDURE DIVISION.
call pgm with stdcall using by content "Precio"
returning ptrDato
set address of datosRecepcion to ptrDato
display datosRecepcion