6100 MPS-B Programming Manual

6100 MPS-B PROGRAMMING EXAMPLE
DEFINE status = req^buff.modifier#,
rfunction = req^buff.function#,
rmodifier = req^buff.modifier#,
textin = req^buff.text^in#,
textout = req^buff.text^out#,
start^of^msg = req^buff.text[5]#;
! NOTE: start^of^msg points to the first text character
! following the SOH or STX in an incoming message
! received from a terminal.
?NOLIST
?SOURCE $SYSTEM.SYSTEM.EXTDECS (ABEND, CLOSE, CONTIME, FILEINFO,
? MYTERM, NUMOUT, OPEN, READUPDATE, REPLY, TIMESTAMP,
? WRITE, WRITEREAD)
?LIST
?PAGE "PROCEDURE: ERROR^EXIT"
PROC error^exit;
BEGIN
CALL CLOSE (linefnum);
CALL CLOSE (recvfnum);
CALL CLOSE (termfnum);
CALL ABEND;
END; ! of error^exit.
B-6