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
⁄⁄*