Step 8--Tailor NLF/QMF for TSO

To create a TSO logon procedure for NLF, first make a copy of the TSO logon procedure for the QMF base product.

Except for the following changes to the TSO logon procedure, the procedure for tailoring NLF/QMF for TSO is that outlined in Tailoring QMF for TSO.

• The following NLF libraries should be concatenated in front of the QMF base libraries.
  • The statement to concatenate to the ADMGGMAP DD statement is:

    //ADMGGMAP  DD DSN=QMF720.DSQMAPn,DISP=SHR

  • The statement to concatenate to the ISPPLIB DD statement is:

    //ISPPLIB  DD DSN=QMF720.SDSQPLBn,DISP=SHR

  • The statement to concatenate to the ISPMLIB DD statement is:

    //ISPMLIB  DD DSN=QMF720.SDSQMLBn,DISP=SHR

  • The statement to concatenate to the SYSPROC DD statement is:

    //SYSPROC  DD DSN=QMF720.SDSQCLTn,DISP=SHR

  • The statement to concatenate to the SYSEXEC DD statement is:

    //SYSEXEC  DD DSN=QMF720.SDSQEXCn,DISP=SHR

  • The statement to concatenate to the DSQPNLn DD statement is:

    //DSQPNLn  DD DSN=QMF720.DSQPNLn,DISP=SHR

• The statement to start QMF with ISPF looks like the following:

  ISPSTART PGM(DSQQMFn) NEWAPPL(DSQn) PARM(DSQSSUBS=dbname,...)

  The ISPF Master Application Menu should be changed as shown in the following figure (DSQQMFn is the NLF program).

  Figure 30. QMF Dialog on ISPF Master Application Menu for NLF

  %------------------------  MASTER APPLICATION MENU  --------------------
  %SELECT APPLICATION ===>_;OPT     + 
  %                                                           +USERID   -
  %                                                           +TIME     -
  %   1 +SPF        - SPF PROGRAM DEVELOPMENT FACILITY        +TERMINAL -
  +   2 +QMF        - QMF QUERY MANAGEMENT FACILITY           +PF KEYS  -
  %   3 +QMFn       - QMF NATIONAL LANGUAGE FEATURE
  %
  %
  %
  %
  %
  %
  %   P +PARMS      - SPECIFY TERMINAL PARAMETERS AND LIST/LOG DEFAULTS
  %   X +EXIT       - TERMINATE USING LIST/LOG DEFAULTS
  %
  +PRESS%END KEY+TO TERMINATE + 
  %
  )INIT
  )PROC
    &SEL = TRANS( TRUNC (&OPT,'.')
                  1,'PANEL(ISR@PRIM) NEWAPPL'
                  2,'PGM(DSQQMFE) NEWAPPL(DSQE)'
                  3,'PGM(DSQQMFn) NEWAPPL(DSQn)'
              /*                             */
              /* ADD OTHER APPLICATIONS HERE */
              /*                             */
                  P,'PANEL(ISPOPT)'
                  X,'EXIT'
                ' ',' '
                  *,'?' )
  )END
   

• The statement to start QMF without ISPF looks like the following:

  DSQQMFn DSQSPLAN=planid,DSQSSUBS=dbname,...

  where DSQQMFn is the NLF program.