Envoy Application Programming Manual
Table Of Contents
- What’s New in This Manual
- About This Manual
- 1 Application Programming With Envoy
- 7 ADM-2 Multipoint Supervisor Protocol
- 8 TINET Multipoint Supervisor Protocol
- 9 Burroughs Point-To-Point Protocol
- 10 Asynchronous Line Supervisor Protocol
- A ASCII Character Set
- B ASCII to EBCDIC Code Conversion
- C File-System Procedures
- D Statistics Messages
- E S-Series Changes to Envoy
- NonStop™ Himalaya S-Series Server Architecture
- G-Series Migration Considerations
- CBSENSEON and CFSENSEON Modifiers
- LEOTRESYN and NOLEOTRESYN Modifiers
- Treatment of Characters After the Termination Character
- Number of SYN Characters
- DTR Drop
- Reporting of Parity Error
- Half-Duplex Support for Asynchronous Lines
- Controller Replacement
- SYSGEN and COUP
- Unit Numbers
- FDX Line Changes
- No Support for Auto-Call Unit
- Glossary
- Index
Asynchronous Line Supervisor Protocol
Envoy Application Programming Manual—427159-001
10-24
Read-Only Programming Examples
Example 10-6. Read-Only Programming Example (Page 2 of 2)
t^count := 75; ! set timeout value 750 ms.
CALL SETMODE (rlineno,set^tmout,t^count);
t^count := full^plex + r^continuous; ! set line type read
! only.
CALL SETMODE(RLINENO,SET^LTYPE,T^COUNT);
next^rec:
CALL READ (rlineno,buffer,80,t^count);
! read from line.
IF < THEN GOTO next^rec;
rpbuff[t^count + 1] := CR;
! set printer CR/LF.
rpbuff[t^count + 2] := LF;
repeat^w:
CALL WRITE (plineno,buffer + 1,t^count);
! pass over MCW.
IF < THEN GOTO repeat^w;
IF NOT buffer[1] = cancan THEN GOTO next^rec;
! terminate on receive cancan.
CALL CLOSE (rlineno);
stop^rfail:
CALL CLOSE (plineno);
stop^pfail:
END;