//ISPFEXIT JOB (,R224),'CTGEORGE',NOTIFY=,TIME=(,5),CLASS=X /*JOBPARM FETCH //** * //** Copyright (c) 1996 - SAS Institute, Inc. * //** Unpublished - All Rights Reserved * //** * //** Name : ISPFEXTJ * //** * //** * //** Purpose : Demonstrate calls to ISPF involving tables, file * //** skeletons, reports, and profiles. * //** * //** Function: Compile and linkedit the ISPFEXIT source file. * //** * //** Source : * //** - see prefix.SAMPLE.AUX members - * //** CPANEL5 - main panel * //** OSISPF - header file * //** * //** - see prefix.SAMPLE.C members - * //** ISPFUSER - C main and supporting functions. * //** ISPFEXIT - ISPF exit * //** * //** Note : * //** //* //********************************************************************* //* * //* Compile the ISPF User exit * //* * //********************************************************************* //ISPFUSER EXEC LC600CL,PARM.C='INDEP' //C.SYSIN DD DSN=SASCTG.VER6SAMP.ISPFEXIT(ISPFEXIT), <== Verify // DISP=SHR //C.SYSLIN DD DSN=SASCTG.VER6SAMP.OBJ(ISPFEXIT), <== Verify // DISP=SHR //C.H DD DSN=SASCTG.VER6SAMP.ISPFEXIT, <== Verify // DISP=SHR //* //********************************************************************* //* * //* Compiles the C main and linkedits the ISPLINK function and * //* user written exit. * //* * //********************************************************************* //* //ISPFEXIT EXEC LC600CL,PARM.C='AT INDEP' //C.SYSIN DD DSN=SASCTG.VER6SAMP.ISPFEXIT(ISPFUSER), <== Verify // DISP=SHR //C.SYSLIN DD DSN=SASCTG.VER6SAMP.OBJ(ISPFUSER), <== Verify // DISP=SHR //C.H DD DSN=SASCTG.VER6SAMP.ISPFEXIT, <== Verify // DISP=SHR //LKED.SYSLMOD DD DSN=SASCTG.VER6SAMP.LOAD, <== Verify // DISP=SHR //LKED.SYSIN DD * INCLUDE ISPLLIB(ISPLINK) INCLUDE USER(ISPFEXIT) ENTRY @MAIN NAME CUSERXT(R) /* //LKED.ISPLLIB DD DSN=TSO.ISPF.ISPLOAD, <== Verify // DISP=SHR //LKED.USER DD DSN=SASCTG.VER6SAMP.OBJ(ISPFUSER), <== Verify // DISP=SHR //* //