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 *
|