RXS_STR()

This subprocedure should be used inside an RXS_Parse() or RXS_ParseJson() parsing subprocedure to convert the parsed data pointer into a character data field.

Subprocedure Prototype

`D RXS_STR PR Extproc('RXS_STR') Opdesc D Like(RXS_Var16Mv_t) Rtnparm`	Returns the character data field extracted from the Pointer parameter.
`D pPointer * Const`	Pointer containing character data parsed using an RXS_Parse() parsing subprocedure.
`D pPointerLength... D 10I 0 Const`	Length of the parsed character data contained in the Pointer parameter.

Example Code

Example 1


*--------------------------------------------------------------
* This example code converts the contents of the pData pointer to character
*  data and stores it in the field gCelcius.
* This process may be used in a RXS_Parse() parsing subprocedure to convert data
*  retrieved from an XML element to character data for further processing.
*--------------------------------------------------------------
H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*CALLER)

 /copy QRPGLECPY,RXSCB

D gCelcius        S              5A   Varying
D pData                           *   Value
D pDataLen                      10I 0 Value
 /free
  gCelsius = RXS_STR( pData : pDataLen );

  *INLR = *ON;
 /end-free