Discussion :

[ALaurent22]

Bonjour,

Pouvez-vous m'indiquer quel PGM dois-je utiliser pour filtrer un fichier de manière à récupérer un nombre voulu de ligne en début et fin de fichier.
Je suis aussi preneur d'un exemple.

Exemple de résultat attendu en gardant que les 2 premières et 2 dernières lignes.

Code :

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

1
2
3
4
5
6
7
FIC1                     = > FIC2
1234                      1234
1235                      1235
1236                      1238
1237                      1239
1238
1239

[sam01]

Salut,

IDCAMS est ton ami

Voir SKIP et COUNT

[ALaurent22]

A-tu un exemple ou un lien vers une documentation?

Je débute dans la mise en place de JCL

[coderetour0]

salut,

idcams ne t'aidera pas dans ton cas (nb d'enreg non connu !!)

pour obtenir les 2 premieres lignes utilise dfsort

Code :

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

 SORT FIELDS=COPY,STOPAFT=2

tri ton fichier inversement et repasse la meme commande. fichier en sortie en disp=mod

plus simple, sans doute, si tu as file-aid, de souvenir j'utilisais la commande copyback pour extraire en batch des lignes par la fin d'un fichier.

++

[ALaurent22]

Le tri inverse, j'y avais pas pensé.
Merci beaucoup.

Je connais pas file-aid, peux-tu me fournir un lien vers une documentation adaptée au newbie comme moi ?

[coderetour0]

je n'ai pas la doc malheureusement. juste ce pdf 05_Ch02_File-AID_Batch_copy.pdf que je peux t'envoyer par mail.

c le pb des doc non ibm. fileaid en batch est utilise a la maaf (niort) ...

++

[Luc Orient]

A mon sens et sauf erreur de ma part, ICETOOL sait faire cela en une seule passe (opérateur SUBSET) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//ICETOOL EXEC PGM=ICETOOL,REGION=1024K
//* NE GARDER QUE LES DEUX PREMIERS ENREGISTREMENTS
//* ET LES DEUX DERNIERS D'UN FICHIER
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TOOLIN DD *
 SUBSET FROM(INDD) TO(OUTDD) KEEP INPUT FIRST(2) LAST(2)
//INDD DD *
1234
1235
1236
1237
1238
1239
//OUTDD DD SYSOUT=*