Suppression de colonne d'un fichier par jcl

[twisty]

Bonjour,

Je souhaite supprimer les deux premières colonnes d'un fichier variable (séparation des colonnes par un ";"), par un jcl, selon des conditions précises, en sachant que ces dernières ont des informations fixes. Qu'elles seraient les instructions à utiliser (si possible par un SORT) ?

Ex :
Homme;adulte;BERTRAND;eric
Femme;enfant;MARTIN;anne
Homme;adulte;DUPOND;andré

Je souhaite obtenir un fichier de sortie en supprimant les deux premières colonnes, à condition que l'article est une femme, soit :

Homme;adulte;BERTRAND;eric
MARTIN;anne
Homme;adulte;DUPOND;andré

Pourriez-vous m'aider ?

Twisty

[Pico-----]

Salut,

Je pense que tu peux t'en sortir avec un OUTREC et un PARSE.
Leur description est dans la documentation officielle : http://publib.boulder.ibm.com/infoce...2Fice1ca50.htm

[bernard59139]

bonjour

je confirme la réponse du collègue. dans l'OUTREC tu fais un PARSE (éclatement) des colonnes.et tu recontruis le fichier avec un BUILD.

rapidement écrit, ceci est une bonne base:

Code :

1
2
3
4
5
OPTION COPY
  OUTREC PARSE=(%00=(ENDBEFR=C';',FIXLEN=50),
                         %01=(ENDBEFR=C',',FIXLEN=50),
                         %02=(FIXLEN=50)),
  BUILD=(%02,SQZ=(SHIFT=RIGHT))

[bernard59139]

j'oubliai, il faut adapter avec des IFTHEN.
a+

[Luc Orient]

Envoyé par twisty

... Je souhaite supprimer les deux premières colonnes d'un fichier variable (séparation des colonnes par un ";"), par un jcl, selon des conditions précises, en sachant que ces dernières ont des informations fixes. Qu'elles seraient les instructions à utiliser (si possible par un SORT) ?

Si les informations sont fixes, on n'est peut-être pas obligé de passer par l'opérateur PARSE. Par rapport à l'exemple donné, voici ce que je suggère avec l'utilisation de l'opérateur FINDREP (exemple testé) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
//SORT EXEC PGM=SORT 
//* SUPPRESSION DE 2 COLONNES DANS UN FICHIER AVEC CONDITION 
//SYSOUT DD SYSOUT=* 
//SYSIN DD * 
 OPTION COPY 
 OUTFIL IFTHEN=(WHEN=(1,5,CH,EQ,C'FEMME'), 
        FINDREP=(INOUT=(C'ENFANT;',C'',C'FEMME;',C''))) 
//SORTIN DD * 
HOMME;ADULTE;BERTRAND;ERIC 
FEMME;ENFANT;MARTIN;ANNE 
HOMME;ADULTE;DUPOND;ANDRé 
//SORTOUT DD SYSOUT=*

[bernard59139]

Bien vu................

[twisty]

Merci, ça marche très bien. Mais, si je veux supprimer une colonne entière, située entre deux autres colonnes sans condition, les instructions FINDREP et INOUT sont inutilisables.

exemple de fichier:

Monsieur;ami ;BERTRAND;éric
Madame ;cousin ;VALMON ;véronique
Monsieur;neveu ;DUPONT ;andré

Je veux supprimer la colonne où se trouve ami,cousin,neveu .

Qu'elles instructions dois-je utiliser ?

Merci d'avance Twisty

[bernard59139]

Mon exemple devrait suffire.
A completer par la lecture de la doc.

a+

[twisty]

Bonjour,

J'utilise effectivement les instructions PARSE,ENDBEFR,FIXLEN,et BUILD avec l'exemple suivant :

//SYSIN DD *
OUTREC PARSE=(%01=(ABSPOS=5,ENDBEFR=C';',FIXLEN=6),
%02=(ENDBEFR=C';',FIXLEN=6),
%03=(FIXLEN=8)),
BUILD=(1,4,5:%01,12:03,24:X)

Note : c'est un fichier variable de longueur : 24 (en comptant les 41er caractère)
ex :
MARTIN;éric ;comptable
DUPOND;alain;médecin

En résultat, j'ai ceci :

MARTIN ;comptable
DUPOND ;médecin

En fait, il manque le ";" après les noms. En changeant la longueru FIXLEN=7, c'est pareil. Faut-il rajouter une instruction supplémantaire pour avoir le ";", après les noms ?

Merci d'avance.

Twisty

[bernard59139]

Code :

1
2
3
4
5
6
7
8
SORT FIELDS=COPY
INREC  PARSE=(%00=(ABSPOS=5,ENDBEFR=C';',FIXLEN=09),
              %01=(ENDBEFR=C';',FIXLEN=09),
              %02=(ENDBEFR=C';',FIXLEN=09)),
       BUILD=(1,4,%00,SQZ=(SHIFT=LEFT,TRAIL=C';'),
            %02,SQZ=(SHIFT=LEFT,TRAIL=C';'))
OUTFIL  VLTRIM=C' ',
        BUILD=(1,4,5,18,SQZ=(SHIFT=LEFT))