Mayusculas en las primeras palabras

[Gatomalo]

Nesecito poder hacer una rutina donde ingrese "juan jose del carpio sanchez" y me devuelva
"Juan Jose Del Carpio Sanchez"

[Kuk]

gatomalo, aqui tienes un codigo COBOL normal y corriente que funcionaria en cualquier compilador:


WORKING-STORAGE SECTION.
01 MI-CAMPO PIC X(100).

PROCEDURE DIVISION.

MOVE 1 TO IDX-1

PERFORM UNTIL IDX-1 > 100
INSPECT MI-CAMPO(IDX-1) CONVERTING
"abcdefghijklmnopqrstuvwxyz" TO
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"

PERFORM UNTIL MI-CAMPO(IDX-1) = SPACES OR IDX-1 = 100
ADD 1 TO IDX-1
END-PERFORM

ADD 1 TO IDX-1
END-PERFORM

[Josber]

Aquí tienes otro, el de Kuk no lo he probado, por lo que no sé si tiene en cuenta el que haya más de 1 espacio entre dos palabras, en éste sí. Como el de Kuk, funciona perfectamente con cualquier COBOL.


WORKING-STORAGE SECTION.
01 TT1.
03 T1 PIC X OCCURS 100.
01 I PIC 999 COMP-3.
01 II PIC 999 COMP-3.
01 III PIC 999 COMP-3.
PROCEDURE DIVISION.

MOVE tu_variable TO TT1.

PERFORM VARYING I FROM 100 BY -1
UNTIL I = 1 OR T1 (I) NOT = SPACES
CONTINUE
END-PERFORM.

MOVE 0 TO II III.

PERFORM VARYING II FROM 1 BY 1 UNTIL II > I OR II = 100
IF T1 (II) = SPACES
COMPUTE III = II + 1
IF T1 (III) NOT = SPACES
INSPECT T1 (III) CONVERTING
"abcdefghijklmnñopqrstuvwxyz" TO
"ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
END-IF
END-IF
END-PERFORM.


Un saludo.-

[Kuk]

Josber, el mio no lo tiene en cuenta. Habria que meterle otro bucle por medio, y asi lo tiene en cuenta:


WORKING-STORAGE SECTION.
01 MI-CAMPO PIC X(100).

PROCEDURE DIVISION.

MOVE 1 TO IDX-1

PERFORM UNTIL IDX-1 > 100
PERFORM UNTIL MI-CAMPO(IDX-1:1) NOT = SPACES OR IDX-1 > 100
ADD 1 TO IDX-1
END-PERFORM

IF IDX-1 NOT > 100
INSPECT MI-CAMPO(IDX-1:1) CONVERTING
"abcdefghijklmnopqrstuvwxyz" TO
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"

PERFORM UNTIL MI-CAMPO(IDX-1:1) = SPACES OR IDX-1 > 100
ADD 1 TO IDX-1
END-PERFORM
END-IF
END-PERFORM

[Gatomalo]

Josfer
En tu rutina la primera palabra no cambia ingreso "juan jose del carpio sanchez" devuelve
"juan Jose Del Carpio Sanchez" .

Kuk en tu rutina me bota error en ":" must be specified in the reference modifier .":" is assumed

[Hrmcobol]

Hola GatoMalo, fijate que esto me parece que tambien anda en RM
Saludos

inspect CAMPO replacing all " a" by " A".
inspect CAMPO replacing all " b" by " B".
inspect CAMPO replacing all " c" by " C".
inspect CAMPO replacing all " d" by " D".
inspect CAMPO replacing all " e" by " E".
inspect CAMPO replacing all " f" by " F".


Añadido despues de 37 minutos
El ejemplo anterior no contempla la primer letra, agregar
INSPECT MI-CAMPO(IDX-1) CONVERTING
"abcdefghijklmnopqrstuvwxyz" TO
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Añadido despues de 43 minutos
No le tengo bien la mano a esta nueva manera de comunicarme, le erre en el codigo, reemplazar MI-CAMPO(IDX-1) POR CAMPO (01:01)
Disculpen

[Gatomalo]

Agregue estos codigo y ya funciona

03 T1 PIC X OCCURS 100.
01 I PIC 999 COMP-3.
01 II PIC 999 COMP-3.
01 III PIC 999 COMP-3.
PROCEDURE DIVISION.

MOVE tu_variable TO TT1.

PERFORM VARYING I FROM 100 BY -1
UNTIL I = 1 OR T1 (I) NOT = SPACES
CONTINUE
END-PERFORM.

MOVE 0 TO II III.

PERFORM VARYING II FROM 1 BY 1 UNTIL II > I OR II = 100
IF T1 (II) = SPACES
COMPUTE III = II + 1
IF T1 (III) NOT = SPACES
INSPECT T1 (III) CONVERTING
"abcdefghijklmnñopqrstuvwxyz" TO
"ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
END-IF
END-IF
END-PERFORM.
INSPECT T1 (1) CONVERTING "abcdefghijklmnñopqrstuvwxyz" TO
"ABCDEFGHIJKLMNÑOPQRSTUVWXYZ".

[Kuk]

Kuk en tu rutina me bota error en ":" must be specified in the reference modifier .":" is assumed

Ya lo he corregido, se me habia olvidado meter el ":1" ;)