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



Vern, I'd like to tell that to someone who's trying to tell me the record length is not important. Where did you get that information from?

Thanks, the others. I guess that explains why LPEX editor only shows 80 positions. And maybe I WILL use the last 20 columns for comments - just to tease the greenscreeners (everyone else) in the shop!

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Vern Hamberg
Envoyé : jeudi 13 novembre 2008 13:35
À : RPG programming on the AS400 / iSeries
Objet : Re: CRTSQLRPGI problem

David

You probably have not lost any code - the last 20 characters of the record are comments in fixed-column format - I forget about free form.
But the compiler does insist on a record length of 112, as far as I know.

HTH
Vern

David FOXWELL wrote:
Hi,

A colleague has a problem while testing his installation process. The SQLRPGLE in several libraries need to be recompiled. However, one particular library seemed to pose a problem and all the compiles failed. None of the sources had been modified.

In the job log after CRTSQLRPGI OBJ(SQLOBJ) RPGPPOPT(*LVL1) we were getting strange messages.

I executed this command interactively and got this on the message line :
Membre SQLOBJ du fichier QSQLPRE de QTEMP non trouvé. (not found)

Which is false, the member was created in QTEMP. F1 on the message then F10 gives :


CRTSQLRPGI OBJ(SQLOBJ) RPGPPOPT(*LVL1) Fichier QSQLPRE créé dans la
bibliothèque QTEMP.
Membre SQLOBJ ajouté au fichier QSQLPRE de QTEMP.
Membre SQLOBJ du fichier QSQLPRE de QTEMP modifié.
Contrôle de diagnostic du source terminé. Gravité maximale 00.
Propriété de l'objet RETURNCODE de QTEMP, type *DTAARA modifiée.
Zone de données RETURNCODE créée dans bibliothèque QTEMP.
Membre SQLOBJ du fichier QRPGLESRC de MYLIB déjà ouvert ou comporte
une erreur.
Membre SQLOBJ du fichier QSQLPRE de QTEMP non trouvé.
La précompilation SQL n'a pas abouti.


The error was provoked by a problem with QRPGLESRC. I looked and found that it seems to have been modified to a record length of 92. I copied the source to another file of 112 long and the compile went ahead OK.

I am presuming that someone has modified QRPGLESRC between now and the creation date of the module. Or is it possible that CRTSQLRPGI worked but no longer works with a file length of 92?

I could restore the SRCPF from a tape at the date of creation of the module if I have to.

Is it possible that information from the source has been lost, yet the module still compiles? I think there is a risk although small.

Thanks.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.


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.