Native OS/390 batch, TSO and ISPF

You can customize your system so you can print an object without exiting QMF. You can use a local print utility by simply pressing the Print function key, if you define a command synonym for printing and customize your Print function key.

1. Create a REXX exec or CLIST to locally print the current object. Here is a sample, using the QMF callable interface:

   /* PRTQMF REXX EXEC for local DSPRINT */
   CALL DSQCIX "PRINT PROC (PRINTER=MYPRINT1"
   DSPRINT '&SYSUID..MYPRINT1.DATA'

   This example assumes you have a MYPRINT1 nickname defined and that it directs print output to a data set called MYPRINT1.DATA.

   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 print utilities called DSPRINT */
   CALL DSQCIX "EXPORT PROC TO MYPROC"
   DSPRINT '&SYSUID..MYPROC.PROC'

2. Create a QMF command synonym for printing. Here is a sample query that creates a command synonym PRTQMF to execute the PRTQMF exec:

   INSERT INTO COMMAND_SYNONYMS (VERB, SYNONYM_DEFINITION, REMARKS)
   VALUES('PRTQMF','TSO PRTQMF','Print QMF Proc')

3. You can now customize a function key on the procedure panel to use this command synonym. You need to customize for each panel. A query to customize function key 4 on the procedure panel looks like this:

   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.)