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 outlined in Tailoring QMF for TSO.
//ADMGGMAP DD DSN=QMF810.DSQMAPn,DISP=SHR
//ISPPLIB DD DSN=QMF810.SDSQPLBn,DISP=SHR
//ISPMLIB DD DSN=QMF810.SDSQMLBn,DISP=SHR
//SYSPROC DD DSN=QMF810.SDSQCLTn,DISP=SHR
//SYSEXEC DD DSN=QMF810.SDSQEXCn,DISP=SHR
//DSQPNLn DD DSN=QMF810.DSQPNLn,DISP=SHR
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).
%------------------------ 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
DSQQMFn DSQSPLAN=planid,DSQSSUBS=dbname,...where DSQQMFn is the NLF program.