//CTOCXX JOBCARD INFORMATION /*------------------------------------------------------------------- //* COPYRIGHT (C) 1995, SAS INSTITUTE INC. //* UNPUBLISHED - ALL RIGHTS RESERVED //* S A S / C S A M P L E //* //* NAME: CTOCXX //* LANGUAGE: JCL //* PURPOSE: CALL A C++ FUNCTION FROM A C MAIN(). THEN, CALL A C //* FUNCTION FROM A C++ FUNCTION. //* MVS - //* COMPILE: USE AUX(CTOCXX). COMPILED USING LC370C FOR C, LCXX //* FOR C++. //* LINK: USE AUX(CTOCXX). LINKED USING LCXXL. //* EXECUTE: USE AUX(CTOCXX). CALL .LOAD(CTOCXX). //* 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(CTOCXX). //* 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 CTOCXX. //* //C550A EXEC LC370C //C.SYSLIN DD DSN=SASTEB.SASC.OBJ(CTOCXX1),DISP=OLD //C.SYSIN DD DSN=TSC.SAMPLES.CXX(CTOCXX1),DISP=SHR //* //C550B EXEC LCXXC //X.SYSLIN DD DSN=SASTEB.SASC.OBJ(CTOCXX2),DISP=OLD //X.SYSTRIN DD DSN=TSC.SAMPLES.CXX(CTOCXX2),DISP=SHR //* //LINK EXEC CLINK,PARM.LKED='CXX' //LKED.OBJECT DD DSN=SASTEB.SASC.OBJ,DISP=SHR INCLUDE OBJECT(CTOCXX1,CTOCXX2) /* //LKED.SYSLMOD DD DSN=SASTEB.SASC.LOAD(CTOCXX),DISP=OLD //* //GO EXEC PGM=CTOCXX //GO.STEPLIB DD DSN=SASTEB.SASC.LOAD(CTOCXX),DISP=SHR // DD DSN=TSC.C550C.LINKLIB,DISP=SHR //GO.SYSPRINT DD SYSOUT=A //GO.SYSTERM DD SYSOUT=A //