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
Copyrpgle |
Returns the data retrieved from STDIN unless a STMF was specified in a RXS_GetStdInDS_t data structure passed in the DS parameter. |
Copyrpgle |
Optional RXS_GetStdInDS_t data structure used to convert received data to a specified CCSID. |
Copyrpgle |
|
Copyrpgle |
Holds the data retrieved from STDIN. |
Copyrpgle |
Optional RXS_GetStdInDS_t data structure used to convert received data to a specified CCSID. |
Example Code
Copyrpgle*--------------------------------------------------------------
* This example code retrieves data from standard in 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
Copyrpgle*--------------------------------------------------------------
* This example code retrieves data from STDIN and write it
* to the specified IFS file.
* This process might be used when offering a web service.
*--------------------------------------------------------------
H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*CALLER)
/define RXSV6R1
/copy QRPGLECPY,RXSCB
D GetStdInDS DS LikeDS(RXS_GetStdInDS_t)
/free
RXS_ResetDS( GetStdInDS : RXS_DS_TYPE_GETSTDIN );
GetStdInDS.Stmf = '/tmp/over16mb.xml';
RXS_GetStdIn(GetStdInDS);
*INLR = *ON;
/end-free
Copyrpgle*--------------------------------------------------------------
* This example code retrieves data from standard in 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
RXS_GetStdIn( gXmlRequest );
*INLR = *ON;
/end-free
Copyrpgle*--------------------------------------------------------------
* This example code retrieves data from STDIN and write it
* to the specified IFS file.
* This process might be used when offering a web service.
*--------------------------------------------------------------
H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*CALLER)
/define RXSV6R1
/copy QRPGLECPY,RXSCB
D GetStdInDS DS LikeDS(RXS_GetStdInDS_t)
/free
RXS_ResetDS( GetStdInDS : RXS_DS_TYPE_GETSTDIN );
GetStdInDS.Stmf = '/tmp/over16mb.xml';
RXS_GetStdIn(GetStdInDS);
*INLR = *ON;
/end-free
Data Structures
Copyrpgle |
|
Copyrpgle |
|
Copyrpgle |
|
Copyrpgle |
|
Copyrpgle |
Specifies the CCSID to convert the inbound data into. |
Copyrpgle |
Specifies the STMF to load with the contents of STDIN. |