This chapter provides instructions for running the simpapp sample applications delivered with BEA TUXEDO for OpenVMS. The other sample applications are documented in the Read Me file located in the sample applications directory.
This section provides a procedure for building, configuring, running, and shutting down a sample application based on Before you begin, make sure that:
simpapp
simapp (a sample application delivered with the BEA TUXEDO system).
TUXDIR is installed on DKA100:[TUXEDO].
simpcl and simpserv, respectively):
buildclient -o SIMPCL.EXE -f SIMPCL.C
SIMPCL.EXE.
SIMPCL:==$ DKA100:[TUXAPP]SIMPCL.EXE
UBBSIMPLE.
IPCKEY.
DKA100:[TUXAPP] to APPDIR.
DKA100:[TUXEDO] to TUXDIR.
UBBSIMPLE configuration file. A file named
DKA100:[TUXAPP]TUXCONFIG will be created.
$ tmloadcf -y UBBSIMPLE
$ tmboot -y
The simple client calls the $ simpcl abc
TOUPPER service and specifies input: the string abc. TOUPPER converts the string to upper case (ABC) and sends the new string to the client.
Keep in mind the following issues when using the simpapp sample application on an OpenVMS platform:
.cob instead of .cbl. The suffix for the name of a COBOL copy file is .cpy instead of .cbl.
/ansi_format parameter, as in
Use the cobol /ansi_format csimpcl.cob
buildclient and buildserver commands to build the COBOL client and server executables. Use double quotes around the -C option:
buildclient "-C" -v -o CSIMPCL.exe -f CSIMPCL.cobbuildserver "-C" -v -o CSIMPSRV.exe -s "CSIMPSRV" -f CSIMPSRV.cob -f TPSVRINIT.cob
SPECIAL-NAMES.
SYSERR IS STANDARD-ERR
ARGUMENT-VALUE IS COMMAND-LINE-ARGUMENT.COPY.
*
01 TPTYPE-REC.
COPY "TUX$COBINCLUDE:TPTYPE.CPY".
*
01 TPSTATUS-REC.
COPY "TUX$COBINCLUDE:TPSTATUS.CPY".
*
01 TPSVCDEF-REC.
COPY "TUX$COBINCLUDE:TPSVCDEF.CPY".
*
01 TPINFDEF-REC.
COPY "TUX$COBINCLUDE:TPINFDEF.CPY".TUX$COBINCLUDE is defined in tuxenv.com.
logmsg needs to be computed.
COMPUTE LOGMSG-LEN = FUNCTION LENGTH (LOGMSG)
COPY function.
01 TPSVCRET-REC.
COPY "tux$cobinclude:TPSVCRET.cpy".
*
01 TPTYPE-REC.
COPY "tux$cobinclude:TPTYPE.cpy".
*
01 TPSTATUS-REC.
COPY "tux$cobinclude:TPSTATUS.cpy".
*
01 TPSVCDEF-REC.
COPY "tux$cobinclude:TPSVCDEF.cpy".tux$cobinclude is defined in tuxenv.com.
LOGMSG and RECV-STRING need to be computed.
COMPUTE LOGMSG-LEN = FUNCTION LENGTH (LOGMSG)
COMPUTE LEN = FUNCTION LENGTH (RECV-STRING)csimpsrv.cob, use the following method to call TPRETURN.
COPY "tux$cobinclude:TPRETURN.cpy" REPLACING
DATA-REC BY RECV-STRING.tux$cobinclude is defined in tuxenv.com.
COPY.
COPY "TUX$COBINCLUDE:TPSTATUS.CPY"
COPY "TUX$COBINCLUDE:TPSTATUS.CPY"tux$cobinclude is defined in tuxenv.com.
LOGMSG needs to be computed.
COMPUTE LOGMSG-LEN = FUNCTION LENGTH (LOGMSG)