Re: Error socket

Good morning.
I am creating a client socket and do not manage to read the
inputStreamReader.

Even the line "Eval String3 = readIb(ib)" works perfectly.

Some solution?? Thank you.

IBUFFERED
d newBUFFERED PR O ExtProc(*JAVA:
d 'java.io.BufferedReader':
d *CONSTRUCTOR)
d
Class(*JAVA:'java.io.BufferedReader')
d ib O
d Class(*JAVA:'java.io.Reader')
**********************************************************************
d readIb PR O ExtProc(*JAVA:
d 'java.io.BufferedReader':
d 'read')
d Class(*JAVA:'java.lang.String')
**********************************************************************
d readIbLine PR O ExtProc(*JAVA:
d 'java.io.BufferedReader':
d 'readLine')
d Class(*JAVA:'java.lang.String')
**********************************************************************
d closeIB PR ExtProc(*JAVA:
d 'java.io.BufferedReader':
d 'close')

*********************************************************************



PROGRAM

h DftActGrp(*NO) ActGrp(*CALLER)
h thread(*serialize)
/Copy *libl/QRPGLESRC,MATHPR
/Copy *libl/QRPGLESRC,SOCKPR
/Copy *libl/QRPGLESRC,OSTREAMPR
/Copy *libl/QRPGLESRC,ISTREAMPR
/Copy *libl/QRPGLESRC,IBUFFERED
/Copy *libl/QRPGLESRC,ISTREAMBF
d IPadr c Const('10.232.1.40')
d Messa c Const('253')
d Port s 10I 0
*
d tmpIS s O
d
Class(*JAVA:'java.io.InputStream')
d tmpISR s O
d Class(*JAVA:'java.io.Input +
d
StreamReader')
d tmpOS s O
d
Class(*JAVA:'java.io.OutputStream')
d tmpBR s O
d
Class(*JAVA:'java.io.BufferedReader')
d string1 s O
d Class(*JAVA:'java.lang.String')
d string2 s O
d Class(*JAVA:'java.lang.String')
d string3 s O
d Class(*JAVA:'java.lang.String')
d Byte0 s O
d Class(*JAVA:'java.lang.Byte')
d Byte1 s O
d Class(*JAVA:'java.lang.Byte')
d Byte2 s O
d Class(*JAVA:'java.lang.Byte')
d ByteSend s O
d Class(*JAVA:'java.lang.Byte')
d Sum s O
d
Class(*JAVA:'java.math.BigDecimal')
d BigD1 s O
d
Class(*JAVA:'java.math.BigDecimal')
d BigD2 s O
d
Class(*JAVA:'java.math.BigDecimal')
d StringSum s O
d Class(*JAVA:'java.lang.String')
d Integer s O
d Class(*JAVA:'java.lang.Integer')
d Char s O
d
Class(*JAVA:'java.lang.Character')
d Display s 30A Varying
****************************
d Sock1 s O
d Class(*JAVA:'java.net.Socket')
*
d is s O Class(*JAVA:
d 'java.io.InputDataStream')
*
d ids s O Class(*JAVA:
d 'java.io.InputDataStream')
*
d os s O Class(*JAVA:
d 'java.io.OutputDataStream')
*
d ir s O Class(*JAVA:
d 'java.io.BufferedReader')
*
d ib s O Class(*JAVA:
d 'java.io.Reader')
*
d isb s O Class(*JAVA:
d 'java.io.InputStreamReader')
*
****************************
c Eval String1 = newString(IPadr)
c Eval String2 = newString(Messa)
c Z-add 10001 Port
c Eval Sock1 = newSocket(String1 : Port)
c* Eval Display = getBytes(String2)
*
*/free
* monitor;
* tmpOS=getOutput(Sock1);
* tmpBR=getInput(Sock1);
* os=newOSTREAM(tmpOS);
* writeBytes(os : String2);
* ib=newINSTREAMBF(tmpBR);
* ir=newBUFFERED(ib);
* on-error *all;
* endmon;
*/end-free
*
c* Display Dsply
*
c Eval tmpOS=getOutput(Sock1)
c Eval tmpIS=getInput(Sock1)
c Eval os=newOSTREAM(tmpOS)
c CallP writeBytes(os : String2)
c Eval isb=newINSTREAMBF(tmpIS)
c Eval ib=newBUFFERED(isb)
*
c Eval String3 = readIb(ib)
c Eval Display = getBytes(String3)
c Display Dsply
*
c CallP closeOS(os)
c CallP closeIB(ib)
c CallP closeSocket(Sock1)
c Eval *InLr = *On
--
This is the Java Programming on and around the IBM i (JAVA400-L) mailing
list
To post a message email: JAVA400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/java400-l
or email: JAVA400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/java400-l.