Here is a customization technique that allows a user to print an object without exiting QMF. The first two steps of this technique show how to define a command synonym for printing; the final step shows how to customize your Print function key. This technique can be used to invoke a local print utility when the Print function key is pressed.
/* PRTQMF REXX EXEC for local print utility called MPRINT */ CALL DSQCI "PRINT PROC (PRINTER=MYPIRNT1" mprint MYPRINT1 ADMLIST A
This example assumes you have a MYPRINT1 nickname defined and that it creates a file with a file type of ADMLIST.
Some QMF users prefer to bypass the PRINT command and simply export the object for local printing. In this case your exec looks something like:
/* PRTQMF REXX EXEC for local DSPRINT *? CALL DSQCIX "EXPORT PROC TO MYPROC" mprint MYPROC PROC A
INSERT INTO COMMAND_SYNONYMS (VERB, SYNONYM_DEFINITION, REMARKS) VALUES('PRTQMF', 'CMS PRTQMF', 'Print QMF Proc')
INSERT INTO PFKY_TABLE (PANEL,ENTRY_TYPE,NUMBER,PF-SETTING) VALUES('PROC','K' 4, 'PRTQMF')
This example assumes that the user's profile has the PFKEYS column value set to PFKY_TABLE, the name of the function key customization table. (After running the query, QMF must be restarted to implement the function key change.)