XMXADDRD ;ISC-SF/GMB-Lookup Domain Name ;04/24/2002 10:36
Source file <XMXADDRD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DNS(XMDUZ,XMDOMAIN,XMVIA,XMVIAN) | ;
; XMDOMAIN - (in/out) Domain name. May be mixed case. Must already be ; in xxx.xxx.xxx format. ; XMVIA - (out) IEN of (relay) domain (in ^DIC(4.2)) ; XMVIAN - (out) Name of (relay) domain |
|
FORUM() | ; Is this FORUM or GATEWAY?
|
|
FINDDOMN | ; Look up domain
|
|
NEEDSUB(X) | ;
|
|
VIA(XMVIA,XMVIAREC,XMVIAN,XMDCIRCL) | ;
|
|
CHKDOM(XMDOM,XMMAXDOM,XMMAXDOT) | ;
|
|
LOOKSFX | ; Look for top level domain in internet suffix file
; Instead of looking in the file, we could call the COTS DNS, if it exists. |
|
CHKPRMIT(XMDUZ,XMVIAREC) | ;
|
|
CHKNAME | ; Input transform for .01 field of DOMAIN file 4.2
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DIC(4.2 - [#4.2] | Classic Fileman Calls, FIND1^DIC |
^DIC(4.2996 - [#4.2996] | Classic Fileman Calls, FIND1^DIC |