RE: OVRPRTF on QUHSDSPH -- MIDRANGE-L

What activation group is your RPG program running in?  QUHSDSPH runs under
the default activation group.


Thank you,
Matt Tyler
Mattt@wincofoods.com

-----Original Message-----
From: York, Albert [mailto:albert.york@nissan-usa.com]
Sent: Tuesday, October 08, 2002 11:01
To: 'midrange-l@midrange.com'
Subject: RE: OVRPRTF on QUHSDSPH

Simon,

Of course you're right. I guess I got focused on one solution and missed the
obvious. Thank you.

However, now I have another problem. When I try to override the QSYSPRT in
my program it doesn't go take effect. If I do the override before I call the
program it works fine.

Here is the code I am using:

*
  * Override printer features
  *
 C                   eval      OvrCmd =
 C                             'OVRPRTF FILE(QSYSPRT) PAGESIZE(66 80) '
 C                             + 'RPLUNPRT(*YES) SECURE(*YES)'
 C                   call      'QCMDEXC'
 C                   parm                    OvrCmd          256
 C                   parm      256           CmdLen           15 5
  *
  *********************
  *
  * Process API call.
  *
 C                   CALL      'QUHDSPH'

Any suggestions?

Thanks,

Albert


        -----Original Message-----
        From:   Simon Coulter [SMTP:shc@flybynight.com.au]
        Sent:   Monday, October 07, 2002 6:46 PM
        To:     midrange-l@midrange.com
        Subject:        Re: OVRPRTF on QUHSDSPH


        Hello Albert,

        You wrote:
        >I am trying to use a different printer file other than QSYSPRT for
the
        >QUHDSPH API which displays help text but I get an error message:
        >CPF9850 Override of printer file QSYSPRT not allowed.
        >Is there another way to do this? I want to control the page width
without
        >changing the QSYSPRT printer file in QSYS.

        Why not simply override the attributes of QSYSPRT rather than
pointing to a
        completely different file?  For example:

                OVRPRTF QSYSPRT PAGESIZE(x y *ROWCOL)

        Regards,
        Simon Coulter.
        --------------------------------------------------------------------
           FlyByNight Software         AS/400 Technical Specialists

           http://www.flybynight.com.au/
           Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
           Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
                                                                     X
                         ASCII Ribbon campaign against HTML E-Mail  / \
        --------------------------------------------------------------------

        _______________________________________________
        This is the Midrange Systems Technical Discussion (MIDRANGE-L)
mailing list
        To post a message email: MIDRANGE-L@midrange.com
        To subscribe, unsubscribe, or change list options,
        visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
        or email: MIDRANGE-L-request@midrange.com
        Before posting, please take a moment to review the archives
        at http://archive.midrange.com/midrange-l.
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.