Comparaison et reformat

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

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

Bonjour Luc,

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