mainframe de IBM corriendo z /OS de Empresa COBOL para z /OS de z /OS XL C /C + +
Ver Más instrucciones
1 < p > Enlace a su programa en C para llamar a su programa COBOL declarando su función COBOL y C de la siguiente manera :
declarar una función en C que pasa un valor entero ( i ) para COBOL : void CBLRTN (int ) ; CBLRTN ( i);
Utilice el valor " I" del programa de C en su programa COBOL: 01 I CFP S9 ( 9 ) DIVISIÓN BINARY.PROCEDURE uSO POR vALOR I.
2
Enlace su programa COBOL a su programa de C por tener el programa COBOL llamar a una función C y pasar un valor, de la siguiente manera :
llamar a la subrutina C " CFUNC " de COBOL, pasando el valor de "I": 01 I CFP S9 ( 9 ) BINARY.CALL " CFUNC " USO POR VALOR I.
Declarar la función en C : void CFUNC (int i ) {return i ;}
3
declarar una " pragma_linkage " en la parte superior de su programa de C para declarar explícitamente un vínculo con COBOL, que es requerido por algunos compiladores . La sintaxis de la vinculación pragma es: "# pragma vinculación (función, COBOL ) "
declara la vinculación pragma y crear una función de C para pasar un valor a COBOL como sigue: .
# pragma vinculación ( CBLRTN , COBOL ) CBLRTN void (int i); CBLRTN ( i);
, puede utilizar esta variable pasada en el programa COBOL como sigue:
01 I PIC S9 ( 9 ) el uso es BINARYPROCEDURE DIVISION USO I.
4
Declarar una " vinculación pragma " en la parte superior de su programa de C para vincular explícitamente el programa COBOL a C. Esto es requerido por algunos compiladores . La vinculación pragma se realiza siempre en el programa C, incluso cuando el programa COBOL es pasar el valor al programa C
declara la variable en el programa COBOL y llama a la función C de la siguiente manera : .
01 I PIC S9 ( 9 ) el uso es BINARYCALL ' CFUNC ' UTILIZANDO POR CONTENIDO I.
entonces declara la vinculación pragma para COBOL y definir la función en C de la siguiente manera :
# pragma vinculación ( CFUNC , COBOL ) CFUNC void (int p1 ) { }