SNAX/CNM Manual

SAMPLE PROGRAM: SENDING REQMS AND RECEIVING RECFMS RUS
! check the file-system/CNM reply
Call Awaitio(Out^File^Number,,Read^Cnt,Temp^Tag);
If <> Then
Begin
! Handle Error
End;
If Nm^Frame.Vr^Indicator. 8:15 = 1 Then
Begin
! Handle Error
End;
If Nm^Frame.Comp^Func. 8:15 <> Nm^Reply^Send^Req Then
Begin
! Handle Error
End;
! receive RECFMS
Nm^Frame.Vr^Indicator := 0;
Nm^Frame.Comp^Func. 0:7 := 2; !component cnm
Nm^Frame.Comp^Func. 8:15 := Nm^Verb^Accept;
Write^Cnt := 34;
Read^Cnt := (34 + 26 + 6 ); !nm^Header + Rh_ru + Th
Tag := Tag + 1d;
Call Writeread(Out^File^Number,Nm^Frame,Write^Cnt,
Read^Cnt,,Tag);
! check the file-system/CNM reply
Call Awaitio(Out^File^Number,,Read^Cnt,Temp^Tag);
If <> Then
Begin
! Handle Error
End;
If Nm^Frame.Vr^Indicator. 8:15 = 1 Then
Begin
! Handle Negative Reply
End;
If Nm^Frame.Comp^Func. 8:15 <> Nm^Rcv^Ms Then
Begin
! Handle Error
End;
A-6