//CXXTOC JOBCARD INFORMATION //* //*------------------------------------------------------------------ //* COPYRIGHT (C) 1995, SAS INSTITUTE INC. //* UNPUBLISHED - ALL RIGHTS RESERVED //* S A S / C S A M P L E //* //* //* NAME: CXXTOC //* LANGUAGE: JCL //* PURPOSE: CALL A C FUNCTION FROM A C++ MAIN(). THEN, CALL A C++ //* FUNCTION FROM A C FUNCTION. //* MVS - //* COMPILE: USE AUX(CXXTOC). COMPILED USING LC370C FOR C, LCXX //* FOR C++. //* LINK: USE AUX(CXXTOC). LINKED USING LCXXL. //* EXECUTE: USE AUX(CXXTOC). CALL .LOAD(CXXTOC). //* NOTES: //* TSO - //* COMPILE: COMPILE USING LC370C FOR C, LCXX FOR C++. //* LINK: LINK THE C AND C++ OBJECT MODULES USING CLK370 WITH //* "CXX" OPTION. //* EXECUTE: CALL .LOAD(CXXTOC). //* NOTES: //* CMS - //* COMPILE: COMPILE USING LC370C FOR C, LCXX FOR C++. //* LINK: LINK THE C AND C++ OBJECT MODULES USING CLINK WITH //* "CXX" AND "GENMOD" OPTIONS. //* EXECUTE: CALL CXXTOC. //* NOTES: //* MISC NOTES: THIS EXAMPLE CONSISTS OF 2 MODULES. CXXTOC1 IS THE C //* SOURCE MODULE. CXXTOC2 IS THE C++ SOURCE MODULE. //* //*------------------------------------------------------------------- //* //C550A EXEC LC370C //C.SYSLIN DD DSN=SASTEB.SASC.OBJ(CXXTOC2),DISP=OLD //C.SYSIN DD DSN=TSC.SAMPLES.CXX(CXXTOC2),DISP=SHR //* //C550B EXEC LCXXC //X.SYSLIN DD DSN=SASTEB.SASC.OBJ(CXXTOC1),DISP=OLD //X.SYSTRIN DD DSN=TSC.SAMPLES.CXX(CXXTOC1),DISP=SHR //* //LINK EXEC CLINK,PARM.LKED='CXX' //LKED.OBJECT DD DSN=SASTEB.SASC.OBJ,DISP=SHR INCLUDE OBJECT(CXXTOC1,CXXTOC2) /* //LKED.SYSLMOD DD DSN=SASTEB.SASC.LOAD(CXXTOC),DISP=OLD //* //GO EXEC PGM=CXXTOC //GO.STEPLIB DD DSN=SASTEB.SASC.LOAD(CXXTOC),DISP=SHR // DD DSN=TSC.C550C.LINKLIB,DISP=SHR //GO.SYSPRINT DD SYSOUT=A //GO.SYSTERM DD SYSOUT=A //