midrange.com code scratchpad |
Name:
SIMPLECGI
|
Scriptlanguage:
Java
|
Tabwidth:
4
|
Date:
09/26/2008 11:54:11 am
|
IP:
Logged
|
|
Description:
Used for load testing Apache on AS400 with JMeter
|
Code:
-
-
-
-
- H dftactgrp(*no) bnddir('RXSBND')
-
- D stdOut pr extproc('QtmhWrStout')
- D Buffer * value
- D BufferLength 10i 0 const
- D error likeds(qusec)
-
- D data S 65535A
-
- Dqusec ds
- D qusbprv 10i 0 inz(%size(qusec)) Bytes Provided
- D qusbavl 10i 0 inz(0) Bytes Available
- D qusei 7 Exception Id
- D 1 Reserved
- D msgdata 500
-
- D wrtDtaLen S 10I 0
- /free
-
- *inlr = *off;
-
- monitor;
- data = 'Content-Type: text/xml' + x'1515' +
- '<soap:Envelope '+
- 'xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">' +
- '</soap:Envelope>';
-
- wrtDtaLen = %len(%trimr(data));
- stdOut(%addr(data): wrtDtaLen: qusec);
- on-error;
- dsply 'Error occurred';
- endmon;
-
- return;
-
- /end-free
|
|
|