Te paso los fuentes . 

En realidad me quede con la duda si se podia, y, si se puede . 


Pantalla


A                                      DSPSIZ(24 80 *DS3)            
A          R INZ                                                     
A                                      CF13(13)                      
A                                      CSRLOC(SETROW     SETCOL)     
A            FLD001         1A  B  6 26CHECK(ER)                     
A            FLD002         1A  B  6 28CHECK(ER)                     
A            FLD003         1A  B  6 30CHECK(ER)                     
A            FLD004         1A  B  6 32CHECK(ER)                     
A            FLD005         1A  B  6 34CHECK(ER)                     
A            FLD006         1A  B  6 36CHECK(ER)                     
A            FLD007         1A  B  6 38CHECK(ER)                     
A            FLD008         1A  B  6 40CHECK(ER)                     
A            FLD009         1A  B  6 42CHECK(ER)                     
A            FLD010         1A  B  6 44CHECK(ER)                     
A            FLD011        10A  B  5 26                              
A                                 21  4'Presione F13 para confirmar' 
A                                      COLOR(BLU)                    
A                                  5  3'usuario'                        
A                                  6  3'contrase�a'                     
A            SETROW         3S 0H                                       
A            SETCOL         3S 0H                                       
A            PAS           10   O  7 26                                 

programa 

FA1      CF  E                    WORKSTN      KINFDS LOCATE           
 *                                                                     
E                    L          10  1                                  
E                    B          10  1                                  
 *                                                                     
IDS1         DS                                                        
I                                        1  10 PASWRD                  
I                                        1   1 FLD001                  
I                                        2   2 FLD002                  
I                                        3   3 FLD003                  
I                                        4   4 FLD004                  
I                                        5   5 FLD005                  
I                                        6   6 FLD006                  
I                                        7   7 FLD007                  
I                                        8   8 FLD008                  
I                                        9   9 FLD009                  
I                                       10  10 FLD010                  
I                                        1  10 L                       
 *                                                                     
ILOCATE      DS                                                        
I                                    B 370 3710CURSOR                   
I                                    B 378 3790FIRST                    
 *                                                                      
C                     EXFMTINZ                                          
 *                                                                      
C           *IN13     DOWEQ*OFF                                         
 *                                                                      
C           1         DO   10        X       30                         
 *                                                                      
C           L,X       IFNE ' '                                          
C           L,X       ANDNE'*'                                          
C                     MOVELL,X       B,X                                
C                     MOVEL'*'       L,X                                
C           CURSOR    DIV  256       SETROW                             
C                     MVR            SETCOL                             
 *                                                                      
C           SETROW    IFEQ 6                                            
 *                                                                      
C           SETCOL    IFGE 26                                           
C           SETCOL    ANDLE42                                           
C                     ADD  2         SETCOL                             
C                     ENDIF                                             
C                     ENDIF                                             
C                     EXFMTINZ                                          
C                     ENDIF                                             
C                     ENDDO                                             
C  N13                EXFMTINZ                                          
C                     ENDDO                                             
C                     MOVEAB,1       L,1                                
C                     SETON                     LR                      


> -----Mensaje original-----
> De:   Cupertino Zarate Lara [SMTP:[EMAIL PROTECTED]]
> Enviado el:   Martes, 29 de Octubre de 2002 08:13 p.m.
> Para: [EMAIL PROTECTED]
> Asunto:       Password
> 
> 
> 
> Hola estimados,
>  
> Tengo la siguiente pregunta, mi jefe me pide que en una pantalla donde se teclee un 
>password en lugar de letras aparescan asteriscos, alguien ha realizado algo asi. De 
>antemano gracias.
>  
> Saludos desde Mexico D.F.

La informacion contenida en este correo es para uso exclusivo de los destinatarios del 
mismo.
Esta prohibido a las personas o entidades que no sean los destinatarios de este correo
realizar cualquier tipo de modificacion, copia o distribucion del mismo.
Si Usted recibe este correo por error tenga bien notificar al emisor y eliminarlo.

_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja, env�a el mensaje resultante de pulsar
mailto:forum.help400-request@;combios.es?body=LEAVE

Responder a