Rexx to know the Hostid of my mainframe

[parthiban]

Hi..,
i just tried to know the Hostid of my mainframe ..so i used following rexx syntax...

/*rexx*/
parse value socket("Gethostid") with s_rc
say 'the Hostid is' s_rc [/b]

Am getting following ERROR:

2005 ESUBTASKNOTACTIVE Subtask not active


Can any one help me....with proper syntax...

[MrSpock]

Where'd you initialize the socket?

My code looks like this:

Code: Select all

/* REXX */
Call Initiate_TCPIP_Services
Call Who_Am_I
Exit 0
 
Initiate_TCPIP_Services:
/* Initiate the Socket services */
returned_data = Socket('Initialize',Time(S))
Parse Var returned_data s_rc s_subtask s_maxdesc s_servicename
If s_rc = 0 Then Say s_servicename':'s_subtask' Initiated 's_maxdesc 'Sockets'
Return

Who_Am_I:
/* Find IP address of machine */
returned_data = Socket('GetHostId')
Parse Var returned_data s_rc s_results
Do While Length(s_results) > 0
  Parse Var s_results ip_address s_results
  Say 'My HOSTID(s) is/are 'ip_address
End
Return


[parthiban]

Hi..mrspock,

i tried your rexx example...Still i am getting error like this.......
Is there any problem in my server..or...anything else to do...pls guide me...

ERROR:

My HOSTID(s) is/are ESUBTASKNOTACTIVE
My HOSTID(s) is/are Subtask
My HOSTID(s) is/are not
***

[MrSpock]

Maybe a similar topic here might help?