* 03/23/77 -- 18:00
* MODULE NAME: RSPNSE
* NUMBER: 29
* PURPOSE: PRINT UTS/TEXT RESPONSES AND ERROR MESSAGES
*
* ENTRY POINTS:
*        S29STD  -- STANDARD RESPONSES AND ERROR MESSAGES
*        S29MSG  -- SPECIAL RESPONSES AND ERROR MESSAGES
*
         SYSTEM   TEXTDEF
*
*
         DEF      S29STD,S29MSG
         REF      S27PRINT
         REF      BATCHFLG          BATCH MODE FLAG
         REF      FILEFLG           FILE OUTPUT FLAG
*
*
         DEF      29P,29D
*
29P      EQU      %
         DATA     X'29'             MODULE NUMBER
         DATA     X'032377'         DATE
         DATA     X'1800'           TIME
*
*
         TITLE    '** RSPNSE(29) **'
*
*
S29STD   EQU      %
         LW,X2    AC1               STANDARD MSG NUMBER
         LW,BUF1  MSG,X2            BA OF MESSAGE
*
S29MSG   EQU      %
         SAVRTN
*
         LW,AC1   BATCHFLG          IF BATCH MODE
         STB,AC1  BATCHFLG            SET TO OUTPUT THRU F:LL
*
         MTW,0    FILEFLG           FILE OUTPUT MODE
         BEZ      NOTFILE4          NO
         LB,AC1   FILEFLG           GET FILE PRINT FLAG
         STW,AC1  FILESV            SAVE IT
         LI,AC1   0
         STB,AC1  FILEFLG           SET TO PRINT TO TERMINAL
NOTFILE4 RES      0
*
         LB,AC1   0,BUF1            NUMBER OF CHARS
         AI,BUF1  1                 SET FIRST CHAR POINTER
         BAL,SRTN S27PRINT          PRINT MESSAGE
*
         MTW,0    FILEFLG           FILE OUTPUT MODE
         BEZ      NOTFILE8          NO
         LW,AC1   FILESV            GET SAVED FLAG
         STB,AC1  FILEFLG           RESTORE
NOTFILE8 RES      0
*
         RETURN
*
*
         PAGE
*
*        MESSAGE POINTERS
*
MSG      EQU      %-1
         DATA     BA(MSG1)
         DATA     BA(MSG2)
         DATA     BA(MSG3)
         DATA     BA(MSG4)
         DATA     BA(MSG5)
         DATA     BA(MSG6)
         DATA     BA(MSG7)
         DATA     BA(MSG8)
         DATA     BA(MSG9)
         DATA     BA(MSG10)
         DATA     BA(MSG11)
         DATA     BA(MSG12)
         DATA     BA(MSG13)
         DATA     BA(MSG14)
         DATA     BA(MSG15)
         DATA     BA(MSG16)
         DATA     BA(MSG17)
         DATA     BA(MSG18)
         DATA     BA(MSG19)
         DATA     BA(MSG20)
         DATA     BA(MSG21)
         DATA     BA(MSG22)
         DATA     BA(MSG23)
         DATA     BA(MSG24)
         DATA     BA(MSG25)
         DATA     BA(MSG26)
         DATA     BA(MSG27)
         DATA     BA(MSG28)
         DATA     BA(MSG29)
         DATA     BA(MSG30)
         DATA     BA(MSG31)
         DATA     BA(MSG32)
         DATA     BA(MSG33)
         DATA     BA(MSG34)
         DATA     BA(MSG35)
         DATA     BA(MSG36)
         DATA     BA(MSG37)
         DATA     BA(MSG38)
         DATA     BA(MSG39)
         DATA     BA(MSG40)
         DATA     BA(MSG41)
         DATA     BA(MSG42)
         DATA     BA(MSG43)
         DATA     BA(MSG44)
         DATA     BA(MSG45)
         DATA     BA(MSG46)
         DATA     BA(MSG47)
         DATA     BA(MSG48)
         DATA     BA(MSG49)
         DATA     BA(MSG50)
         DATA     BA(MSG51)
         DATA     BA(MSG52)
         DATA     BA(MSG53)
         DATA     BA(MSG54)
         DATA     BA(MSG55)
         DATA     BA(MSG56)
         DATA     BA(MSG57)
         DATA     BA(MSG58)
         DATA     BA(MSG59)
         DATA     BA(MSG60)
         DATA     BA(MSG61)
         DATA     BA(MSG62)
         DATA     BA(MSG63)
         DATA     BA(MSG64)
         DATA     BA(MSG65)
         DATA     BA(MSG66)
         DATA     BA(MSG67)
         DATA     BA(MSG68)
         DATA     BA(MSG69)
         DATA     BA(MSG70)
         DATA     BA(MSG71)
         DATA     BA(MSG72)
         DATA     BA(MSG73)
         DATA     BA(MSG74)
         DATA     BA(MSG75)
         DATA     BA(MSG76)
         DATA     BA(MSG77)
         DATA     BA(MSG78)
         DATA     BA(MSG79)
         DATA     BA(MSG80)
         DATA     BA(MSG81)
         DATA     BA(MSG82)
