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.