RTVLCRUN Command Examples

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.