Routine: XTHC10

Name	Comments	DBIA/ICR reference
ERROR(ENUM,PARAM)	;Expand error
ETRAP	;Catch a runtime error
GETURL(URL,XT8FLG,XT8RDAT,XT8RHDR,XT8SDAT,XT8SHDR,REDIR)	;	ICR #5515 Status: Withdrawn Usage: Supported
1	;;-1^Missing host name.
3	;;-1^Cannot connect to host.
2	;;-1^Cannot resolve the host name: \|.
5	;;-1^Too many redirections.
4	;;-1^Missing redirection URL.
7	;;-1^Time Out.
6	;;-6^Run Time Error.

Name	Line Occurrences
$$ERROR	GETURL+13, GETURL+25, GETURL+44, GETURL+47
$$GETURL	GETURL+49

Name	Field # of Occurrence
EC	ETRAP+1~
ENUM	ERROR~
HOST	GETURL+1~, GETURL+10, GETURL+13, GETURL+15, GETURL+19, GETURL+20
I	GETURL+1~, GETURL+10, GETURL+17, GETURL+18, GETURL+19, GETURL+23, GETURL+42*, GETURL+43
IO	GETURL+3~
IO(0	GETURL+8
IP	GETURL+1~, GETURL+23*, GETURL+24
IPADDR	GETURL+1~, GETURL+13, GETURL+15, GETURL+20, GETURL+23, GETURL+25
MSG	ERROR+1~, ERROR+2*, ERROR+3
PARAM	ERROR~, ERROR+2
PATH	GETURL+1~, GETURL+10, GETURL+34
POP	GETURL+3~, GETURL+23, GETURL+25
PORT	GETURL+1~, GETURL+10, GETURL+24
REDIR	GETURL~, GETURL+44, GETURL+49
RQS	GETURL+1~, GETURL+34*, GETURL+35, GETURL+43, GETURL+48
STATUS	GETURL+1~, GETURL+35, GETURL+36, GETURL+42, GETURL+44, GETURL+47, GETURL+49, GETURL+53, GETURL+54, ETRAP+3*
STATUS("ERROR"	GETURL+53, ETRAP+2*
URL	GETURL~, GETURL+10, GETURL+45*, GETURL+47, GETURL+49
X	GETURL+1~
XT8FLG	GETURL~, GETURL+5*, GETURL+24, GETURL+36, GETURL+49
XT8RDAT	GETURL~, GETURL+36, GETURL+49
XT8RHDR	GETURL~, GETURL+36, GETURL+49
XT8RHDR("LOCATION"	GETURL+45
XT8SDAT	GETURL~, GETURL+34, GETURL+48~, GETURL+49
XT8SHDR	GETURL~, GETURL+34, GETURL+49
XT8SHDR(	GETURL+18
XT8SHDR("Host"	GETURL+19*

Information