RE: Adding parms in QMFORM

[Buck Calabro <Buck.Calabro@xxxxxxxxxxxx>]

>I'm used to make fast printouts with QMQRY creating a
>member containing the sql code (&SQL) and one containing
>the form formatting code (&FORM). The output is not the
>best but it's ok. How can I include my parameters (&D2 &D3)
>in the page heading?

When I had this problem years ago I just wrote another program to print the
parameters out:

FQPQXPRTFO   F     132     OF     PRINTER
E                    OUT        26 50
C           *ENTRY    PLIST
C                     PARM           A      50
...
C                     MOVELA         OUT,01
...
C                     TIME           HHMMSS  60
C                     EXCPTPRTTOF
C*
C           1         DO   26        XX      50
C           OUT,XX    IFNE *BLANKS
C                     EXCPTPRTOUT
C                     ENDIF
C                     ENDDO
C                     EXCPTPRTEND
C                     SETON                     LR
OQPQXPRTFE  203           PRTTOF
O*
O                         UDATE Y    8
O                         HHMMSS    18 ' 0.  .  '
O                                   64 'SQL statement'
O                                  127 'RUNSQLSTM  Page'
O                         PAGE     132
O*
O        E  1             PRTOUT
O*
O                         OUT,XX    50
O*
O        E  2             PRTEND
O*
O                                   24 '------------------------'
O                                   48 '------------------------'
O                                   50 '--'

Goes with this CL:

CALL RUNSQLSTMR PARM(&A +
...
STRQMQRY QMQRY(RUNSQLSTM) +
         OUTPUT(&OUTPUT) +
         OUTFILE(&OUT_LIB/&OUT_NAM) +
         OUTMBR(&OUT_MBR &MBROPT) +
         SETVAR((A &A) +
...

and with this QMQRY:
&A&B&C&D&E&F&G&H&I&J&K&L&M&N&O&P&Q&R&S&T&U&V&W&X&Y&Z

  --buck