*COMDECK  TMSGNVF 
#     TMSGNVF - MESSAGES FOR TERMINAL USER.  #
CONTROL NOLIST; 
  
# 
**    TMSGNVF - MESSAGES FOR TERMINAL USER. 
* 
*     TMSGNVF CONTAINS ALL MESSAGES USED BY NVF FOR USER LOGIN, LOGOUT, 
*     AND APPLICATION SELECTION.  SOME OF THESE MESSAGES CONTAIN DOLLAR 
*     SIGNS.  AT INITIALIZATION TIME THESE DOLLAR SIGNS ARE CHANGED TO
*     THE APPROPRIATE DISPLAY CODE FOR A COLON ACCORDING TO WHETHER THE 
*     RUNNING SYSTEM HAS 63 OR 64 CHARACTERS IN ITS CHARACTER SET.
# 
  
      DEF  LMSG20$  #20#;    # LENGTH OF MESSAGE IN CHARS              #
      DEF  LMSG30$  #30#;    # LENGTH OF MESSAGE IN CHARS              #
      DEF  LMSG40$  #40#;    # LENGTH OF MESSAGE IN CHARS              #
      DEF  LMSG50$  #50#;    # LENGTH OF MESSAGE IN CHARS              #
      DEF  LMSG60$  #60#;    # LENGTH OF MESSAGE IN CHARS              #
      DEF  LMSG70$  #70#;    # LENGTH OF MESSAGE IN CHARS              #
      DEF  LMSG90$  #90#;    # LENGTH OF MESSAGE IN CHARS              #
  
# 
*     THE FOLLOWING DEFS DEFINE THE LOCATIONS OF THE DOLLAR SIGNS FOR 
*     ROUTINE *SSBSBF*.  IF THE CORRESPONDING MESSAGE FORMATS ARE EVER
*     CHANGED, THE DEFS MUST ALSO CHANGE. 
# 
  
  
#     $ POSITION FOR ARRAY *APPBUF*                                    #
  
      DEF  APPWP$   #2#;     # APPLICATION PROMPT WORD POSITION        #
      DEF  APPBP$   #12#;    # APPLICATION PROMPT BIT POSITION         #
  
#     $ POSITION FOR ARRAY *FAMBUF*                                    #
  
      DEF  FAMWP$   #0#;     # FAMILY PROMPT WORD POSITION             #
      DEF  FAMBP$   #42#;    # FAMILY PROMPT BIT POSITION              #
  
#     $ POSITION FOR ARRAY *PIDBUF*                                    #
  
      DEF  PIDWP$   #1#;     # PERSONAL IDENTIFIER WORD POSITION       #
      DEF  PIDBP$   #12#;    # PERSONAL IDENTIFIER BIT POSITION        #
  
#     $ POSITION FOR ARRAY *PWRDBLK*                                   #
  
      DEF  PASWP$   #0#;     # PASSWORD PROMPT WORD POSITION           #
      DEF  PASBP$   #54#;    # PASSWORD PROMPT BIT POSITION            #
  
#     $ POSITION FOR ARRAY *USRBUF*                                    #
  
      DEF  USRWP$   #1#;     # USER PROMPT WORD POSITION               #
      DEF  USRBP$   #0#;     # USER PROMPT BIT POSITION                #
  
  
  
      COMMON TMSGMVF; 
  
      BEGIN  # TMSGNVF #
  
  
# 
*     ABSYBUF - APPLICATION BUSY MESSAGE BUFFER.
# 
      ARRAY ABSYBUF[00:00] S(4);
        BEGIN 
        ITEM ABS$MSG1   C(00,00,18) = [".APPLICATION BUSY,"]; 
        ITEM ABS$MSG2   C(01,48,17) = [" TRY AGAIN LATER."];
        END 
  
# 
*     ANPBUF - APPLICATION NOT PRESENT MESSAGE BUFFER.
# 
      ARRAY ANPBUF[00:00] S(3); 
        BEGIN 
        ITEM ANP$MSG    C(00,00,25) = [".APPLICATION NOT PRESENT."];
        END 
  
# 
*     APFBUF - APPLICATION FAILED MESSAGE BUFFER. 
# 
      ARRAY APFBUF[00:00] S(3); 
        BEGIN 
        ITEM APF$MSG    C(00,00,21) = [".APPLICATION FAILED. "];
        END 
  
