Language Environment Interface Reference

Sample OS/390 JCL

//BLDUSER  JOB ,'BLDUSER ',TIME=1,

// MSGCLASS=H,CLASS=A,

// USER=IBMUSER,MSGLEVEL=(1,1)

//**********************************************************************

//*  COMPILE STEP: C++ DLL     (USER-WRITTEN LE)                       *

//*                C/C++ FOR MVS/ESA(R) COMPILER V3 R2.0               *

//*                AD/CYCLE LE/370 V1 R7.0                             *

//**********************************************************************

//COMPILE EXEC PGM=CBC320PP,REGION=32M,

//          PARM=('/CXX SO,OPT,EXP,SE(''CEEV1R70.SCEEH.+'')',

//          'DEF(_XOPEN_SOURCE_EXTENDED)')

//STEPLIB   DD DSN=CEEV1R70.SCEERUN,DISP=SHR

//          DD DSN=CBCV3R20.SCBC3CMP,DISP=SHR

//SYSMSGS   DD DUMMY,DSN=CBCV3R20.SCBC3MSG(EDCMSGE),DISP=SHR

//SYSXMSGS  DD DUMMY,DSN=CBCV3R20.SCBC3MSG(CBCMSGE),DISP=SHR

//SYSIN     DD DSN=IBMUSER.NETDATA.USERLANG.C(USERLANG),DISP=SHR

//SYSLIB    DD DSN=CBCV3R20.SCLB3H.H,DISP=SHR

//USERLIB   DD DSN=IBMUSER.NETDATA.H,DISP=SHR

//SYSLIN    DD DSN=IBMUSER.NETDATA.USERLANG.OBJ(USERLANG),DISP=SHR

//SYSPRINT  DD SYSOUT=*

//SYSCPRT   DD SYSOUT=*

//SYSTERM   DD DUMMY

//SYSUT1    DD DSN=&&SYSUT1;,UNIT=SYSALLDA,DISP=(NEW,PASS),

//          SPACE=(32000,(30,30)),

//          DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)

//SYSUT2    DD DSN=&&SYSUT2;,UNIT=SYSALLDA,DISP=(NEW,PASS),

//          SPACE=(32000,(30,30)),

//          DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)

//SYSUT3    DD DSN=&&SYSUT3;,UNIT=SYSALLDA,DISP=(NEW,PASS),

//          SPACE=(32000,(30,30)),

//          DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)

//SYSUT4    DD DSN=&&SYSUT4;,UNIT=SYSALLDA,DISP=(NEW,PASS),

//          SPACE=(32000,(30,30)),

//          DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)

//SYSUT5    DD DSN=&&SYSUT5;,UNIT=SYSALLDA,DISP=(NEW,PASS),

//          SPACE=(32000,(30,30)),

//          DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)

//SYSUT6    DD DSN=&&SYSUT6;,UNIT=SYSALLDA,DISP=(NEW,PASS),

//          SPACE=(32000,(30,30)),

//          DCB=(RECFM=FB,LRECL=3200,BLKSIZE=12800)

//SYSUT7    DD DSN=&&SYSUT7;,UNIT=SYSALLDA,DISP=(NEW,PASS),

//          SPACE=(32000,(30,30)),

//          DCB=(RECFM=FB,LRECL=3200,BLKSIZE=12800)

//SYSUT8    DD DSN=&&SYSUT8;,UNIT=SYSALLDA,DISP=(NEW,PASS),

//          SPACE=(32000,(30,30)),

//          DCB=(RECFM=FB,LRECL=3200,BLKSIZE=12800)

//SYSUT9    DD DSN=&&SYSUT9;,UNIT=SYSALLDA,DISP=(NEW,PASS),

//          SPACE=(32000,(30,30)),

//          DCB=(RECFM=VB,LRECL=137,BLKSIZE=882)

//SYSUT10   DD SYSOUT=*

//SYSUT14   DD DSN=&&SYSUT14;,UNIT=SYSALLDA,DISP=(NEW,PASS),

//          SPACE=(32000,(30,30)),

//          DCB=(RECFM=FB,LRECL=3200,BLKSIZE=12800)

