Discussion :

[R4ndy]

As-tu essayé de compiler en interactif avec la fameuse bibliothèque en ligne ?

Oui j'ai toujours une erreur.. et c'est la même.

Il n'y a aucune raison que cela ne fonctionne pas sauf à ne pas avoir de droits sur les objets, mais cela m'étonnerait puisque c'est toi qui a du les créer.

Oui c'est moi qui les ai créés.

Va sous PDM dans la gestion des membres et fais F18.
Relève le nom de la JOBD de soumission et,avec la commande CHGJOBD, ajoutes-y la bibliothèque en question au niveau du mot clé INLLIBL puis recompile.

J'ai essayé de faire ce que tu m'a dis, mais ça n'a pas l'air de fonctionner... A moins que j'ai mal compris...

[Mercure]

Qu'est-ce que tu n'as pas compris ? Développe les manips' que tu as faites.

[R4ndy]

Je détaille :
- STRPDM option 3
- F18, j'arrive sur "Modification des valeurs par défaut"
- Je consulte le champ "Description de travail", qui est dans mon cas QBATCH (dans la *LIBL)
- Ensuite je fais CHGJOBD QBATCH, F4, F10 et enfin F11 pour afficher le champ INLLIBL,
- Je rentre la bibliothèque où se trouve mon fichier source SQLRPGLE,
- Je valide,
- Je recompile.

[R4ndy]

Bon j'ai mon SQLRPGLE qui est fonctionnel. Je l'ai compilé, et fait fonctionner sans problème.
J'ai fait à côté mon PRTF, que j'ai aussi compiler sans problème.

De là, j'ai voulu les associer afin d'arriver à ce que je veux : sortir un document en impression. Mais c'est à partir de ce moment que j'ai mon problème.

Je te screen la déclaration de mon PRTF dans le SQLRPGLE :


Je te screen ce que je fais en interactif :


Voici le PRTF après compilation :


Voici ma LIBL :



Je ne comprend pas pourquoi ça ne fonctionne pas...

[Simka1000]

Bonjour

Peut être un fichier PSDPRINT present dans une autre bibliothèque présente en ligne ?

Executes cette commande pour vérifier si il n'y aurait pas de doublons !

WRKOBJ OBJ(*ALL/PSDPRINT) OBJTYPE(*FILE)

[Mercure]

Une erreur de compil de cette nature, ça doit être gros !

Fais voir la liste des bibliothèques (INLLIBL) de la JOBD *LIBL/QBATCH, stp.

[R4ndy]

Executes cette commande pour vérifier si il n'y aurait pas de doublons !

Salut, je n'ai qu'un objet qui apparait et c'est celui que j'ai créé dans la bonne bibliothèque. Donc pas de doublons.

Une erreur de compil de cette nature, ça doit être gros !

Fais voir la liste des bibliothèques (INLLIBL) de la JOBD *LIBL/QBATCH, stp.

Je te montre, j'ai fais ça (j'ai remis la valeur par défaut sous les conseils de Fabrice_44 ) :



Je me suis trompé ?! si oui, comment fait on pour l'afficher ?!

[Mercure]

Ce que tu as dans la JOBD QBATCH n'est certainement pas bon.

Crée-toi une nouvelle JOBD (R4NDY dans ta propre biblio), par CRTDUPOBJ de la JOBD QBATCH et, sur la JOBD R4NDY, mets-y la liste des biblio dont tu as besoin au niveau du mot clé INLLIBL.

Mets le nom de cette nouvelle JOBD à la place de "QBATCH" sur le paramètre par défaut de PDM (<F18>) et recompile en batch.

[R4ndy]

J'ai créé ma nouvelle JOBD, je la met dans les paramètres par défaut de PDM, et je recompile. Bonne nouvelle je n'ai plus l'erreur précédente, à savoir :

Définition externe du fichier PSDPRINT non trouvée.

Mais, y'en a toujours un , j'ai 21 nouvelles erreurs :

*RNF0257 30 1 Type de spécification de procédure principale incorrect ou hors séquence. (erreur 1)
*RNF7030 30 10 Le nom ou l'indicateur n'est pas défini. (erreur 2)
*RNF7503 30 10 L'expression contient un opérande non défini. (erreur 3)

La première concerne cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FPSDPRINT  O    E             PRINTER

La deuxième et troisième erreur concerne celles ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
          Eval $PSDPPRO = PSDPPRO;
          Eval $PSDCTRA = PSDCTRA;
          Eval $PSDDARR = PSDDARR;
          Eval $PSDPEXP = PSDPEXP;
          Eval $PSDPDES = PSDPDES;
          Eval $PSDNPAQ = PSDNPAQ;
          Eval $PSDTDEC = PSDTDEC;
          Eval $PSDNOAE = PSDNOAE;
          Eval $PSDNMMT = PSDNMMT;

          WRITE $HAUT;