# 
**    APPBUF - APPLICATION PROMPT BUFFER. 
# 
      ARRAY APPBUF[00:00] S(3); 
        BEGIN 
        ITEM APP$PRMT   C(00,00,24) = ["+TERMNAM - APPLICATION$ "]; 
        ITEM APP$TNAME  C(00,06,07);   # TERMINAL NAME                 #
        END 
  
# 
**    ARLBUF - APPLICATION RETRY LIMIT MESSAGE BUFFER.
# 
      ARRAY ARLBUF[00:00] S(3); 
        BEGIN 
        ITEM ARL$MSG    C(00,00,25) = [".APPLICATION RETRY LIMIT."];
        END 
  
# 
**    BANBUF - BANNER BUFFER. 
# 
      ARRAY BANBUF[00:00] S(3); 
        BEGIN 
        ITEM BAN$FE     C(00,00,01) = [" "];
        ITEM BAN$DATE   C(00,06,09);   # DATE                          #
        ITEM BAN$TIME   C(01,00,10);   # TIME OF DAY                   #
        ITEM BAN$TN     C(02,00,08) = [" TERMNAM"]; 
        ITEM BAN$TNAM   C(02,06,07);   # TERMINAL NAME                 #
        END 
  
# 
**    CANABUF - MULTIPLE CONCURRENT LOGINS PROHIBITED BUFFER. 
# 
      ARRAY CANABUF[00:00] S(5);
        BEGIN 
        ITEM CANA$MSG1  C(00,00,20) = [".MULTIPLE CONCURRENT"]; 
        ITEM CANA$MSG2  C(02,00,19) = [" LOGINS PROHIBITED."];
        ITEM CANA$ZERO  U(03,54,06) = [0];
        END 
  
# 
**    CTMEBUF - CONNECT TIME BUFFER.
# 
      ARRAY CTMEBUF[00:00] S(4);
        BEGIN 
        ITEM CTM$MSG    C(00,00,22) = [".APPNAME CONNECT TIME "]; 
        ITEM CTM$ANAME  C(00,06,07);   # APPLICATION NAME              #
        ITEM CTM$TIME   C(02,12,08) = ["HH.MM.SS"]; 
        ITEM CTM$PERD   C(03,00,01) = ["."];
        END 
  
# 
**    CPRBUF - COPYRIGHT BUFFER.
# 
      ARRAY CPRBUF[00:00] S(10);
        BEGIN 
        ITEM CPR$LIN1   C(00,00,36) = 
             ["1WELCOME TO THE NOS SOFTWARE SYSTEM."];
        ITEM CPR$ZRO1   U(03,36,24) = [0];
        ITEM CPR$LIN2   C(04,00,42) = 
             [" COPYRIGHT CONTROL DATA SYSTEMS INC. 1994."];
        ITEM CPR$ZRO2   U(08,12,48) = [0];
        ITEM CPR$LIN3   C(09,00,01) = [" "];
        ITEM CPR$ZRO3   U(09,06,54) = [0];
        END 
  
# 
**    FAMBUF - FAMILY PROMPT BUFFER.
# 
      ARRAY FAMBUF[00:00] S(2); 
        BEGIN 
        ITEM FAM$PRMT   C(00,00,12) = [" FAMILY$    "]; 
        END 
# 
**    FNABUF - FAMILY NOT AVAILABLE MESSAGE BUFFER
# 
      ARRAY FNABUF[00:00] S(5); 
        BEGIN 
        ITEM FNA$MSG1   C(00,00,22) = [".FAMILY NOT AVAILABLE,"]; 
        ITEM FNA$MSG2   C(02,12,17) = [" TRY AGAIN LATER."];
        ITEM FNA$ZERO   U(03,54,06) = [0];
        END 
  
  
# 
**    IAMBUF - ILLEGAL APPLICATION MESSAGE BUFFER.
# 
      ARRAY IAMBUF[00:00] S(4); 
        BEGIN 
        ITEM IAM$MSG1   C(00,00,21) = [".INVALID APPLICATION,"];
        ITEM IAM$MSG2   C(02,06,11) = [" TRY AGAIN."];
        ITEM IAM$ZERO   U(03,12,48) = [0];
        END 
  
# 
**    ILMBUF - IMPROPER LOGIN MESSAGE BUFFER. 
# 
      ARRAY ILMBUF[00:00] S(3); 
        BEGIN 
        ITEM ILM$MSG    C(00,00,27) = [".IMPROPER LOGIN, TRY AGAIN."];
        END 
  
