//PLI2C JOBCARD INFORMATION //* //*------------------------------------------------------------------ //* COPYRIGHT (C) 1995, SAS INSTITUTE INC. //* UNPUBLISHED - ALL RIGHTS RESERVED //* S A S / C S A M P L E //* //* NAME: PLI2C //* LANGUAGE: JCL //* PURPOSE: THIS EXAMPLE DEMONSTRATES A PLI PROGRAM CALLING //* A C FUNCTION. //* IT CONSISTS OF SAMPLE LIBRARY MEMBERS //* PLI2CC, PLI2CP, AND PLI2C. //* THIS JCL COMPILES, LINKS, AND EXECUTES THESE MODULES. //*----------------------------------------------------------------- //***************************************************************** //* NOTE: Verify the statements indicated by the "<== CHECK" //* have been customized for the local environment. //***************************************************************** //* //* PL/I COMPILE //* //PLICOMP EXEC PLI5C <=== CHECK: PROC //SYSLIN DD DSN=your.object.library(PLI2CP),DISP=OLD <== CHECK //SYSIN DD DSN=prefix.SAMPLE.ILC(PLI2CP),DISP=SHR <== CHECK //* //********************************************** //* //* C COMPILE //* //CCOMP EXEC LC370C,PARM.C='INDEP' <=== CHECK: PROC //* <== MUST COMPILE WITH INDEP //C.SYSLIN DD DSN=your.object.library(PLI2CC),DISP=OLD <== CHECK //C.SYSIN DD DSN=prefix.SAMPLE.ILC(PLI2CC),DISP=SHR <== CHECK //* //********************************************** //* //* ILC LINKSTEPS //* //ILCLINK EXEC ILCLINK,PARM.LKED='NOTERM' <=== CHECK: PROC //LKED.SYSLMOD DD your.load.library,DISP=OLD <== CHECK //LKED.LC370 DD DSN=prefix.BASELIB,DISP=SHR <== CHECK // DD DSN=prefix.STDLIB,DISP=SHR <== CHECK //LKED.PLILIB DD DSN=local.pli.PLIBASE,DISP=SHR <== CHECK //LKED.MYLIBC DD DSN=your.object.library,DISP=SHR <== CHECK //LKED.MYLIBP DD DSN=your.object.library,DISP=SHR <== CHECK //LKED.ILCIN DD * FIRST *(PLI) LANGUAGE PLI,C PROCESS LKED (XREF LIST AUTOCALL PLILIB,LC370 INCLUDE MYLIBP(PLI2CP) INCLUDE MYLIBC(PLI2CC) NAME PLI2C(R) //* //********************************************** //* //* RUN THE PROGRAM //* //GO EXEC PGM=PLI2C //STEPLIB DD your.load.library,DISP=SHR <== CHECK // DD DSN=prefix.LINKLIB,DISP=SHR <== CHECK // DD DSN=local.pli.PLILINK,DISP=SHR <== CHECK //SYSPRINT DD SYSOUT=* //SYSTERM DD SYSOUT=* //*