Hola Toni :
si si .. esto lo hago por programa, pero no me acaba de hacer el
intercambio de las columnas en el subfichero de datos . Te remito la
pantalla y el programa tambien.
Un saludo y muchas gracias.
El 20/02/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]> escribió:
Hola André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én puede ser mejor trabajar con los indicadores en On en lugar de
en Off, para evitar que por N23, tambié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
--
________________________________
Andres Cerviño Alvarez ( frodusete )
Cita : La informacion es poder
A*%%TS SD 20070219 105749 ANDREW REL-V4R2M0 5769-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A PRINT
A R DATOS SFL
A*%%TS SD 20070219 105749 ANDREW REL-V4R2M0 5769-PW1
A 74 SFLNXTCHG
A WOPC 1A B 7 2
A WCDZIP 5 O 7 4TEXT('Y')
A N22 DSPATR(ND)
A WCLIEH 20A O 7 4TEXT('Y')
A N23 DSPATR(ND)
A WCLIEN 20A O 7 13TEXT('Y')
A N22 DSPATR(ND)
A WCDZIH 5 O 7 25TEXT('Y')
A N23 DSPATR(ND)
A R CONTROL SFLCTL(DATOS)
A*%%TS SD 20070216 114134 ANDREW REL-V4R2M0 5769-PW1
A SFLSIZ(0008)
A SFLPAG(0007)
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 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 22 5 4'COD.ZIP'
A N22 DSPATR(ND)
A DSPATR(UL)
A COLOR(WHT)
A 23 5 4'CLIENTE '
A N23 DSPATR(ND)
A DSPATR(UL)
A COLOR(WHT)
A 22 WZIPS 5A B 6 4
A N22 DSPATR(ND)
A 23 WCUSTS 20A B 6 4
A N23 DSPATR(ND)
A 1 30'SOLAPAMIENTO DE CAMPOS'
A 22 5 13'CLIENTE '
A N22 DSPATR(ND)
A DSPATR(UL)
A COLOR(WHT)
A 23 5 25'COD.ZIP'
A N23 DSPATR(ND)
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'
******************************************************************
** SOLAPAMIENTO DE CAMPOS
**
** A N D R E W
******************************************************************
FTESTSSD CF E WORKSTN
F RRN1 KSFILE DATOS
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 SETON 22
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 EXFMTCONTROL
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 SETON 22
C SETOF 23
C ENDIF
C WVISTA IFEQ '2'
C SETON 23
C SETOF 22
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 WRITECONTROL
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 WRITEDATOS
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* MOVELZIP WCDZIH
C MOVELCUST WCLIEN
C MOVELCUST WCLIEH
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