*
*
*
*
*
         PAGE
*
* UTS/TEXT STANDARD RESPONSES AND ERROR MESSAGES
*
*
MSG1     MESSAGE  'UNFORMATTED MODE'
MSG2     MESSAGE  'FORMATTED MODE'
MSG3     MESSAGE  'HEADING MODE'
MSG4     MESSAGE  'FOOTING MODE'
*
         PAGE
*
MSG5     MESSAGE  'TABLE MODE -- PROVIDE FORMAT'
MSG6     MESSAGE  'ACTION CANCELLED',#CR
MSG7     MESSAGE  'DOCUMENT STORED',#CR
MSG8     MESSAGE  '** DUPLICATE NAME'
*
*
         PAGE
*
MSG9     MESSAGE  '** NOTHING TO PRINT',#CR
MSG10    MESSAGE  '** ILLEGAL ACTION -- COMMAND ERROR',#CR
MSG11    MESSAGE  '** ILLEGAL LINE NUMBER'
*
*
         PAGE
*
MSG12    MESSAGE  '** TABLE COLUMN OVERFLOW'
MSG13    MESSAGE  '** NO STORAGE AVAILABLE'
*
*
         PAGE
*
*
MSG14    MESSAGE  '** NO SUCH PHRASE'
MSG15    MESSAGE  'LINE CANCELLED'
MSG16    MESSAGE  'SIGNAL WHEN READY'
MSG17    MESSAGE  '** DOCUMENT IN USE'
         PAGE
*
MSG18    MESSAGE  '** ILLEGAL BACKSPACE OVER TAB CHARACTER'
MSG19    MESSAGE  '** DOCUMENT DOES NOT EXIST'
MSG20    MESSAGE  '** DOCUMENT ACCESS DENIED'
*
         PAGE
*
*
MSG21    MESSAGE  #CR,'** DATA LOST -- EDITING MAY BE REQUIRED ON ',;
                      'LAST INPUT LINE'
MSG22    MESSAGE  '** NOTHING TO STORE'
MSG23    MESSAGE  'CLEARED'
MSG24    MESSAGE  '** NO SUCH TAG'
*
         PAGE
*
*
MSG25    MESSAGE  '** DOCUMENT TOO LARGE'
MSG26    MESSAGE  '** NEXT LINE NUMBER TOO LARGE'
MSG27    MESSAGE  'DOCUMENT DELETED',#CR
         PAGE
*
*
MSG28    MESSAGE  '** TOO MANY LINES TO MOVE'
MSG29    MESSAGE  '** NOT ENOUGH MEMORY TO READ AUXILIARY FILE'
         PAGE
*
*
MSG30    MESSAGE  '** ACCOUNT NOT AUTHORIZED TO USE ',;
                      'LINE PRINTER'
MSG31    MESSAGE  '** ILLEGAL ACTION -- THIS COMMAND MUST ',;
                     'BEGIN IN COLUMN ONE',#CR
         PAGE
*
*
MSG32    MESSAGE  '** ILLEGAL ACTION -- OPTION ERROR',#CR
MSG33    MESSAGE  '** FIRST ENTRY IN AUXILIARY FILES ',;
                      'MUST BE FILE TYPE (D,S,X)'
*
*
         PAGE
*
MSG34    MESSAGE  '** ILLEGAL ENTRY IN SPECIAL CHARACTER ',;
                      'AUXILIARY FILE'
MSG35    MESSAGE  '** WIDTH/DEPTH OUTSIDE LIMITS'
         PAGE
*
MSG36    MESSAGE  'DOCUMENT PRINTED',#CR
MSG37    MESSAGE  '** ANOTHER USER WITH SAME ACCOUNT/OPERATOR ID',#CR
*
         PAGE
*
MSG38    MESSAGE  #CR,'** ILLEGAL MAGNETIC TAPE ACTION'
MSG39    MESSAGE  #CR,'GET COMMAND INTERRUPTED'
*
         PAGE
