RXS_GetStdIn()

This subprocedure is used to read data sent to you via HTTP POST into a field up to 16MB, or into an IFS STMF file.

This is typically used when you are offering a web service.

Subprocedure Prototype

     D RXS_GetStdIn...
     D                 PR                  Extproc('RXS_GetStdIn') Opdesc
     D                                     Like(RXS_Var16Mv_t)
     D                                     Rtnparm

Returns the data retrieved from STDIN.

 
     D   DS                                Likeds(RXS_GetStdInDS_t)
     D                                     Options(*Varsize:*Nopass)

Optional RXS_GetStdInDS_t data structure used to convert received data to a specified CCSID.

 

     D RXS_GetStdIn...
     D                 PR                  Extproc('RXS_GetStdIn') Opdesc
 

     D   Output                            Like(RXS_Var16Mv_t)
     D                                     Options(*Varsize)

Holds the data retrieved from STDIN.

 
     D   DS                                Likeds(RXS_GetStdInDS_t)
     D                                     Options(*Varsize:*Nopass)

Optional RXS_GetStdInDS_t data structure used to convert received data to a specified CCSID.

Example Code

      *--------------------------------------------------------------
      * This example code retrieves data from STDIN and stores it
      *  in the field gXmlRequest. 
      * This process might be used when offering a web service.
      *--------------------------------------------------------------
     H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*CALLER)

      /copy QRPGLECPY,RXSCB

     D gXmlRequest     S                   Like(RXS_Var64Kv_t)
      /free
       gXmlRequest = RXS_GetStdIn();

       *INLR = *ON;
      /end-free
      *--------------------------------------------------------------
      * This example code retrieves data from STDIN and stores it
      *  in the field gXmlRequest. 
      * This process might be used when offering a web service.
      *--------------------------------------------------------------
     H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*CALLER)

      /copy QRPGLECPY,RXSCB

     D gXmlRequest     S                   Like(RXS_Var64Kv_t)
      /free
       gXmlRequest = RXS_GetStdIn();

       *INLR = *ON;
      /end-free

Data Structures

     D RXS_GetStdInDS_t...
     D                 DS                  Qualified Template Inz
 

     D   ReturnedErrorInfo...
     D                                     LikeDS(RXS_ReturnedErrorInfoDS_t) Inz
 

     D   OnErrorMessageType...
     D                                5I 0
 

     D   Ccsid                       10I 0

Specifies the CCSID to convert the inbound data into.
View as Markdown