Retro1.org codex

*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