RXS_STR()

This subprocedure should be used inside an RXS_Parse() 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   Pointer                       *   Const

Pointer containing character data parsed using an RXS_Parse() parsing subprocedure.

 
     D   PointerLen                  10I 0 Const

Length of the parsed character data contained in the Pointer parameter.

 

     D RXS_STR         PR                  Extproc('RXS_STR') Opdesc
 

     D   String                            Like(RXS_Var16Mv_t) Options(*Varsize)

The character data field extracted from the Pointer parameter.

 
     D   Pointer                       *   Const

Pointer containing character data parsed using an RXS_Parse() parsing subprocedure.

 
     D   PointerLen                  10I 0 Const

Length of the parsed character data contained in the Pointer parameter.

Example Code

      *--------------------------------------------------------------
      * 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
      *--------------------------------------------------------------
      * 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
       RXS_STR( gCelcius : pData : pDataLen );

       *INLR = *ON;
      /end-free
View as Markdown