Re: Anybody know of any tricks for getting a 16200-byte command buffer (to be passed to QCMDCHK and QCMDEXC) in OPM RPG? -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Subject: Re: Anybody know of any tricks for getting a 16200-byte command buffer (to be passed to QCMDCHK and QCMDEXC) in OPM RPG?
From: Vern Hamberg <vhamberg@xxxxxxxxxxx>
Date: Thu, 11 Mar 2010 18:05:14 -0600
List-archive: <http://archive.midrange.com/rpg400-l>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: RPG programming on the IBM i / System i <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

Crazy idea - how about using the system() C-runtime API? The only parameter is the command string. All you need to do is call your source a CLLE type and ba-da-bing!!

Just tried it. Worked fine.

pgm dcl &cmdstring *char 100 dcl &null *char 1 x'00' chgvar &cmdstring ('WRKSYSSTS' *tcat &null)
callprc 'system' &cmdstring endpgm
CRTMOD of this source - type CLLE.
Then CRTPGM BNDDIR(QC2LE)

You're done!

James H. H. Lampert wrote:

Anybody know of any tricks for getting a 16200-byte command buffer (to be passed to QCMDCHK and QCMDEXC) in OPM RPG?

I'm working on a program that, for various reasons, I'd prefer NOT to port over to ILE RPG, and it has the ability to generate and run OPNQRYF calls.

It currently has a 2000-byte command buffer, but (at least in theory) an OPNQRYF command can run to almost 16K.

As I ask this, I'm already looking through the OPM RPG manual.

--
JHHL

As an Amazon Associate we earn from qualifying purchases.

Follow-Ups:

Re: Anybody know of any tricks for getting a 16200-byte command buffer (to be passed to QCMDCHK and QCMDEXC) in OPM RPG? , James H. H. Lampert

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.