En svært sikker enterprise operativsystem utviklet av IBM , z /OS makter store stormaskiner og gir et integrert miljø for utvikling av applikasjoner i ulike programmeringsspråk. Du kan bruke interlanguage kommunikasjon - eller ILC - funksjonalitet innebygd i z /OS til sømløst koble COBOL og C-programmer , som operativsystemet byr på innebygd støtte for denne funksjonen . Du kan ringe C rutiner fra COBOL eller ring COBOL rutiner fra C , eller en kombinasjon av begge deler, mye på samme måte som du ville kalle lokale rutiner på hvert språk . Du trenger
IBM stormaskin kjører z /OS
Enterprise COBOL for z /OS
z /OS XL C /C + +
Vis flere instruksjoner
1 < p > Link din C-program for å ringe COBOL -programmet ved å erklære din C og COBOL funksjoner som følger : en

erklærer en funksjon i C som passerer et heltall ( i) til COBOL : void CBLRTN ( int ) ; CBLRTN ( i) ;

Bruk verdien "I" fra C-program i COBOL -programmet : 01 jeg PIC S9 ( 9 ) BINARY.PROCEDURE DIVISJON bRUKE aV VERDI I.
2

Knytt COBOL -programmet til din C-program ved å ha COBOL -programmet kaller en C -funksjon og gi det en verdi , som følger : en

Ring C subrutinen " CFUNC " fra COBOL , passerer verdien " i": 01 jeg PIC S9 ( 9 ) BINARY.CALL " CFUNC " BRUKE aV VERDI I.

Erklærer funksjonen i C : void CFUNC ( int i) {return i; }

3

erklærer en " pragma_linkage " på toppen av din C-program til eksplisitt deklarere en kobling til COBOL , som er nødvendig for noen kompilatorer . Syntaksen for Pragma sammenhengen er: " # pragma kobling (funksjon , COBOL )"

Du erklære Pragma lenke og lage en C -funksjon for å passere en verdi til COBOL som følger: .

# pragma linkage ( CBLRTN , COBOL ) void CBLRTN ( int i) ; CBLRTN ( i) ;

deretter bruker du den passerte variabelen i COBOL -programmet som følger : en

01 jeg PIC S9 ( 9 ) bruk er BINARYPROCEDURE DIVISJON BRUKE I.
4

Erklærer en " Pragma linkage " på toppen av din C program å eksplisitt knytte COBOL -programmet til C. Dette er nødvendig for noen kompilatorer . Pragma trekkstengene er alltid gjort i C-program , selv når COBOL -programmet passerer verdien til C program

Du deklarere variabelen i COBOL -programmet og kaller C funksjon som følger : .

01 jeg PIC S9 ( 9 ) bruk er BINARYCALL ' CFUNC ' BRUK aV INNHOLD I.

Du deretter erklære Pragma kobling til COBOL og definere funksjonen i C som følger : en

# pragma linkage ( CFUNC , COBOL ) void CFUNC ( int p1 ) { }