>Scenario -- Need to open the modem ldev, call a telephone number and send a message to a text pager at the other end....

The following works for us. BTW the hp3000 does all of our outbound dialing:) Also, have you looked at emailing? Many pagers come with an email
address that can be used to set them off.

Mike


:FILE DIALER;DEV=XXX

FILE-CONTROL.
SELECT MODEM-PORT ASSIGN TO 'DIALER'.
...
FD MODEM-PORT.
01 MODEM-RECORD PIC X(80).
...
OPEN OUTPUT MODEM-PORT.
...
WRITE MODEM-RECORD
PATH:  DTS.PROFILE.DIALER                                                      

Terminal type         [10]  (10, 18, or 24)               
   or terminal type file name [                          ]
Line speed         [1200 ]  (300, 1200, 2400, 4800, 9600, 19200, or 38400 bps)
Record width        [80  ]  (1... 2048 bytes)                                 
Modem type             [0]  (0 - none, 1 - US, 2 - EU, 3 - Five wires,
                             4 - US inout, 5 - EU inout)    
Modem behavior         [0]  (0 - none, 1 - DCE, 2 - DTE, 3 - DCE high)
Data length/Parity  [NONE]  (None, Odd, Even, 0's, 1's, 8eve, 8odd)
                                                                    
Number of stop bits    [1] (1/2)    Speed/Parity sensing?   [N] (Y/N)
Hardware handshaking?  [N] (Y/N)    Allow :HELLO logon?     [N] (Y/N)
Enable flow control?   [Y] (Y/N)    NLIO device?            [N] (Y/N)
Reset HP terminal?     [N] (Y/N)                                                
                                                                                
   Device class    [DIALER  ]  [        ]  [        ]  [        ]               
       names       [        ]  [        ]  [        ]  [        ]               
If additional names are required, press Go to CLASSES.       




----- Original Message ----- 
From: Brian Donaldson 
To: [log in to unmask] 
Sent: Thursday, February 13, 2003 10:25 AM
Subject: [HP3000-L] 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 *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *