*COMDECK,COMQKRS
# 
      COMQKRS - RIGHT K (HELP) DISPLAY BUFFERS DEFINITIONS. 
# 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
      BEGIN  # COMMON DECK COMQKRS #
  
      COMMON COMQKRS; 
        BEGIN 
  
      CONTROL IFEQ OS$NOS;
        ARRAY KR$DT [0:0] S(KDWDSPERDT);  # RIGHT K DISPLAY # 
          BEGIN 
          ITEM KR$DTITLE  C(00,00,KDCHRPERDT) = 
                 [" QTF, INITIATOR"]; 
          ITEM KR$DTEOL   U(01,36,24) = [0];
          END 
  
        ARRAY KR$FWA     S(1);
          BEGIN 
          ITEM KR$CW      U(00,00,60) = [0];  # CONTROL WORD #
          ITEM KR$CSZ     B(00,10,01);  # SMALL CHARS # 
          ITEM KR$FAT     B(00,11,01) = [TRUE];  # CODED FORMAT # 
          ITEM KR$ALTSPAC B(00,12,01) = [TRUE];  # ALTERNATE SPACING #
          ITEM KR$TBUF    U(00,18,18);  # TITLE BUFFER #
          ITEM KR$FLG     B(00,59,01);  # DATA DISPLAY FLAG # 
          END 
  
        ARRAY KR$TI [0:0] S(KDWDSPERLN);
          BEGIN 
          ITEM KR$TIDUM   C(00,00,KDCHRPERLN) = 
      [" HELP                                            PAGE 1 OF 1"]; 
          ITEM KR$TITLE   C(00,00,20);  # DISPLAY NAME #
          ITEM KR$CURPAGE C(05,24,01);  # CURRENT PAGE #
          ITEM KR$MAXPAGE C(05,54,01);  # MAXIMUM PAGE #
          ITEM KR$TIEOL   U(KDEOLWP,00,60) = [KDEOLN05];
          END 
  
        ARRAY KR$HE [0:0] S(KDWDSPERLN);
          BEGIN 
          ITEM KR$HEADER  C(00,00,KDCHRPERLN) = 
      [" COMMANDS                                 FSI   SIZE RANGE  "]; 
          ITEM KR$HEEOL   U(KDEOLWP,00,60) = [KDEOLN06];
          END 
  
        ITEM KR$LN07    U = KDEOL;  # SKIP LINE 7 # 
  
      CONTROL ENDIF;
  
        ARRAY KR$IT [1:MXITEMS] S(KDWDSPERLN);
          BEGIN 
  
        CONTROL IFEQ OS$NOS;
          ITEM KR$ITEM    C(00,00,KDCHRPERLN) = 
        [" CLASS,SC=X,FSI=N..N,MAXIMUM=N,RESERVE=N.  1  000000..999999" 
        ," DISABLE,ELEMENT.                          2  000000..999999" 
        ," ENABLE,ELEMENT.                           3  000000..999999" 
        ," IDLE.                                     4  000000..999999" 
        ," INCLUDE,FILE=PFN.                         5  000000..999999" 
        ," SCHED,PARAMETERS.                         6  000000..999999" 
        ," STATUS,TYPE. (TYPE=PID, SC, OR TRANSFERS) 7  000000..999999" 
        ," STOP.                                                      " 
        ," + OR -                PARAMETERS =        (FILE SIZE RANGES" 
        ,"                          SELSECS=N         IN DECIMAL PRUS)" 
        ,"   ELEMENT = ONE OF -     MAXCONS=N                         " 
        ,"      SC=X OR *           TIMEOUT=N                         " 
        ,"      PID=XXX OR *        DISABLE=N                         " 
        ,"      SC=X,PID=XXX        RETRY=N                           " 
        ,"   X=A,B,C,...,L.         LDTRFSH=N                         " 
        ];
        CONTROL ENDIF;
  
        CONTROL IFEQ OS$NOSBE;
          ITEM KR$ITEM    C(00,00,KDCHRPERLN) = 
        [" CLASS,SC=X,FSI=N..N,MAXIMUM=N,RESERVE=N.  1  000000..999999" 
        ," DISABLE,ELEMENT.                          2  000000..999999" 
        ," ENABLE,ELEMENT.                           3  000000..999999" 
        ," IDLE.                                     4  000000..999999" 
        ," INCLUDE,FILE=PFN.                         5  000000..999999" 
        ," SCHED,PARAMETERS.                         6  000000..999999" 
        ," STATUS,TYPE. (TYPE=PID, SC, OR TRANSFERS) 7  000000..999999" 
        ," STOP.                                                      " 
        ," + OR -                PARAMETERS =        (FILE SIZE RANGES" 
        ,"                          SELSECS=N  FSI1=N IN DECIMAL PRUS)" 
        ,"   ELEMENT = ONE OF -     MAXCONS=N  FSI2=N                 " 
        ,"      SC=X OR *           TIMEOUT=N  FSI3=N                 " 
        ,"      PID=XXX OR *        DISABLE=N  FSI4=N                 " 
        ,"      SC=X,PID=XXX        RETRY=N    FSI5=N                 " 
        ,"   X=A,B,C,...,L.         LDTRFSH=N  FSI6=N                 " 
        ];
        CONTROL ENDIF;
  
          ITEM KR$FSR     C(04,00,20);
          ITEM KR$FSRL    C(04,36,06);
          ITEM KR$FSRU    C(05,24,06);
          ITEM KR$ITEOL   U(KDEOLWP,00,60) =
                 [KDEOLN08, KDEOLN09, KDEOLN10, KDEOLN11, KDEOLN12, 
                  KDEOLN13, KDEOLN14, KDEOLN15, KDEOLN16, KDEOLN17, 
                  KDEOLN18, KDEOLN19, KDEOLN20, KDEOLN21, KDEOLN22];
          END 
  
        ITEM KR$END     U = KDEOLN26;   # END OF DISPLAY #
        END 
  
      END     # END OF COMQKRS #
                                               CONTROL LIST;
