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.