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

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

* This example code writes the content of the field gXml to standard out.


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

  *INLR = *ON;

Data Structures

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.