SNAX/CNM Manual

SAMPLE PROGRAM: SENDING REQMS AND RECEIVING RECFMS RUS
! 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 RECFMS
Nm^Verb^Ack^Rcv^Req = 3, ! ACKNOWLEDGE REQMS
Nm^Verb^Send^Req = 4, ! SEND REQMS TO PU
Nm^Verb^Ack^Rcv^Ms = 5, ! ACKNOWLEDGE RECFMS
! CNM function codes (replies from $SSCP)
Nm^Rcv^Req = 1, ! PASSES REQMS TO APPL
Nm^Reply^Send^Ms = 2, ! PASSES RSP (RECFMS) TO APPL
Nm^Rcv^Ms = 3, ! DELIVERS RECFMS TO APPL
Nm^Reply^Send^Req = 4; ! DELIVERS RSP (RECFMS) 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
Call Setmode(Out^File^Number,30,1);
A-4