ret = Socket('Initialize', 'RexxWhoo', 2)
parse var ret s_rc s_subtask s_maxdesc s_servicename socket_rc
If s_rc <> 0 then,
Do
say 'DNS-NAME: ERROR: Unable to Initiate SOCKET' s_rc
End
If I execute this function directly under TSO then the function works. Under
BBI it terminates with result code 1004: "1004 | EIBMIUCVERR | IUCV error".
Does anyone know what could cause this problem?
Thanks a lot in advance,
regards
Werner Nussbaumer
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
Marcus Davage CEng MBCS
IBM Certified Solutions Expert
DB2 UDB V7.1 Database Administration for UNIX, Linux, Windows and OS/2
DB2 UDB V7.1 Database Administration for OS/390
-----------------------------------------------------------------------------------------------------------------------
This e-mail is intended only for the above addressee. It may contain
privileged information. If you are not the addressee you must not copy,
distribute, disclose or use any of the information in it. If you have
received it in error please delete it and immediately notify the sender.
evolvebank.com is a division of Lloyds TSB Bank plc.
Lloyds TSB Bank plc, 71 Lombard Street, London EC3P 3BS. Registered in
England, number 2065. Telephone No: 020 7626 1500
Lloyds TSB Scotland plc, Henry Duncan House, 120 George Street,
Edinburgh EH2 4LH. Registered in Scotland, number 95237. Telephone
No: 0131 225 4555
Lloyds TSB Bank plc and Lloyds TSB Scotland plc are regulated by the
Financial Services Authority and represent only the Scottish Widows
and Lloyds TSB Marketing Group for life assurance, pensions and
investment business.
Signatories to the Banking Codes.
-----------------------------------------------------------------------------------------------------------------------
Regards
Werner Nussbaumer