Hola Andoni :
muchas gracias por el comentario , lo he probado como me has dicho
y me hace el cambio sin problemas de un subfichero a otro .
Adjunto como me ha quedado la cosa.
Un saludo y muchas gracias una vez mas.
El 20/02/07, Andoni (Infonegocio) <[EMAIL PROTECTED]> escribió:
Yo estas pantallas las hago con 2 subficheros de control con su
correspondiente subarchivo.
Los controlo mediante una tecla de función ya que necesitas 2 ficheros de
control.
Con un indicador llevas el control del subfichero a mostrar.
FALM001C1CF E WORKSTN
F NRR KSFILE SUBFI
F NRR KSFILE SUBFI2
C N30 EXFMTCONTROL
C 30 EXFMTCONTRO2
Saludos
=================================================================
The Tue, 20 Feb 2007 11:17:19 +0100 (MET)
"[EMAIL PROTECTED]" <[EMAIL PROTECTED]> escribió:
> Hola AndrÃ(c)s:
> Ten en cuenta que a la hora de efectuar el Write al reg. de
> subfichero, debes tener los indicadores activados/desactivados según
> el caso y para cada registro.
>
> TambiÃ(c)n puede ser mejor trabajar con los indicadores en On en lugar de
> en Off, para evitar que por N23, tambiÃ(c)n tengas el 22 en Off.
>
> Saludos.
> Toni.
>
> ----Mensaje original----
> De: [EMAIL PROTECTED]
> Recibido: 19/02/2007 15:39
> Para: <[email protected]>
> Asunto: superponer campos en subfichero de datos
>
> Hola :
>
> Alguien sabe si se pueden superponer campos en el subfichero de
> datos?, estoy intentando hacerlo mediante el siguiente codigo en el
> registro de datos del subfichero pero no consigo hacerlo :
>
> R DATOS SFL
> 070219
> 0000.60 A*%%TS SD 20070219 105749 ANDREW REL-V4R2M0
> 5769-PW1 070219
> 0000.70 A 74 SFLNXTCHG
> 070219
> 0000.80 A WOPC 1A B 7 2
> 070219
> 0000.90 A WCDZIP 5 O 7 4TEXT('Y')
> 070219
> 0001.00 A N22 DSPATR(ND)
> 070219
> 0001.10 A WCLIEH 20A O 7 4TEXT('Y')
> 070219
> 0001.20 A N23 DSPATR(ND)
> 070219
> 0001.30 A WCLIEN 20A O 7 13TEXT('Y')
> 070219
> 0001.31 A N22 DSPATR(ND)
> 070219
> 0001.32 A WCDZIH 5 O 7 25TEXT('Y')
> 070219
> 0001.33 A N23 DSPATR(ND)
>
> Lo que quiero hacer es que cuando introduzca en un campo del
> subfichero de control llamado VISTA : un 1 me muestre en el subfichero
> de datos las columnas WCDZIP y WCLIEN, y cuando sea un dos WCLIEN y
> WCDZIP. Solo he logrado mostrar la primera vista, en el subfichero de
> control no tengo problemas y me va bien, es en el subf. de datos donde
> no me muestra el cambio de vista.
>
> Un saludo y muchas gracias.
> --
> ________________________________
> Andres Cerviño Alvarez ( frodusete )
> Cita : La informacion es poder
>
> __________________________________________________
> Forum.HELP400 es un servicio m&#225;s de NEWS/400.
> &#169; Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
>
>
>
>
>
>
--
Andoni <[EMAIL PROTECTED]>
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
--
________________________________
Andres Cerviño Alvarez ( frodusete )
Cita : La informacion es poder
A*%%TS SD 20070220 125327 ANDREW REL-V4R2M0 5769-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A PRINT
A R DATOS SFL
A*%%TS SD 20070220 124617 ANDREW REL-V4R2M0 5769-PW1
A 74 SFLNXTCHG
A WOPC 1A B 7 2
A WCDZIP 5A O 7 4TEXT('Y')
A WCLIEN 20A O 7 13TEXT('Y')
A R CONTROL SFLCTL(DATOS)
A*%%TS SD 20070220 125327 ANDREW REL-V4R2M0 5769-PW1
A CF03(03 'SALIR')
A VLDCMDKEY(95 'INTRO')
A ROLLUP(27 'PAGINAR')
A OVERLAY
A N32 SFLDSP
A N31 SFLDSPCTL
A 31 SFLCLR
A 90 SFLEND(*MORE)
A SFLSIZ(0008)
A SFLPAG(0007)
A RRN1 4S 0H SFLRCDNBR
A 2 3USER
A 1 70DATE
A EDTCDE(Y)
A COLOR(BLU)
A 2 70TIME
A COLOR(BLU)
A WNEMP 15A O 1 3COLOR(WHT)
A 5 2'O'
A COLOR(WHT)
A DSPATR(UL)
A 5 4'COD.ZIP'
A DSPATR(UL)
A COLOR(WHT)
A WZIPS 5A B 6 4
A 1 30'SOLAPAMIENTO DE CAMPOS'
A 5 13'CLIENTE '
A DSPATR(UL)
A COLOR(WHT)
A WVISTA 1A B 6 2
A R FOOTER
A*%%TS SD 20070216 102652 ANDREW REL-V4R2M0 5769-PW1
A OVERLAY
A WLIT 38A O 23 31DSPATR(HI)
A N21 DSPATR(ND)
A COLOR(RED)
A 24 72'F3=Salir'
A COLOR(RED)
A 23 2'1=Procesar'
A R DATOS2 SFL
A*%%TS SD 20070220 122905 ANDREW REL-V4R2M0 5769-PW1
A 74 SFLNXTCHG
A WOPC 1A B 7 2
A WCDZIP 5A O 7 26TEXT('Y')
A WCLIEN 20A O 7 4TEXT('Y')
A R CONTROL2 SFLCTL(DATOS2)
A*%%TS SD 20070220 124617 ANDREW REL-V4R2M0 5769-PW1
A CF03(03 'SALIR')
A VLDCMDKEY(95 'INTRO')
A ROLLUP(27 'PAGINAR')
A OVERLAY
A N32 SFLDSP
A N31 SFLDSPCTL
A 31 SFLCLR
A 90 SFLEND(*MORE)
A SFLSIZ(0008)
A SFLPAG(0007)
A RRN1 4S 0H SFLRCDNBR
A 2 3USER
A 1 70DATE
A EDTCDE(Y)
A COLOR(BLU)
A 2 70TIME
A COLOR(BLU)
A WNEMP 15A O 1 3COLOR(WHT)
A 5 2'O'
A COLOR(WHT)
A DSPATR(UL)
A 5 26'COD.ZIP'
A DSPATR(UL)
A COLOR(WHT)
A WCUSTS 20A B 6 4
A 1 30'SOLAPAMIENTO DE CAMPOS'
A 5 4'CLIENTE '
A DSPATR(UL)
A COLOR(WHT)
A WVISTA 1A B 6 2
******************************************************************
** SOLAPAMIENTO DE CAMPOS
**
** A N D R E W
******************************************************************
FTESTS10 CF E WORKSTN
F RRN1 KSFILE DATOS
F RRN1 KSFILE DATOS2
FTEST01 IF E K DISK
FMKAL1 IF E K DISK
C*
I* CLAVES
C* ------
C* POSICIONAMIENTO EN SUBFICHERO.
C KTEST1 KLIST
C KFLD WZIPS
C*
C* FIN DE CLAVES
C* -------------
C*
C Z-ADD*ZEROS LSTRRN 40
C Z-ADD*ZEROS LSTRR2 40
C Z-ADD7 SFLPAG 40
C SETOF 30
C*
C* RECOGEMOS LA EMPRESA,ALMACEN EN EL QUE ESTAMOS.
C*
C EXSR SEMPR
C*
C* SUBFICHERO .
C* ------------
C EXSR CLRSFL
C *LOVAL SETLLTEST01 POSICIONAR
C EXSR SFLBLD
C*
C *IN03 DOWEQ'0'
C WRITEFOOTER
C N30 EXFMTCONTROL
C 30 EXFMTCONTROL2
C*
C* PROCESAMIENTO DE VISTAS
C*
C *IN27 IFEQ '0' NO PAGINAR
C *IN95 ANDEQ'0' INTRO
C WVISTA ANDNE*BLANKS
C EXSR SPROC1
C MOVE *BLANKS WOPC
C ENDIF
C*
C* PAGINACION
C*
C *IN27 IFEQ '1' PAGINAR
C *IN32 ANDEQ'0' + REGS
C *IN95 ANDEQ'1' NO INTRO
C EXSR SFLBLD
C ENDIF
C*
C* POSICIONAMIENTO *
C*
C *IN27 IFEQ '0' NO PAGINAR
C *IN95 ANDEQ'0' INTRO
C KTEST1 SETLLTEST01
C EXSR CLRSFL
C EXSR SFLBLD
C ENDIF
C*
C ENDDO
C*
C MOVE '1' *INLR
C*
****************************************************************
C* SPROC1 : PROCESAMOS LAS VISTAS .
****************************************************************
C*
C SPROC1 BEGSR
C*
C WVISTA IFEQ '1'
C SETOF 30
C ENDIF
C WVISTA IFEQ '2'
C SETON 30
C ENDIF
C*
C XPROC1 ENDSR
C*
****************************************************************
C* SEMPR: RUTINA QUE RECOGE LA EMPRESA Y ALMACEN .
****************************************************************
C*
C SEMPR BEGSR
C*
C *LOVAL SETLLMKAL1
C READ MKAL1 70
C *IN70 IFEQ '0'
C MOVELMKACOD WEMP 3
C MOVELMKAALO WALM 3
C MOVELMKANO1 WNEMP NOMBRE CIA
C ENDIF
C*
C XEMPR ENDSR
C*
****************************************************************
C* RUTINA DE LIMPIEZA - SUBFICHERO.
****************************************************************
C*
C CLRSFL BEGSR
C*
C*CLEAR SFL
C*
C MOVE *BLANKS WOPC
C MOVE *BLANKS WVISTA
C Z-ADD0 RRN1 40
C Z-ADD0 LSTRRN 40
C SETON 31 CLR
C N30 WRITECONTROL
C 30 WRITECONTROL2
C SETOF 31 CTL/CLR
C SETOF 32 DSP
C*
C XLRSFL ENDSR
C*
****************************************************************
C* SFLBLD : RUTINA DE LIMPIEZA Y CARGA DEL SUBFICHERO.
****************************************************************
C*
C SFLBLD BEGSR
C*
C Z-ADDLSTRRN RRN1 40
C Z-ADD*ZEROS CONT 40
C*
C* LOAD DATA INTO SUBFILE.
C*
C READ TEST01 90
C *IN90 DOWEQ'0'
C CONT ANDLTSFLPAG
C ADD 1 RRN1
C ADD 1 CONT
C EXSR SMOVDT TO SCREEN
C MOVE *BLANKS WOPC
C N30 WRITEDATOS
C 30 WRITEDATOS2
C READ TEST01 90
C ENDDO
C READPTEST01 90
C*
C* SUBFILE LOAD - CHECK TO SEE IF SUBFILE HAS ANY RECORDS.
C*
C RRN1 IFEQ *ZEROS
C SETON 32
C ENDIF
C*
C Z-ADDRRN1 LSTRRN
C*
C XFLBLD ENDSR
C*
C***************************************************************
C* SMOVDT : MOVER DATOS A LA PANTALLA ( SUBFICHERO ).
C***************************************************************
C*
C SMOVDT BEGSR
C*
C MOVELZIP WCDZIP
C MOVELCUST WCLIEN
C*
C XMOVDT ENDSR
C*
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
