Συνδέστε το πρόγραμμα C για να καλέσετε το πρόγραμμα COBOL σας δηλώνοντας C σας και τις λειτουργίες COBOL ως εξής :
κηρύξει μια λειτουργία σε C που περνά μια ακέραια τιμή ( i) COBOL : void CBLRTN ( int ) ? CBLRTN ( i ) ?
Χρησιμοποιήστε την τιμή "I" από το πρόγραμμα C στο πρόγραμμα COBOL σας : 01 I PIC S9 ( 9 ) BINARY.PROCEDURE DIVISION ΧΡΗΣΗ ΑΠΟ τΗΝ ΑΞΙΑ Ι. 2
Συνδέστε το πρόγραμμα COBOL σας στο πρόγραμμά σας C , έχοντας το πρόγραμμα COBOL καλέσετε μια συνάρτηση C και να περάσει μια τιμή , ως εξής :
καλέστε το C υπορουτίνα " CFUNC " από COBOL , περνώντας την τιμή "I" : 01 I PIC S9 ( 9 ) BINARY.CALL " CFUNC " ΧΡΗΣΗ ΑΠΟ τΗΝ ΑΞΙΑ Ι.
αναγνωρίσει τη λειτουργία σε C : void CFUNC ( int i ) { i επιστροφή? }
Η
3
κηρύξει μια « pragma_linkage " στην κορυφή του προγράμματός σας C να δηλώσει ρητά σύνδεση με COBOL , η οποία απαιτείται από ορισμένους συντάκτες . Η σύνταξη για την σύνδεση pragma είναι : " # pragma σύνδεση ( λειτουργία , COBOL ) "
Μπορείτε να δηλώσετε τη σύνδεση pragma και να δημιουργήσετε μια συνάρτηση C για να περάσει μια τιμή σε Cobol ως εξής : .
# pragma σύνδεση ( CBLRTN , COBOL ) άκυρη CBLRTN ( int i ) ? CBLRTN ( i ) ?
Μπορείτε στη συνέχεια να χρησιμοποιήσετε το πέρασε μεταβλητή στο πρόγραμμα COBOL σας ως εξής :
01 I PIC S9 ( 9 ) ΧΡΗΣΗ ΕΙΝΑΙ BINARYPROCEDURE DIVISION ΧΡΗΣΗ Ι.
Η 4
κηρύξει μια " pragma σύνδεση " στο πάνω μέρος του προγράμματός σας C να συνδέσει ρητά το πρόγραμμα COBOL σε C. Αυτό απαιτείται από ορισμένους συντάκτες . Η σύνδεση pragma γίνεται πάντα σε πρόγραμμα C , ακόμα και όταν το πρόγραμμα COBOL περνά την τιμή για το πρόγραμμα C
Μπορείτε να δηλώσετε τη μεταβλητή στο πρόγραμμα COBOL και να καλέσουμε τη συνάρτηση C ως εξής : .
01 I PIC S9 ( 9 ) ΧΡΗΣΗ ΕΙΝΑΙ BINARYCALL ' CFUNC ' ΧΡΗΣΗ τΟΥ ΠΕΡΙΕΧΟΜΕΝΟΥ Ι.
Μπορείτε στη συνέχεια να κηρύξει την σύνδεση pragma σε COBOL και ορίζουμε τη συνάρτηση σε C ως εξής :
# pragma σύνδεση ( CFUNC , COBOL ) άκυρη CFUNC ( int p1 ) { }
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα