WebService/WriteProc at main · Divya-Bala/WebService · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 **Free
        Ctl-Opt Option(*Nodebugio:*Srcstmt:*Nounref) ;
        Ctl-Opt DFTACTGRP(*NO) ACTGRP(*NEW) BNDDIR('DIVYABND') ;

          Dcl-pr writetoweb extproc('QtmhWrStout');
             Datavar     Char(65535) Options(*varsize);
             Datavarlen  Int(10) const;
             Errorcode   Char(8000) Options(*Varsize);
          End-Pr;

          Dcl-ds ErrorDs Qualified;
                     BytesProv Int(10) Inz(0);
                     BytesAvail Int(10) Inz(0);
          End-ds;

          Dcl-c CRLF const(x'0d25');
          Dcl-S w_DATA Char(5000);
          /COPY QSYSINC/QRPGLESRC,QUSEC

          w_DATA = 'Content-type:Text/html' + CRLF + CRLF;
          writetoweb(w_DATA:%len(%trim(w_DATA)):ErrorDs);

          w_DATA = 'Welcome to my Web Page!!' + CRLF;
          writetoweb(W_DATA:%len(%trim(W_DATA)):ErrorDs);

          W_DATA = 'Regards,Divya' + CRLF;
          writetoweb(w_DATA:%len(%trim(w_DATA)):ErrorDs);

          *inlr = *on ;