*
MSG40    MESSAGE  #CR,'STORE COMMAND INTERRUPTED'
MSG41    MESSAGE  #CR,'READ COMMAND INTERRUPTED'
MSG42    MESSAGE  #CR,'FIND COMMAND INTERRUPTED'
*
         PAGE
*
MSG43    MESSAGE  #CR,'INDEX INTERRUPTED'
MSG44    MESSAGE  #CR,'PRINTOUT INTERRUPTED'
MSG45    MESSAGE  '** BAD PRINT FILE -- PRINTOUT CANCELLED'
MSG46    MESSAGE  '** BAD WORKING STORAGE FILE'
MSG47    MESSAGE  '** BAD FIELD CHANGE CRITERIA -- REENTER',#CR
MSG48    MESSAGE,NOCR  #CR,'ANY SELECTION CRITERIA? '
MSG49    MESSAGE  #CR,'ENTER SELECTION CRITERIA',#CR
MSG50    MESSAGE  '** BAD WORKING STORAGE FILE'
MSG51    MESSAGE,NOCR  #CR,'CHANGE FIELD LINE NUMBERS? '
MSG52    MESSAGE  #CR,'ENTER FIELD CHANGE CRITERIA',#CR
MSG53    MESSAGE  '** BAD SELECT CRITERIA -- REENTER',#CR
MSG54    MESSAGE  '** TSTOP COMMAND ENCOUNTERED, NO ',;
                  'NAME/ADDRESS FILE SPECIFIED'
MSG55    MESSAGE  '** NO SELECT MATCH, ALL ENTRIES SKIPPED'
MSG56    MESSAGE  '** VIDEO FILE ID GREATER THAN 11 CHARACTERS',#CR
MSG57    MESSAGE  '** UNABLE TO INITIATE XGP JOB',#CR
MSG58    MESSAGE,NOCR  '    NEXT ACTION - R(EPLACE)/A(DD)/',;
                       'E(DIT)/C(LEAR)? '
MSG59    MESSAGE,NOCR  '** EMBEDDED COMMAND ',;
                       'ERROR(S), DO YOU WISH TO REEDIT? '
MSG60    MESSAGE,NOCR  ' WORKING...'
MSG61    MESSAGE  '**  END DISPLAY MODE  **'
MSG62    MESSAGE,NOCR  '    END OF DISPLAY RANGE, ',;
                       'DO YOU WISH TO CONTINUE EDITING?  '
MSG63    MESSAGE  '** NOTHING TO DISPLAY'
MSG64    MESSAGE,NOCR  '** TOO MANY LINES TO INSERT, ',;
                       'DO YOU WISH TO REEDIT? '
MSG65    MESSAGE,NOCR  '    ANY MORE LINES TO ADD? '
MSG66    MESSAGE,NOCR  'DUPLICATE NAME -- DELETE OLD DOCUMENT? '
MSG67    MESSAGE  '** TEMPORARY WIDTH OUTSIDE LIMITS'
MSG68    MESSAGE,NOCR  'DO YOU WISH TO RETAIN OLD DOC ID? '
MSG69    MESSAGE,NOCR  '** ILLEGAL BATCH COMMAND -- COMMAND IGNORED'
MSG70    MESSAGE,NOCR  #CR,'ANY START-AT-ENTRY CRITERIA? '
MSG71    MESSAGE  #CR,'ENTER START SELECTION CRITERIA',#CR
MSG72    MESSAGE  '** FILE OUTPUT COMMAND CANCELLED',#CR
MSG73    MESSAGE  '** TABLE SPACING COUNT OUTSIDE LIMITS'
MSG74    MESSAGE,NOCR  'RESTORE SAVED DOCUMENT WIDTH, DEPTH, TABS? '
MSG75    MESSAGE  'SAVED DOCUMENT FORMAT RESTORED',#CR
MSG76    MESSAGE  'INDEX COMPLETED',#CR
MSG77    MESSAGE  'WORKING STORAGE FORMAT RETAINED',#CR
MSG78    MESSAGE  '** GET FILE MUST BE KEYED'
MSG79    MESSAGE  '** MAXIMUM LINE NUMBER REACHED',#CR
MSG80    MESSAGE  '** FILE OUTPUT SPACE EXHAUSTED',#CR
MSG81    MESSAGE  '** WORKING STORAGE SPACE EXHAUSTED',#CR
MSG82    MESSAGE  '** DOCUMENT STORAGE SPACE EXHAUSTED',#CR
*
*
*
*
         PAGE
*
* LOCAL VARIABLES
*
29D      CSECT    0
*
FILESV   RES      1                 FILE OUTPUT FLAG SAVE
*
*
         USECT    #PLOC             CSECT FOR LITERALS
         END
