Control Language (CL) source code is provided below for a CL application that executes the supplied EXAMPLE_OUTPARMS1 Processing Sequence and then receives the values of the two output parameters:
PGM
DCL VAR(&TP_ACTIVE) TYPE(*CHAR) LEN(256)
DCL VAR(&TP_UNCLASS) TYPE(*CHAR) LEN(256)
COMPOSER REQUEST(RUN) PSEQ(EXAMPLE_OUTPARMS1)
RTVLCRUN RUNNBR(*PRV) OUPNAM(TP_ACTIVE) +
RTNOUPVAL(&TP_ACTIVE)
RTVLCRUN RUNNBR(*PRV) OUPNAM(TP_UNCLASSIFIED) +
RTNOUPVAL(&TP_UNCLASS)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Active: ' *CAT &TP_ACTIVE)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Unclassified: ' *CAT &TP_UNCLASS)
ENDPGM
The Processing Sequence EXAMPLE_OUTPARMS1 is supplied with LANSA Composer. Refer to Processing Sequences for information on installing and using the example Processing Sequences. Refer to the notes attached to the EXAMPLE_OUTPARMS1 Processing Sequence for information on using the example.