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.cob
buildserver "-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)