HP3000-L Archives

February 2003, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
FOPENing serial port (was On Topic or Off Topic?)
From:
Rich Trapp <[log in to unmask]>
Reply To:
Rich Trapp <[log in to unmask]>
Date:
Thu, 13 Feb 2003 09:05:02 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (1 lines) 
Brian,

  Your first fopen (foptions=%454) is opening $NEWPASS. The second fopen (foptions=%414) is opening $STDLIST.  I think you missed posting the one fopening the file equation pointing to the port with the modem (unless you're redirecting STDLIST to the port?).

  I've used something like this to talk to serial ports before:

:file modem,new;dev=22;acc=inout

:fcopy from=;to=*modem

I used fcopy to play with the file equation  until I got it to open w/o  prompting for a reply on the console.

 

   

Rich

 

   

Rich Trapp <mailto:[log in to unmask]>  

Consulting for Agilent Technologies, Loveland, Colorado.

Managed Business Solutions <http://www.thinkmbs.com/>  

200 South College Avenue 

Fort Collins, Colorado 80524-2811 

970.679.2221 (voice) 

970.669.3071 (fax) 

 

-----Original Message-----

From: Brian Donaldson [mailto:[log in to unmask]]

Sent: Thursday, February 13, 2003 8:26 AM

To: [log in to unmask]

Subject: On Topic or Off Topic?



As there have been so many postings regarding war, politics etc it feels like

any postings regarding the HP3000 now would be an off topic discussion.

So, here's an "off topic" question -- any ASC gurus out there ?

Scenario -- Need to open the modem ldev, call a telephone number and send a

message to a text pager at the other end....

My Cobol source is as follows:

 working-storage section.

01  ws-file-name pic x(26).

01  ws-foptions  pic 9(04) comp.

01  ws-aoptions  pic 9(04) comp.

01  ws-rec-size   pic 9(04) comp.

01  ws-device      pic x(26).

Procedure division.

...

...

     MOVE SPACES           TO WS-FILE-NAME.

     MOVE %454                TO WS-FOPTIONS.

     MOVE %0                   TO WS-AOPTIONS.

     MOVE 105                   TO WS-DEVICE-N.

     MOVE -80                   TO WS-REC-SIZE.

*Fopen Stdinx

     CALL INTRINSIC "FOPEN" USING WS-FILE-NAME,

                                                        WS-FOPTIONS,

                                                        WS-AOPTIONS,

                                                        WS-REC-SIZE,

                                                        WS-DEVICE.

*Fopen $stdlist

     MOVE %414             TO WS-FOPTIONS.

     MOVE 1                TO WS-AOPTIONS.

     CALL INTRINSIC "FOPEN" USING WS-FILE-NAME,

                                                        WS-FOPTIONS,

                                                        WS-AOPTIONS,

                                                        WS-REC-SIZE,

                                                        WS-DEVICE.



Both fopens return cc = 0 but the ldev is not being opened. The ldev (105) is

configured as a modem device on the 2345 DTC, is in NMMGR and SYSGEN

correctly.

Any ideas, anybody?

Thank you,

Brian Donaldson.

* To join/leave the list, search archives, change list settings, *

* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2