# 
**    LNPBUF - LOGIN NOT POSSIBLE MESSAGE BUFFER. 
# 
      ARRAY LNPBUF[00:00] S(5); 
        BEGIN 
        ITEM LNP$MSG1   C(00,00,21) = [".LOGIN NOT POSSIBLE -"];
        ITEM LNP$MSG2   C(02,06,23) = [" CONTACT NETWORK ADMIN."];
        ITEM LNP$ZERO   U(04,24,36) = [0];
        END 
  
# 
**    LOMBUF - LOGGED OUT MESSAGE BUFFER. 
# 
      ARRAY LOMBUF[00:00] S(2); 
        BEGIN 
        ITEM LOM$MSG    C(00,00,12) = [".LOGGED OUT."]; 
        END 
  
# 
**    LTMBUF - LOGIN TERMINATED MESSAGE BUFFER. 
# 
      ARRAY LTMBUF[00:00] S(2); 
        BEGIN 
        ITEM LTM$MSG    C(00,00,18) = [".LOGIN TERMINATED."]; 
        END 
  
# 
**    PIDBUF - PERSONAL IDENTIFIER PROMPT.
# 
      ARRAY PIDBUF[00:00] S(2); 
        BEGIN 
        ITEM PID$MSG     C(00,00,14) = ["+PERSONAL ID$ "];
        END 
  
# 
**    PWRDBLK - PASSWORD PROMPT AND BLANKOUT BUFFER.
# 
      ARRAY PWRDBLK[00:00] S(9);
        BEGIN 
        ITEM PWD$PRMT   C(00,00,12) = ["0PASSWORD$  "]; 
        ITEM PWD$BLK1   C(02,00,11) = [" HHHHHHHH  "];
        ITEM PWD$FE     C(04,00,01) = ["/"];
        ITEM PWD$BLK2   C(05,00,11) = ["/IIIIIIII  "];
        ITEM PWD$BLK3   C(07,00,11) = ["/########  "];
        END 
  
# 
**    SYSHDR - SYSTEM HEADER BUFFER.
# 
      ARRAY SYSHDR[00:06] S(1); 
        BEGIN 
        ITEM SYS$WORD   C(00,00,10);   # WHOLE WORD REFERENCE          #
        ITEM SYS$FE     C(00,00,01);   # FORMAT EFFECTOR, 1ST WD ONLY  #
        ITEM SYS$ZB     U(00,06,54);   # LINE SEPARATOR, LAST WD ONLY  #
        END 
  
# 
**    TOUTBUF - TIMEOUT MESSAGE BUFFER. 
# 
      ARRAY TOUTBUF[00:00] S(2);
        BEGIN 
        ITEM TOT$MSG    C(00,00,11) = [".TIMEOUT.  "];
        END 
  
# 
**    UANPBUF - USER ACCESS NOT POSSIBLE MESSAGE BUFFER.
# 
      ARRAY UANPBUF[00:00] S(6);
        BEGIN 
        ITEM UNP$MSG1   C(00,00,27) = [".USER ACCESS NOT POSSIBLE -"];
        ITEM UNP$MSG2   C(02,42,24) = [" CONTACT NETWORK ADMIN. "]; 
        END 
  
# 
**    UPABUF - VOLUNTEERED USER/PASSWORD/APPLICATION IGNORED MESSAGE
*              BUFFER.
# 
      ARRAY UPABUF[00:00] S(4); 
        BEGIN 
        ITEM UPA$VMSG   C(00,00,13) = [".VOLUNTEERED "];
        ITEM UPA$TYPE   C(01,18,13);   # USER/PASSWORD/APPLICATION     #
        ITEM UPA$IGMSG  C(02,36,09) = [" IGNORED."];
        END 
  
# 
**    URLBUF - USER RETRY LIMIT MESSAGE BUFFER. 
# 
      ARRAY URLBUF[00:00] S(2); 
        BEGIN 
        ITEM URL$MSG    C(00,00,18) = [".USER RETRY LIMIT."]; 
        END 
  
# 
**    USRBUF - USER PROMPT BUFFER.
# 
      ARRAY USRBUF[00:00] S(2); 
        BEGIN 
        ITEM USR$PRMT   C(00,00,12) = ["0USER NAME$ "]; 
        END 
  
      END  # TMSGNVF #
  
CONTROL LIST; 