Toutes ces lignes concerne mon PRTF dans mon SQLRPGLE.

[Mercure]

C'est l'erreur classique qu'on rencontre avec tous les compilateurs que je connais. En effet, le simple fait que la déclaration de ton PRTF ne soit pas reconnue par le compilateur entraîne toutes les autres erreurs sur les lignes où ce PRTF est impliqué.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
FPSDPRINT  O    E             PRINTER
*RNF0257 30 1 Type de spécification de procédure principale incorrect ou hors séquence. (erreur 1)

Les spécifications F doivent commencer en colonne 6 et être placées juste après la spécification H.
C'est la B-A BA du programmeur RPG.

[R4ndy]

Les spécifications F doivent commencer en colonne 6

Ca c'est déjà fait donc ca ne vient pas de là.

être placées juste après la spécification H.

Avant la spécification F j'avais une spécification D. M'enfin j'ai modifié, et j'ai de nouveau des erreurs :

*RNF7030 30 3 Le nom ou l'indicateur n'est pas défini.
*RNF7503 30 3 L'expression contient un opérande non défini.

*RNF7030 30 518 017200 Le nom ou l'indicateur $PSDNMMT n'est pas défini.
*RNF7030 30 517 017100 Le nom ou l'indicateur $PSDNOAE n'est pas défini.
*RNF7030 30 516 017000 Le nom ou l'indicateur $PSDTDEC n'est pas défini.
*RNF7503 30 516 017000 L'expression contient un opérande non défini.
*RNF7503 30 517 017100 L'expression contient un opérande non défini.
*RNF7503 30 518 017200 L'expression contient un opérande non défini.

Faut il que je déclare ces variables dans mon SQLRPGLE alors qu'elles le sont déjà dan mon PRTF ?!

[Green Hornet]

Bonjour,
ma petite pierre à l'édifice.

Le cycle RPG : Beurk.
Aucune lisibilité.

Moi je te recommande de programmer en format variable ce qui devrait se rapprocher d'un autre langage récent, si tu en connais un.

Mais c'est juste mon avis.

Sorry Mercure pour cet avis à rebrousse poil, mais bon j'ai quelques millier de lignes de RPG3 et IV à mon actif, et quand tu programmes par exemple en VBA en en RPG III avec le cycle, c'est je trouve pour pêter une case.

Mais il est vrai qu'avec le cycle le code est "vachement plus court".

Bonne soirée.

je suis du même avis que toi pour la syntaxe libe mais pas pour le cycle, j'ai rongé mon frein durant 9 ans en RPG3, depuis 1 an, je m'éclate avec la syntaxe libre du RPG4 mais je ne renierai jamais le cycle GAP qui permet de gagner des lignes, certes, mais du temps de codage pour des opérations somme toutes simplistes

[Simka1000]

Franchement , le message 7030 est clair..c'est que les 3 zones ne sont pas trouvées par le compilateur dans le PRTF externe..

Peux tu nous montrer , un spool de compilation et particulièrement la partie contenant les zones OUTPUT et leur définition des differents formats du PRTF (identifiées par A000XXX)

[R4ndy]

Franchement , le message 7030 est clair..c'est que les 3 zones ne sont pas trouvées par le compilateur dans le PRTF externe..

Peux tu nous montrer , un spool de compilation et particulièrement la partie contenant les zones OUTPUT et leur définition des differents formats du PRTF (identifiées par A000XXX)

Salut, le problème venait du fait que je n'utilisais qu'un seul format dans mon SQLRPGLE... alors que j'utilisais des variables d'autres formats.
Donc ce problème est résolu.

Ma compilation se réalise sans problème. J'exécute mon programme, et j'ai une nouvelle erreur :


J'ai parcouru le net, l'aide IBM...mais sans vraiment trouver de réponse. Une idée ?!

[Simka1000]

CPF4101 : Fichier PSDPRINT non trouvé ....vérifie ta liste de bibliothèque

[R4ndy]

Bon j'ai résolu le problème en mettant mon prtf directement dans les bibliothèque où se trouve le programme, et plus dans la LIB de test...

[R4ndy]

Salut,
J'ai quelques soucis avec mon impression...lors de la compilation de mon prtf je n'arrive pas à avoir ce que je veux sur ma feuille.
Je modifie les paramètres suivants :
PAGESIZE : 70 et 132
CPI : 20
OVRFLW : 66
PAGRTT : 0
OUTQ : nom_de_mon_outq

J'ai des record qui se "coupent" en fin de page pour passer à la suivante, Puis-je passer directement a la page suivante pour imprimer le record entièrement ? (il me semble que c'est fold mais ça n'a pas l'air de fonctionner)