FORUM MP | Cobol : passage de nimuscule en majuscule

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

passage de nimuscule en majuscule
	Forum : COBOL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ COBOL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM COBOL
	Page précedente	Page suivante

SNOOPY
Nouveau membre

Inscrit : 12/10/2004
Messages : 17

#70015 Posté le 19/07/05 à 17:56

Existe'il une commande COBOL permettant de trasformer une chiane de caractères minuscule en majuscule !!!!

merci cela me dépannerait Smiley

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

bambou
Nouveau membre

Inscrit : 22/03/2005
Messages : 7

#70147 Posté le 20/07/05 à 21:19

Bonjour,

Je crois que tu peux utiliser aussi converting (note de jm pour conversion de majuscule en minuscule)

Exemple de converting :
INSPECT ZONE CONVERTING '123' to 'abc'
1 devient a
2 devient b
3 devient c dans la ZONE

Le problème c'est que tu dois écrire en dure les données ... Smiley

Sinon pas d'autre idée ... Smiley

HAUT DE PAGE

bambou
Nouveau membre

Inscrit : 22/03/2005
Messages : 7

#70149 Posté le 20/07/05 à 21:26

En bouquinant un peu, je crois qu'on peut aussi utiliser replacing all

Exemple de replacing
INSPECT ZONF REPLACING ALL 'S' BY 'F'
Avec ZONF = 'SUITE' nous aurons en fin d'instruction ZONF ='FUITE'

C'est peut-être un peu fastidieux ...mais j'ai rien trouver d'autre ! Smiley

HAUT DE PAGE

bul
Membre du club

Inscrit : 26/01/2004
Messages : 951

#70237 Posté le 22/07/05 à 09:28

bonjour,
j'aurais fait ça "à la main"
aujourd'hui il existe peut-être
des fonctions qui font ça "tout seul" ?

01 bin pic s9(4) comp. 01 ref redefines bin. 03 filler pic X. 03 num pic X. 77 maxi pic s9(4) comp value "lg maxi". 77 emis pic X occurs maxi. 77 ind pix s9(4) comp. .... move 0 to ind. loop. add 1 to ind if ind > maxi then go to fin. if emis ( ind ) not < "a" and emis ( ind ) not > "z" then move emis ( ind ) to num subtract 32 from ref move num to emis ( ind ). go to loop. fin.

valable pour code Ascii,
a-z = 61 à 7A en héxa
A-Z = 41 à 51, soit 32 de moins.

pas testé, avec sûrement des
fautes de frappe...
j'ai mis des go to, sciemment,
car ça na plait pas à tout le monde.

@+
__________________________
~ mon site ~ m'écrire ~
Laissez une adresse Mail où vous écrire, en évitant les spams
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

HAUT DE PAGE

fto
Nouveau membre

Inscrit : 12/09/2006
Messages : 1

#109945 Posté le 12/09/06 à 10:51

Bonjour,

Un peu tardif pour ma réponse mais ce problème peut être de nouveai posé !

FUNCTION UPPER-CASE(argument)

Exemple :

DISPLAY 'UPPER-CASE OF cde is ' FUNCTION UPPER-CASE(cde)

affichera pour résultat : UPPER-CASE OF cde IS CDE

HAUT DE PAGE

HULK77
Modérateur :
- Cobol

Inscrit : 12/08/2004
Messages : 160

#110168 Posté le 13/09/06 à 20:40

Bonjour,

Complément à ce que nous dit FTO.

Depuis le COBOL ANS 85 il existe des fonctions Intrinsèques.
Ce module de 42 fonctions intrinsèques est un identificateur de fonctions dans la Procédure Division. C'est une combinaison syntaxiquement correcte de chaînes de caractères et de séparateurs.
Le format général simplifié est : FUNTION nom de fonction (Argument 1)

Dans le cas qui nous intéresse, c'est à dire transformer une chaîne de caractères Minuscule en une chaîne de caractères Majuscule cela donne :

COB MOVE FUNCTION
UPPER-CASE (I-001030) <=== champ contenant les minuscules
TO I-00130 <=== champ contenant les majuscules

A l'inverse cela donne :

COB MOVE FUNCTION
LOWER-CASE (I-001030) <=== champ contenant les majuscules
TO I-00130 <=== champ contenant les minuscules

****** D'autres exemples :
77 MAX PIC 999 VALUE 100.
Générer 3 NB ENTIERS >= 0 et < MAX
COMPUTE X = MAX * FUNCTION RANDOM
COMPUTE Y = MAX * FUNCTION RANDOM
COMPUTE Z = MAX * FUNCTION RANDOM
DISPLAY "X = " X " Y = " Y " Z = " Z.

****** Calcul d'une moyenne
COMPUTE MOYENNE = FUNCTION MEAN(X, Y, Z)
MOVE MOYENNE TO MOYENNE-E
DISPLAY "La moyenne est de : " MOYENNE-E.

******* Calcul de l'écart type
COMPUTE ECART-TYPE-E =
FUNCTION SQRT (
FUNCTION SUM(
(X - MOYENNE) * (X - MOYENNE),
(Y - MOYENNE) * (Y - MOYENNE),
(Y - MOYENNE) * (Y - MOYENNE)
) / 3
)
DISPLAY "l_écart type (formule) : " ECART-TYPE-E.

Je pourrai vous fournir pour ceux que cela intéresse le tableau des 42
FONCTIONS intrinsèques vac des exemples.

A +
HULK77
__________________________
Ma fabrique de chemises tourne à plein régime !!!

HAUT DE PAGE

jusfry
Nouveau membre

Inscrit : 11/10/2006
Messages : 9

#112557 Posté le 14/10/06 à 18:03

Salut hulk,

Moi je suis preneur... Smiley

A+
__________________________
Dans la vie ce qui compte, c'est pas l'issue, c'est le combat. (MS)

HAUT DE PAGE

gaby31
Nouveau membre

Inscrit : 07/09/2007
Messages : 4

#142433 Posté le 07/09/07 à 10:04

Une autre solution assez radicale :
Dans le profil : metre "CAPS ON". dans ce cas toutes les données traitées en entrée seront en MAJUSCULE en sortie.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM COBOL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.