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 firstname.lastname@example.org.
I am trying to call an RPGLE pgm from MI passing parameters to it.
OS V5R2M0, QRPGLESRC file member contains:
D DM_910 E DS EXTNAME(DML910)
C *ENTRY PLIST
C PARM DM_910
DML910 *FILE A550AP PF Parameter data structure fo
Data Field Buffer Buffer Field Column
Field Type Length Length Position Usage Heading
P1PRDC CHAR 35 35 12 Both Item
P1QTY PACKED 15 3 8 64 Both Order Qty
.... (45 fields)
First I tried this:
DCL SPCPTR $P1PRDC INIT(P1PRDC);
DCL DD P1PRDC CHAR(35);
DCL SPCPTR $P1QTY INIT(P1QTY);
DCL DD P1QTY PKD(15,3);
DCL OL CALLEE($P1PRDC, $P1QTY, ... ) ARG;
but if I debug the RPG and display the parameter values:
D D910P1PRDC 35A EXTFLD (P1PRDC)
D D910P1QTY 15P 3 EXTFLD (P1QTY)
I get garbage instead of the actual values loaded in the MI vars which should now be in the RPG vars:
EVAL DM_910 : X 128
00000 40404040 40404040 40404000 00000000 - .....
00010 80000000 00000000 D91AD4CE 8100A100 - Ø.......R.Móa.~.
00020 40404000 00000000 00000000 00000000 - .............
00030 80000000 00000000 D91AD4CE 8100A120 - Ø.......R.Móa.~.
00040 40404040 00000000 00000000 00000000 - ............
00050 80000000 00000000 D91AD4CE 8100A140 - Ø.......R.Móa.~
00060 00000000 0F000000 00000000 00000000 - ................
00070 80000000 00000000 D91AD4CE 8100A160 - Ø.......R.Móa.~-
(these look like addresses instead of content at those addresses, hmm...)
If I change the OL to:
DCL OL CALLEE(P1PRDC, P1QTY, ... ) ARG;
and debug to display the vars again I get:
Pointer not set for location referenced.
I tried reading the available docs and mailing list msgs but no luck.
Does anybody know how can I accomplish this?.
Looking for a X-Mas gift? Everybody needs a Flickr Pro Account!
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2023 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
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.