*DECK TXSMNVF
PROC TXSMNVF;
# TITLE TXSMNVF - SUPERVISORY MESSAGES FOR NVF. #
CONTROL STEXT;
BEGIN # TXSMNVF #
#
** TXSMNVF - SUPERVISORY MESSAGES FOR NVF.
*
* S. H. FISCHER. 81/08/05.
*
* THIS SYMPL TEXT PROVIDES THE SUPERVISORY MESSAGE DEFINITIONS
* NEEDED BY NVF WHEN COMMUNICATING WITH NIP.
*
* PROC TXSMNVF
*
#
DEF MSBFNVL # 100 #; # THIS IS ONE HALF OF MSGBUF IN TEXTSS #
DEF DTEASB$ # 32 #; # STARTING BIT ORDINAL WITHIN THE CR/IAP/N#
DEF DTEASW$ # 2 #; # STARTING WORD ORDINAL WITHIN THE CR/IAP #
# SM WHERE THE X25 DEPENDENT INFO AREA #
# STARTS. CAUTION----CHANGES TO THE CR/IAP#
# SM MAY REQUIRE CHANGE IN THIS FIELD #
*CALL SMDEF
COMMON BASMNVF;
BEGIN # BASMNVF #
BASED ARRAY NVFSM[00:01] S(MSBFNVL);
BEGIN
*CALL SMNVF
END
END #BASMNVF #
END # TXSMNVF #
TERM