RPG - Ecriture dans un même spool à partir de PGM RPG différents [Résolu]

[jenffou]

Bonjour,

J'essai d'écrire dans un même spool à partir de plusieurs PGM RPG, je pensais pouvoir le faire avec Usropn mais je n'y parviens pas.
Est-ce que quelqu'un aurrai une idée SVP.

Merci
Jenf

[jump400]

Bonjour,


Je pense que l'utilisation d'un ovrprtf en partage d'ouverture devrait résoudre le problème :

Il faut faire :

Code :

OVRPRTF FILE(X) SHARE(*YES)

avant la première ouverture, ensuite les autres ouvertures ne seront que des références à la première et tout ira dans le même spoule

[jenffou]

Merci Jump400 pour l'info, je viens de faire un essai mais il me crée toujours un spool à chaque fois, je vais voir un peu la doc concernant ce paramètre et voir ce qu'il en disent.
Jenf

[Mercure]

N'emploies pas share(*yes).

Une fois le printer file ouvert dans les n programmes, laisse le ouvert et ne le ferme qu'au tout dernier moment quand il n'y a plus rien à éditer, quitte à faire en final n appels pour le fermer proprement.
Si tes programmes sont du modèle OPM, un RCLRSC devrait faire l'affaire pour éviter ces n appels finaux.
Si modèle ILE et que les programmes tournent dans un groupe d'activation nommé propre, un RCLACTGRP ACTGRP(MonGroupe) devrait également pouvoir faire l'affaire.

[lva30]

Bonjour.
Pourquoi ne pas écrire dans un petit fichier de travail genre PF de 132 de long dans QTEMP et ensuite copier ce fichier en spool une fois tous les programmes terminés ?
Cdlt,

[c.lechene]

bonjour,
j'ai retrouvé un cas de figure identique qui fonctionne très bien; en fait, c'est très simple (*)

le schéma ci-dessous est repris d'un de nos progiciels , à savoir :

1) ou ouvre le fichier imprimante pour imprimer une page de garde (1er pgm avec un parm pour ne pas le fermer) (**)
2) on "enchaine" sur les autres pgms ( suite des impressions )
3) on ferme le fichier en rappelant le 1er pgm en lui passant un parm pour le fermer
sur un plan pratique :
1) faire un OVRPRTF avec SHARE(*YES)
2) ouvrir ce fichier avec un 1er pgm sans le fermer ( pas de SETON LR)
3) enchainer avec les autres *pgms
4) rappeler le 1er pgm pour fermer le fichier (SETON LR )

(*) important : le nom du fichier imprimante doit être identique dans tous les pgms concernés.
(**) j'ai un doute sur le 1er pgm, mais, il me semble qu'il faut le compiler en tant que pgm de type NEP ; à vérifier

[jenffou]

Bonjour,

Merci pour vos réponses, elle m'ont bien aidé.

Jenf