6100 BSC Programming Manual

BSC Example
?PAGE "COMMUNICATIONS ERROR MESSAGE PROCEDURE - CLIP^STATUS^HANDLER"
!*******************************************************************
!
! This PROC is used for error handling. In this example, a two line
! message is displayed on the screen and no retry is atempted. The
! first line is the status error returned in the response from the
! clip, and the second is the status detail.
! FILE ERRORS are handled by .....
!
!*******************************************************************
PROC CLIP^STATUS^HANDLER(BUFFER);STRING .BUFFER;
BEGIN
INT status^detail;
STRING status, detail = status^detail;
INT .Ibuffer := @buffer '>>' 1;
LITERAL
error^message^length = 56;
STRING
.SP, ! String pointer.
.error^numbers[0:21] := [ 0, 22, 122, 140, 160, 161, 162, 163, 164,
165, 166, 167, 168, 169, 170, 171, 172, 173, 175, 177, 190],
ERROR^MESSAGE = 'P' := [
!0 ! "0: NO ERROR OR NOT A COMM ERROR ",
!1 ! "22 : INVALID PARAMETER ",
!2 ! "122: REQUEST WAS ABORTED ",
!3 ! "140: MODEM ERROR ",
!4 ! "160: REQUEST INVALID FOR LINE STATE ",
!5 ! "161: IMPOSSIBLE EVENT OCCURRED FOR LINE STATE ",
!6 ! "162: OPERATION TIMED OUT ",
!7 ! "163: EOT RECEIVED ",
!8 ! "164: DISCONNECT RECEIVED ",
!9 ! "165: RVI RECEIVED ",
!10! "166: ENQ RECEIVED ON LINE BID ",
!11! "167: EOT RECEIVED ON LINE BID ",
!12! "168: NAK RECEIVED ON LINE BID ",
!13! "169: WACK RECEIVED ON LINE BID ",
!14! "170: TRANSMISSION ERROR ",
!15! "171: NO RESPONSE TO LINE BID ",
!16! "172: REPLY NOT PROPER FOR PROTOCOL ",
!17! "173: TRANSMISSION ERROR ",
!18! "175: INCORRECT ALTERNATING ACK ",
!19! "177: TEXT OVERRUN ",
!20! "190: CLIP SOFTWARE ERROR "];
STRING ! 2ND LINE, DETAIL STATUS INFO
! FOR ERROR 22.
.SP22, ! String pointer.
B-9