Page History
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.