6100 MPS-B Programming Manual

6100 MPS-B PROGRAMMING EXAMPLE
?PAGE "PROCEDURE: SEND^REQUEST"
INT PROC send^request;
BEGIN
LITERAL cp^6100^error = 53,
req^header = 8;
INT .ireq^buff,
line^write^count,
retry^count := 0;
STRUCT .save^req^buff; ! Save buffer structure
BEGIN
STRING function,
modifier;
INT req^id,
text^out,
text^in;
STRING text [0:1923];
END;
DEFINE reqid = req^buff.req^id#;
file^error := 0;
reqid := (reqid LAND %37777) + 1;
@ireq^buff := @req^buff;
line^write^count := req^header + textout;
save^req^buff ’:=’ req^buff for $LEN(save^req^buff);
! NOTE: A copy of the request buffer must be saved because
! the WRITEREAD request should always be retried with a
! "fresh" copy of the initial request buffer.
B-8