From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CUNYVM.CUNY.EDU::POSTMASTER%YMIR.BITNET" 17-MAY-1989 19:38
To:	MRGATE::"ARISIA::EVERHART"
Subj:	LAT port troubles for alternate phone numbers

Resent-From: @CUNYVM.CUNY.EDU:postmaster@YMIR.BITNET
Received: from YMIR.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP R1.1) with BSMTP id 9504; Wed, 17 May 89 16:56:06 EDT
Date: Wed, 17 May 89 16:25 +8:00
Errors-To: postmaster@YMIR.BITNET
From: "Ian Hill, Programmer/Analyst"
 <@MUDDCS.CLAREMONT.EDU:munnari!acad.cut.oz.au!CHILL@uunet.UU.NET>
Message-Id: <8905171220.AA16381@uniwa.uwa.oz>
Received: from CUNYVM.BITNET by YMIR.BITNET; Wed, 17 May 89 12:13 PDT
Received: from CUNYVM by CUNYVM.BITNET (Mailer R2.01) with BSMTP id 7498; Wed,
 17 May 89 14:52:40 EDT
Received: from uunet.UU.NET by CUNYVM.CUNY.EDU (IBM VM SMTP R1.1) with TCP;
 Wed, 17 May 89 14:52:22 EDT
Received: from munnari.UUCP by uunet.UU.NET (5.61/1.14) with UUCP id AA06337;
 Wed, 17 May 89 14:52:17 -0400
Received: from acad.cut.oz (via uniwa) by munnari.oz with SunIII (5.5) id
 AA25437; Wed, 17 May 89 22:20:33 EST (from CHILL@acad.cut.oz for
 uunet!ipmdf@ymir.BITNET)
Received: by uniwa.uwa.oz with Phonenet (1.2) id AA16381; Wed, 17 May 89
 20:20:46 wst
Resent-Date: Wed, 17 May 89 12:52 PDT
Resent-Message-Id: <B1D349AE295F001D4D@YMIR.BITNET>
Resent-To: INFO-PMDF-LIST2@YMIR.BITNET
Subject: LAT port troubles for alternate phone numbers
To: ipmdf%ymir.BITNET@cunyvm.cuny.edu
X-Vms-To: in::"ipmdf@ymir.bitnet"

Path: vax7!chill
From: chill@acad.cut.oz (Ian Hill, Programmer/Analyst)
Newsgroups: comp.mail.pmdf
Subject: LAT port troubles for alternate phone numbers
Message-ID: <182@acad.cut.oz>
Date: 17 May 89 16:32:03 AWST
Organization: Curtin University of Technology
Lines: 72

We currently dialout thru a LAT port which is connected to a Hayes-compatible
modem on out VAX 3600 running VMS 4.7 and PMDF v3.0. I use a little
mickey-mouse program to assign the LAT port to the PMDF batch job (using
the program shown below (I know its tacky but it works!):

    implicit integer (a-z)
    integer*4 status,ip_code
    integer*2 input_chan
    include '($iodef)'
c    PARAMETER IO$m_lt_connect = '00000040'X    !undefined in $iodef as yet

    structure /iostat_block/
        integer*2 iostat,rcode,res1,res2    !ret status
    end structure

    record /iostat_block/iosb

    integer*4 sys$assign,sys$qiow
    character*6 device
    input_chan=1
    type 4
4    format(' Enter LAT device name: ',$)
    accept 5,device
5    format(a6)
    status=sys$assign(device,input_chan,,)
    if(.not.status) call lib$signal(%val(status))

    ip_code=io$_tty_port.or.io$m_lt_connect
    status=sys$qiow(,%val(input_chan),
    1    %val(ip_code),
    1    iosb,,,,,,,,)
    if(.not.status) call lib$signal(%val(status))
    if(.not. iosb.iostat)     call lib$signal(%val(iosb.iostat))
    type 10,status,iosb.rcode,iosb.iostat
10    format(1x,3i)
    end
------------------------------------------------------------------------
Up until now, I've only ever dialled out to one number, so there's been
no problem.

Yesterday I tried to add a bit of fail-safe by giving PMDF two different
target phone numbers to dial into on the ACSnet host machine. I did this
using the procedures described on pp IV-5 to IV-7 of the PMDF manual.

The result was that PMDF could never successfully make a connection.
Scratched my head over this one. Turns out that for some reason, the LAT
port fails the test for ownership/shared-device which is built into the
section of MASTER.COM which deals with alternate target phone numbers.

Once I'd commented out these 3 lines, it worked fine. I presume the lines
are trying to figure out whether someone else has the modem, but it looks like
you can't do this test with LAT.

************
File PMDF_ROOT:[EXE]MASTER.COM;124
  100   $!$ if (f$getdvi("tt:","pid") .nes. f$getjpi(0,"pid")) .and. -
  101   $!     (f$getdvi("tt:","shr") .eqs. "FALSE") then -
  102   $!    goto list_loop
  103   $ !
******
File PMDF_ROOT:[EXE]MASTER.COM;123
  100   $ if (f$getdvi("tt:","pid") .nes. f$getjpi(0,"pid")) .and. -
  101        (f$getdvi("tt:","shr") .eqs. "FALSE") then -
  102       goto list_loop
  103   $ !
************

Number of difference sections found: 1
Number of difference records found: 3

Ian Hill
Curtin University of Technology
