Examples of JCL
The following JCL compiles, binds and executes the previous examples.
//IEWAPCOM JOB (),MSGCLASS=H,MSGLEVEL=(1,1),TIME=1,REGION=0M
//**********************************************************************
//* *
//* LICENSED MATERIALS - PROPERTY OF IBM *
//* *
//* 5650-ZOS *
//* *
//* COPYRIGHT IBM CORP. 1977, 2013 *
//* *
//* STATUS = HPM7770 *
//* *
//* FUNCTION: This JCL compiles, binds and executes the Binder sample *
//* programs shipped in SAMPLIB. The Binder sample programs *
//* are - *
//* IEWAPCCC - Sample Binder C/C++ API program *
//* IEWAPBND - Sample Binder API program *
//* IEWAPFDA - Sample Binder fast data access API program *
//**********************************************************************
// JCLLIB ORDER=(CBC.SCCNPRC)
// SET SAMPLIB=SYS1.SAMPLIB
// SET SAMPUNIT=SYSALLDA
//*
//* Compile, bind and execute IEWAPCCC - C API example
//*
//IEWAPCCC EXEC PROC=EDCXCB,
// CPARM='RENT,SE(/usr/include),LIST(DD:SYSPRINT)',
// INFILE=&SAMPLIB(IEWAPCCC),
// TUNIT=&SAMPUNIT
//BIND.SYSLMOD DD DSN=&&EXECPCCC(IEWAPCCC),
// SPACE=(TRK,(1,1,1)),DSNTYPE=LIBRARY,DISP=(NEW,PASS),
// UNIT=&SAMPUNIT
//BIND.SYSIN DD *
INCLUDE '/usr/lib/iewbnddx.x'
/*
//*
//GOWAPCCC EXEC PGM=*.IEWAPCCC.BIND.SYSLMOD,
// PARM='ENVAR("LIBPATH=/usr/lib"),MSGFILE(MYSTDERR)//bin/sh'
//SYSPRINT DD SYSOUT=*
//MYSTDERR DD SYSOUT=*
//*
//* Compile, bind and execute IEWAPBND - Binder API example
//*
//IEWAPBND EXEC PGM=ASMA90
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&&OBJAPBND,
// DISP=(NEW,PASS),SPACE=(TRK,(3,3)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200),
// UNIT=&SAMPUNIT
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
//SYSIN DD DSN=&SAMPLIB(IEWAPBND),DISP=SHR
//*
//BINDPBND EXEC PGM=IEWBLINK
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DSN=&&EXECPBND(IEWAPBND),
// SPACE=(TRK,(1,1,1)),DISP=(NEW,PASS),UNIT=&SAMPUNIT
//SYSLIN DD DSN=&&OBJAPBND,DISP=(OLD,DELETE)
//*
//GOWAPBND EXEC PGM=*.BINDPBND.SYSLMOD
//MYDDN DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//LPALIB DD DSN=SYS1.LPALIB,DISP=SHR
//*
//* Compile, bind and execute IEWAPFDA - Fast Data API example
//*
//IEWAPFDA EXEC PGM=ASMA90
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&&OBJAPFDA,
// DISP=(NEW,PASS),SPACE=(TRK,(3,3)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200),
// UNIT=&SAMPUNIT
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
//SYSIN DD DSN=&SAMPLIB(IEWAPFDA),DISP=SHR
//*
//BINDPFDA EXEC PGM=IEWBLINK
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DSN=&&EXECPFDA(IEWAPFDA),
// SPACE=(TRK,(1,1,1)),DSNTYPE=LIBRARY,DISP=(NEW,PASS),
// UNIT=&SAMPUNIT
//SYSLIN DD DSN=&&OBJAPFDA,DISP=(OLD,DELETE)
//*
//GOWAPFDA EXEC PGM=*.BINDPFDA.SYSLMOD
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DSN=&&EXECPFDA,DISP=(SHR,PASS)
//SYSIN DD *
SB IEWAPFDA
RC
GN SECTIONS
RC
GN CLASSES
RC
GE
RC
GC
RC
GD
RC
EN
XX
//*