SNAX/CNM Manual

SAMPLE PROGRAM: SENDING REQMS AND RECEIVING RECFMS RUS
Int
Write^Cnt,
Read^Cnt,
.Out^File^Name[0:11] := ["$SSCP #CNMAPPL "],
Out^File^Number,
Save^Connect^Id;
Int(32)
Tag,
Temp^Tag;
Literal
! object types 0=any or all, used with CONNECT,ACCEPT,
! DISCONNECT
Pi^Sscp = 1, ! object type: SSCP
Pi^Appl = 7, ! object type: APPL
Pi^Lu = 14, ! object type: LU
Pi^Pu = 15, ! object type: PU
Pi^Line = 8; ! object type: LINE
string
! (Rh + Ru)
! these are hard-coded examples of the REQMS/RECFMS requests and
! responses. The application would actually either build those
! RUs or pass ones actually received.
!11 Bytes:
Reqms02 = 'P' := [%h0b,%h80,%h00,%h41,
%h03,%h04,%h00,%h00,%h00,%h01,%h82],
!10 Bytes:
Reqmsneg2 = 'P' := [%h8f,%h90,%h00,%h10,%h03,%h00,%h00,
%h41,%h03,%h04],
!6 Bytes:
Reqmspos2 = 'P' := [%h8b,%h80,%h00,%h41,%h03,%h04],
!26 Bytes:
Recfms02 = 'P' := [%h0b,%h80,%h00,%h41,%h03,%h84,%h00,%h00,
%h00,%h01,%h82,%h01,%h80,%h43,%h68,%h00,
%h00,%he0,%h00,%h00,%h00,%h00,%h00,%h1b,
%h00,%h02],
!6 Bytes:
Recfmspos2 = 'P' := [%h8b,%h80,%h00,%h41,%h03,%h84];
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
A-3