Discussion :

[a_karim_fr]

Bonjour,

J'ai un fichier et je veux décaler les enregistrements a droit sans passé par la commande > car il va décalé toute les enregistrement mais je veux décaler que une position voila un exemple :

Code :

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

1
2
3
4
MLE           NOM       PRENOM     SAL
01             AAA         BBBB         10.00
02             CCC         DDD          20.00
03             EEE          FFF          30.00

Je veux décaler le PRENOM à la place de NOM et je veux avoir que

Code :

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

1
2
MLE        PRENOM       SAL

Est ce que il y a une commande ou une moyenne car si je supprime le NOM alors il va rester un décalage d'espace

[Homer-ac]

Bonjour,
Si j'ai bien compris puisque tu cites la commande > (commande de ligne sous EDIT pour décalage droite sans perte de donnée), la question concerne les commandes EDIT sous TSO/ISPF et pas COBOL. Si c'est le cas, merci de le confirmer et revoir le titre pour que ce post soit déplacé dans le sous-forum z/OS.
Je vais au moins essayer de répondre pour les commandes EDIT.
0) On suppose que l'on veut éliminer la colonne NAMES en position 12 sur 15 caractères.
1) sur la ligne commande : BOUNDS 12 *
(on ne prend en compte que les colonnes 12 à la fin)
2) en commande de ligne :
1ere ligne ((15
dernière ligne à prendre en compte (( et enter
-> décalage gauche inconditionnel : les 15 colonnes sont supprimées et la suite décalée d'autant.
3) commande BOUNDS 1 * (ou BNDS 1 *) pour rétablir la prise en compte de tout (sinon le dernier BNDS reste en effet par défaut, c'est donc risqué !
4) vérification et SAVE

Autre solution, par change P'=' (ou P'^') X'40' 12 26 all
On change tous les caractères (=) ou non blancs (^) par un blanc.
Fais des tests et regardes dans le Help les multiples posibilités de P'?' sur find ou change

[a_karim_fr]

Bonjour,

C'est fait avec la commande BOUNDS , Merci pour votre réponse