Discussion :

[Deldemone]

Bonjour,


Une nouvelle problématique que je n'arrive pas résoudre, pourriez-vous m'aider ?

je vais essayer d'être claire
Voici le contenu de fichier d'entrée (ARBDE.AEDEMOD.TEMP0001.PSWV00) :

----+----1----+----2----+----3----+
00001 STLKEYR ;00026
00002 STLKEYR ;00045
00003 STLKEYR ;00065
00004 STLKEYR ;00083
00005 STLKEYRS;00101
00006 STLKEYRP;00102
00007 STLKEYRD;00120
00008 STLKEYRS;00177
00009 STLKEYRP;00178
00010 STLKEYRD;00197
00011 STLKEYRD;00216
00012 STLKEYRP;00235
00013 STLKEYRS;00236


Je voudrais que lorsque qu'il y a 2 entrées consécutives en position 16 (en rouge dans mon fichier d'entrée ci dessus) remplacer la valeur de la position 16 de l'enregistrement précédent
avec la valeur de la position 7 et de sauter un enregistrement et continuer...
Fichier résultat souhaité (ARBDE.AEDEMOD.TEMP0002.PSWV00):


----+----1----+----2----+----3----+
00001 STLKEYR ;00026
00002 STLKEYR ;00045
00003 STLKEYR ;00065
00004 STLKEYR ;00083
00005 STLKEYRS; STLKEYRP <= modifié
00006 STLKEYRP;00102 <= supprimé
00007 STLKEYRD;00120
00008 STLKEYRS; STLKEYRP
00009 STLKEYRP;00178
00010 STLKEYRD;00197
00011 STLKEYRD;00216
00012 STLKEYRP; STLKEYRS <= modifié
00013 STLKEYRS;00236 <= supprimé

Merci bcp à qui m'orientera

@Bientôt
DelDemone

[Luc Orient]

Plutôt difficile à coder avec DFSORT me semble t il ... En tout cas, là je ne vois pas comment faire ...

Par contre, en REXX, ça devrait pouvoir se coder, ou même en COBOL, pourquoi pas ...

[Deldemone]

Bonjour Luc,

Je vais me documenter sur Reex merci pour la piste 😊
Bon week-end