[Sintaxis] Transformar letra Minúscula a Mayúscula

[jmeza]

Hola, me podrían ayudar estoy emigrando de rmcobol a pawercobol v9o

- Como transformo letra minúscula a mayúscula en un campo alfabético
- Como valido un campo alfabético que no este vació antes de grabar.
- Como valido un campo numérico que sea mayor que cero antes de grabar
- Como genero un mensaje de advertencia por algún dato que falte antes de grabar

Saludos

[Roger]

Hola Juan
-convertir minuscula en mayuscula.

 MOVE NOMBRE-MAS TO nombre
            INSPECT NOMBRE CONVERTING "abcdefghijklmnñopqrstuvwxyz" 
           TO "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ".

-mensaje de advertencia

 01 OK PIC X(15).  
 01  STYL    PIC S9(9) COMP-5.
 01  M-TITLE PIC X(15) VALUE "Mensaje".
 01  RET     PIC S9(9) COMP-5.  
 PROCEDURE       DIVISION. 
 INICIO.
         
       if pow-text of cmtext13 = spaces   
       COMPUTE STYL = POW-DMOK + POW-DMNOICON
     INVOKE POW-SELF "DisplayMessage"
         USING "Cliente no esta registrado" M-TITLE STYL
         RETURNING RET
* When the push button is clicked.
     EVALUATE RET 
       WHEN POW-DMROK
         exit program
      END-EVALUATE.
 ABRE.

[Fito]

Hola:

Para pasar de minuscula a mayuscula podés usar una función:

        move function upper-case(minuscula)   to mayuscula.

Saludos. Fito...

[jmeza]

Hola Roger y Fito

La función enviada de convertir minuscula a MAYUSCULA, no logro hacerla que funcione
esta es la función de programación, de un campo alfabético.

Favor de revisar que esta malo

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 DATOS. 
    02 NOMBRE-MAS PIC X(27).
    02 NOMBRE     PIC X(27). 
 PROCEDURE       DIVISION.
      MOVE cmtext2 TO nombre
                INSPECT NOMBRE CONVERTING "abcdefghijklmnñopqrstuvwxyz"
                        TO "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ".
 
* esta tampoco funciona   
*     move cmtext2 upper-case (minuscula) to mayuscula.
 
     move pow-true to enabled of cmtext3.
     move pow-color-white to backcolor of cmtext3.
     invoke  cmtext3 "setfocus".

[jotica]

Para tu caso debes escribir

MOVE POW-TEXT OF Cmtext2 TO NOMBRE
MOVE FUNCTION UPPER-CASE (NOMBRE) TO NOMBRE-MAS

en NOMBRE estara en minuscula porque asi la debieron digitar en Cmtext2
Y en NOMBRE-MAS quedara el texto en mayuscula

Ahora si Cmtext2 es un control de tu form simplemente en las propiedades definalo como Upper y directamente estara en mayusculas asi lo digiten en minuscula

[Fito]

Hola:

En el ejemplo que te hice "minuscula" y "mayuscula" son variables alfanuméricas.

ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  minuscula       pic x(50).
01  mayuscula       pic x(50).
 
PROCEDURE DIVISION.
 
comienzo.
    move "abcdefgh"                     to minuscula.
    move function upper-case(minuscula) to mayuscula.
 
*> la variable mayuscula se carga con ABCDEFGH.

Saludos.

Fito...

[Roger]

Juan

La sintaxis en powercobol es

MOVE POW-TEXT OF CMTEX1 TO CAMPO
  MOVE POW-NUMERIC OF CMTEXT1 TO CAMPO

En el primer caso si es alfabetico.
el segundo si es númerico.

solo en el caso de mover blancos tanto en campo numericos y texto

MOVE SPACES TO POW-TEXT OF CMTEXT1.

[jotica]

Jmeza

Para tu necesidad 1a creo ya tienes varias respuestas, actualmente yo estoy usando la que te he enviado.
Para las otras necesidades tuyas lo que se hace es preguntar por el contenido del campo, si esta en espacios (caso alfabetico y/o alfamerico) o en zero (caso numerico) se envia un mensaje de error y finalizo el evento enviando el foco al respectivo campo.
Caso alfamerico:

IF CAMPO-ALFABETICO EQUAL SPACES
  INVOKE POW-SELF "DISPLAYMESSAGE" USING 
     "mensaje deseado"
     "Identificador del mensaje "
     Mesage-Style
   RETURNING ReturnValue
   INVOKE Cmtext1 "SetFocus"
   EXIT PROGRAM
END-IF

Para lo numerico se hace algo semejante, obviamente con el cambio coresponfiente.

Para mejor entendimiento del DISPLAYMESSAGE vea el manual de powerCOBOL

Espero le sirva de algo