En mycket säker företag operativsystem utvecklat av IBM , z /OS befogenheter stora stordatorer och ger en integrerad miljö för att utveckla applikationer i olika programmeringsspråk . Du kan använda interlanguage kommunikation - eller ILC - funktionalitet byggs in z /OS att smidigt koppla COBOL och C-program , som operativsystem har inbyggt stöd för den här funktionen . Du kan ringa C rutiner från COBOL eller ring COBOL rutiner från C , eller en kombination av båda , på ungefär samma sätt som du skulle kalla lokala rutiner på varje språk . Saker du behöver
IBM stordator kör z /OS
Enterprise COBOL för z /OS
z /OS XL C /C + +
Visa fler instruktioner
1
Link din C-program för att ringa din COBOL -program genom att förklara din C och COBOL funktioner enligt följande :
deklarera en funktion i C som passerar ett heltal ( i) till COBOL : void CBLRTN ( int ) ; CBLRTN ( i) ;
Använd värdet " jag " från C-programmet i din COBOL -program : 01 jag PIC S9 ( 9 ) BINARY.PROCEDURE DIVISION aNVÄNDA i värde I.
2
Länka din COBOL program till din C-programmet genom att ha COBOL programmet kallar en C-funktion och ge det ett värde , enligt följande :
ring C subrutinen " CFUNC " från COBOL , passerar värdet " i " : 01 jag PIC S9 ( 9 ) BINARY.CALL " CFUNC " använder genom VALUE I.
Deklarera funktionen i C : void CFUNC ( int i ) {return i; }
3
deklarera en " pragma_linkage " längst upp i din C-program för att deklarera en koppling till COBOL , som krävs av vissa kompilatorer . Syntaxen för pragma kopplingen är : " # pragma koppling ( funktion , COBOL ) "
Du deklarerar pragma koppling och skapa en C-funktion för att passera ett värde till COBOL enligt följande : .
# pragma koppling ( CBLRTN , COBOL ) void CBLRTN ( int i ) , CBLRTN ( i) ;
Du sedan använda passerade variabeln i din COBOL program enligt följande :
01 jag PIC S9 ( 9 ) användning är BINARYPROCEDURE DIVISION ANVÄNDA I.
4
Deklarera en " pragma koppling " på toppen av din C-program för att uttryckligen knyta COBOL programmet till C. Detta krävs av vissa kompilatorer . Den pragma kopplingen sker alltid i C -programmet , även när COBOL programmet passerar värdet till C-programmet Du deklarerar variabeln i COBOL -program och anropa C-funktion som följer
: .
01 jag PIC S9 ( 9 ) användning är BINARYCALL ' CFUNC ' ANVÄNDA efter innehåll I.
Du då förklara pragma koppling till COBOL och definiera funktionen i C enligt följande :
# pragma koppling ( CFUNC , COBOL ) void CFUNC ( int p1 ) { } Addera
