SNAX/CNM Manual

SAMPLE PROGRAM: SENDING AND RECEIVING NMVT RUS
Literal
! CONFIG (CS) function codes (verbs from application)
Cs^Verb^Accept = 1, ! VERB^ACCEPT
Cs^Verb^Status = 2, ! VERB^STATUS
Cs^Verb^Statistics = 3, ! VERB^STATISTICS
Cs^Verb^Set^Limits = 4, ! VERB^SET^STATISTICS^LIMITS
! CONFIG (CS) function codes (replies from $SSCP)
Cs^Reply^Event = 1, ! EVENT
Cs^Reply^Status = 2, ! REPLY^STATUS
Cs^Reply^Statistics = 3, ! REPLY^STATISTICS
Cs^Reply^Setlimits = 4; ! REPLY^SET^STATISTICS^LIMITS
Literal
! CNM function codes (verbs from application)
Nm^Verb^Accept = 1, ! VERB^ACCEPT
Nm^Verb^Send^MS = 2, ! SEND NMVT REPLY
Nm^Verb^Ack^Rcv^Req = 3, ! ACKNOWLEDGE NMVT REQ
Nm^Verb^Send^Req = 4, ! SEND NMVT REQ TO PU
Nm^Verb^Ack^Rcv^Ms = 5, ! ACKNOWLEDGE NMVT REPLY
! CNM function codes (replies from $SSCP)
Nm^Rcv^Req = 1, ! PASSES NMVT REQ TO APPL
Nm^Reply^Send^Ms = 2, ! PASSES RSP (NMVT) TO APPL
Nm^Rcv^Ms = 3, ! DELIVERS NMVT REPLY TO APPL
Nm^Reply^Send^Req = 4; ! DELIVERS RSP (NMVT REPLY)
! TO APPL
Literal
Line^Sts^Length = (33 + 1) '<' 1;
?nolist
?source $system.System.Extdecs
?list
Proc Cnmappl Main;
Begin
! Open $SSCP.#Cnmappl (The appl is the name of the appl
! added via CMI)
Call Open(Out^File^Name,Out^File^Number,10);
If < Then
Begin
! Handle Error
End;
! do a Setmode 30
B-4