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:
  1.       //*******************************************************************************************
  2.       // @Author: Aaron Bartell
  3.       // @Descr: Test Apache POST
  4.       //*******************************************************************************************
  5.      H dftactgrp(*no) bnddir('RXSBND')
  6.  
  7.      D stdOut          pr                  extproc('QtmhWrStout')
  8.      D  Buffer                         *   value
  9.      D  BufferLength                 10i 0 const
  10.      D  error                              likeds(qusec)
  11.  
  12.      D data            S          65535A
  13.  
  14.      Dqusec            ds
  15.      D qusbprv                       10i 0 inz(%size(qusec))                    Bytes Provided
  16.      D qusbavl                       10i 0 inz(0)                               Bytes Available
  17.      D qusei                          7                                         Exception Id
  18.      D                                1                                         Reserved
  19.      D msgdata                      500
  20.  
  21.      D wrtDtaLen       S             10I 0
  22.       /free
  23.  
  24.        *inlr = *off;
  25.  
  26.        monitor;
  27.          data = 'Content-Type: text/xml' + x'1515' +
  28.          '<soap:Envelope '+
  29.          'xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">' +
  30.          '</soap:Envelope>';
  31.  
  32.          wrtDtaLen = %len(%trimr(data));
  33.          stdOut(%addr(data): wrtDtaLen: qusec);
  34.        on-error;
  35.          dsply 'Error occurred';
  36.        endmon;
  37.  
  38.        return;
  39.  
  40.       /end-free
© 2004-2019 by midrange.com generated in 0.011s valid xhtml & css