//SYSUT15  DD  SYSOUT=*

//*

//**********************************************************************

//*  PRELINK STEP: C++ DLL     (USER-WRITTEN LE)                       *

//*                C/C++ FOR MVS/ESA COMPILER V3 R1.0                  *

//*                AD/CYCLE LE/370 V1 R7.0                             *

//**********************************************************************

//PLKED EXEC PGM=EDCPRLK,REGION=32M,COND=(0,NE,COMPILE),

//          PARM='MAP,UPCASE,MEMORY,DLLNAME(userdll)'

//STEPLIB   DD DSN=CEEV1R70.SCEERUN,DISP=SHR

//SYSMSGS   DD DSN=CEEV1R70.SCEEMSGP(EDCPMSGE),DISP=SHR

//SYSLIB    DD DSN=CEEV1R70.SCEECPP,DISP=SHR

//SYSMOD    DD DSN=IBMUSER.NETDATA.USERLANG.DLLP(PRLKUSER),

//             DISP=SHR

//OBJECT    DD DSN=IBMUSER.NETDATA.USERLANG.OBJ,DISP=SHR

//SYSOUT    DD SYSOUT=*

//SYSPRINT  DD SYSOUT=*

//SYSDEFSD  DD DSN=IBMUSER.NETDATA.USERLANG.DEFSD(USEREXP),

//             DISP=SHR

//SYSIN     DD DSN=IBMUSER.NETDATA.DEFSD(DTWLESHR),DISP=SHR

//          DD DSN=CBCV3R20.SCLB3SID(COMPLEX),DISP=SHR

//          DD DSN=CBCV3R20.SCLB3SID(APPSUPP),DISP=SHR

//          DD DSN=CBCV3R20.SCLB3SID(COLLECT),DISP=SHR

//          DD *

    INCLUDE OBJECT(USERLANG)

//*

//**********************************************************************

//*  LINK STEP: C++ DLL     (FFI LANGUAGE ENVIRONMENT)                 *

//*             C/C++ FOR MVS/ESA COMPILER V3 R2.0                     *

//*             AD/CYCLE LE/370 V1 R7.0                                *

//**********************************************************************

//LKED EXEC PGM=HEWL,REGION=2048K,COND=(4,LT,PLKED),

//          PARM='MAP,LIST,XREF,RENT,REUS,COMPAT=PM2'

//SYSLIB    DD DSN=CEEV1R70.SCEELKED,DISP=SHR

//SYSLIN    DD DSN=IBMUSER.NETDATA.USERLANG.DLLP(PRLKUSER),

//             DISP=SHR

//          DD *

            NAME USERDLL(R)

//SYSLMOD   DD DSN=IBMUSER.NETDATA.USERLANG.DLL,DISP=SHR

//SYSUT1    DD DSN=&&SYSUT1;,UNIT=SYSALLDA,DISP=(NEW,PASS),

//          SPACE=(32000,(30,30)),

//          DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)

//SYSPRINT  DD SYSOUT=*

//*

//**********************************************************************

//*  COPY STEP:  C++ DLL     (FFI LANGUAGE ENVIRONMENT)                *

//*              C/C++ FOR MVS/ESA COMPILER V3 R2.0                    *

//*              AD/CYCLE LE/370 V1 R7.0                               *

//**********************************************************************

//COPY EXEC PGM=IEWBLINK,REGION=500K,COND=(0,NE,LKED),

//          PARM='LIST,REUS,RENT,NCAL,LET,MAP,CASE=MIXED,COMPAT=PM2'

//SYSPRINT  DD SYSOUT=*

//INLIB     DD DSN=IBMUSER.NETDATA.USERLANG.DLL,DISP=SHR

//*

//SYSLMOD   DD PATH='/usr/lpp/netdata/cgi-bin',

//             PATHOPTS=(OWRONLY,OCREAT,OTRUNC),

//             PATHMODE=(SIRWXO,SIRWXG,SIRWXU)

//*

//SYSLIN    DD *

            INCLUDE INLIB(USERDLL)

            ENTRY CEESTART

            NAME userdll(R)

//*