//PLI2CPRM JOBCARD INFORMATION //* //*------------------------------------------------------------------ //* COPYRIGHT (C) 1995, SAS INSTITUTE INC. //* UNPUBLISHED - ALL RIGHTS RESERVED //* S A S / C S A M P L E //* //* NAME: PLI2CPRM //* LANGUAGE: JCL //* PURPOSE: THIS EXAMPLE DEMONSTRATES A PLI PROGRAM CALLING //* A C FUNCTION, WHICH TAKES A PARAMETER LIST. //* IT CONSISTS OF SAMPLE LIBRARY MEMBERS //* PLI2CPC, PLI2CPP, AND PLI2CPRM. //* 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(PLI2CPP),DISP=OLD <== CHECK //SYSIN DD DSN=prefix.SAMPLE.ILC(PLI2CPP),DISP=SHR <== CHECK //* //********************************************** //* //* C COMPILE //* //CCOMP EXEC LC370C,PARM.C='INDEP' <=== CHECK: PROC //* <== MUST COMPILE WITH INDEP //C.SYSLIN DD DSN=your.object.library(PLI2CPC),DISP=OLD <== CHECK //C.SYSIN DD DSN=prefix.SAMPLE.ILC(PLI2CPC),DISP=SHR <== CHECK //* //********************************************** //* //* ILC LINKSTEPS //* //ILCLINK EXEC ILCLINK,PARM.LKED='NOTERM' <=== CHECK: PROC //LKED.SYSLMOD DD DSN=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(PLI2CPP) INCLUDE MYLIBC(PLI2CPC) NAME PLI2CPRM(R) //* //********************************************** //* //* RUN THE PROGRAM //* //GO EXEC PGM=PLI2CPRM //STEPLIB DD DSN=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=* //*