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



Hi David

Happy middle of the day to you!

I just created a test program with a date variable in a PLIST - it compiled fine at V5R3 and at V5R4. The code is this

d datefld s d C parm1 plist C parm datefld
C C time datefld
C call 'DATEPGM' parm1 C move *on *inlr
PCML generated looks like this

<pcml version="4.0"> <!-- RPG program: TSTDATEPGM --> <!-- created: 2009-08-05-04.56.22 --> <!-- source: VHCURLIB/QRPGLESRC(TSTDATEPGM) --> <program name="TSTDATEPGM" path="/QSYS.LIB/VHCURLIB.LIB/TSTDATEPGM.PGM">
</program> </pcml>
Maybe you are talking about an *ENTRY PLIST, so I tried that.

d datefld s d C *entry plist C parm datefld
C C dsply datefld
C move *on *inlr
compiled fine at V5R3 with PGMINFO(*NO). So I tried it with PGMINFO(*PCML) - this failed, same as yours. XML looks like this

<pcml version="4.0"> <!-- RPG program: DATEPGM --> <!-- created: 2009-08-05-05.04.17 --> <!-- source: VHCURLIB/QRPGLESRC(DATEPGM) --> <program name="DATEPGM" path="/QSYS.LIB/VHCURLIB.LIB/DATEPGM.PGM"> <data name="DATEFLD" type=" " length="10" usage="inputoutput" />
<!-- Error: unsupported data type (E) --> </program> </pcml>
I see that the data type is blank.

I then made a prototyped version of the above, as here

h dftactgrp(*no) d datepgm pr D dateprm d
d datepgm pi D dateprm d
/free dsply dateprm; *inlr = *on; /end-free
That resulted in the same problem at V5R3 -

<pcml version="4.0"> <!-- RPG program: DATEPGM --> <!-- created: 2009-08-05-05.13.12 --> <!-- source: VHCURLIB/QRPGLESRC(DATEPGM) --> <!-- 2 --> <program name="DATEPGM" path="/QSYS.LIB/VHCURLIB.LIB/DATEPGM.PGM"> <data name="DATEPRM" type=" " length="10" usage="inputoutput" />
<!-- Error: unsupported data type (E) --> </program> </pcml>
So I suspect that this is a bug - you should report it to IBM. Had the same result at V5R4.

Regards
Vern

David FOXWELL wrote:
Hi Mark,

You just made me cry. About 3 years ago I wrote an application that "waded through" the source code. We used it to produce our own XML documents. A web application uses this to replace written program documentation which was too often neglected and usually duplicated in the source.

But my first attempt with the PGMINFO(*PCML) parameter didn't quite work. Despite a pretty XML document being produced, I get an error *RNF0319 ( error generating information ) and the object is not created.
It seems I can't put a date field in a parameter list :

<data name="ANEDTDL" type="" length="10" usage="inputoutput" />
- <!-- Erreur : type de donn{es non admis (E) -->

Any idea why?



-----Message d'origine-----
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Mark S. Waterbury

I think you guys are all working too hard ... why not let the
compiler do the work for you?

Since at least V5R2, the ILE RPG IV compiler command has the
optional parameter PGMINFO(*PCML), which generates a PCML XML
file in the IFS, that you specify with the INFOSTMF parameter.

This should be a lot easier to read and parse, to find the "interface"
information -- the main procedure and its parameters, type,
length, decimal places, etc., versus trying to "wade through"
all of the RPG IV source code ... :-o

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.