RXS_PutStdOut()

This subprocedure is used to output (to standard out) data. Typically, this would be used in a scenario where you are providing a webservice, and would be used to output XML retrieved via RXS_GetComposeBuffer().

Subprocedure Prototype

IBM i 6.1+

     D RXS_PutStdOut...
     D                 PR                  Extproc('RXS_PutStdOut')

     D   Input                             Like(RXS_Var16Mv_t)
     D                                     Options(*Varsize) Const

Data to be written to "standard out", i.e. to a web browser or to a web service which initiated the incoming request as a client.

     D   pDS                               Like(RXS_Var64K_t)
     D                                     Options(*Varsize:*Nopass)

Optional RXS_PutStdOutDS_t to allow for CCSID conversion during output.

Example Code

IBM i 6.1+

Example 1
Example 2

      *--------------------------------------------------------------
      * This example code writes the content of the field gXml to standard out.
      *--------------------------------------------------------------
     H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*CALLER)

      /copy QRPGLECPY,RXSCB

     D gXML            S                   Like(RXS_Var1Kv_t)
      /free
       gXml = '<element>Example XML</element>';
       RXS_PutStdOut( gXml );

       *INLR = *ON;
      /end-free

      *--------------------------------------------------------------
      * This example code converts the content of the gXml field to UTF-8,
      *  then sends the data to standard out.
      *--------------------------------------------------------------
     H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*CALLER)

      /copy QRPGLECPY,RXSCB

     D putStdOutDS     DS                  LikeDS(RXS_PutStdOutDS_t)
     D                                     Inz(*Likeds) 

     D gXML            S                   Like(RXS_Var1Kv_t)
      /free
       reset PutStdOutDS;

       gXml = '<element>Example XML</element>';
       
       PutStdOutDS.CCSID = RXS_CCSID_UTF8;
       RXS_PutStdOut( gXml : PutStdOutDS );

       *INLR = *ON;
      /end-free

Data Structures

RXS_PutStdOutDS_t

`D RXS_PutStdOutDS_t... D DS Qualified Template Inz`
`D ReturnedErrorInfo... D LikeDS(RXS_ReturnedErrorInfoDS_t) Inz`
`D OnErrorMessageType... D 10I 0`
`D Ccsid 10I 0`	The contents of the Input parameter are converted from the job CCSID to this CCSID before being sent to standard out.