Buenos dias agradeceré su ayuda en lo sgtre:
Deseo saber la longitud de una estructura de datos, un subcampo tiene
longuitud variable y en tiempo de ejecución lo redefino, cambiaria
entonces el tamaño de la estructura supongo.
1.- Tengo esta Estructura:
*DATA DICTIONARY *****
DSdds DS inz
D Sdds_typemsg 4 overlay(Sdds)
D Sdds_bmprima 16 overlay(Sdds:*next)
D Sdds_bmsecun 16 overlay(Sdds:*next)
D Sdds_lenpan 2 0 overlay(Sdds:*next)
D Sdds_pan 19 overlay(Sdds:*next)Varying
D Sdds_procode 6 overlay(Sdds:*next)
2.- Segunda estructura con campos referenciando a la primera
DS210 DS Qualified inz
D sdds_typemsg like(sdds_typemsg)overlay(S210)
D sdds_bmprima like(sdds_bmprima)overlay(s210:*next)
D sdds_bmsecun like(sdds_bmsecun)overlay(s210:*next)
D sdds_lenpan like(sdds_lenpan
)overlay(s210:*next)
D sdds_pan like(sdds_pan )overlay(s210:*next)
D sdds_procode like(sdds_procode)overlay(s210:*next)
3.- en la hoja C supongamos asigno valores
c eval s210.sdds_typemsg = 'asdf'
c eval s210.sdds_bmprima = 'sfsd213123123'
c eval s210.sdds_bmsecun = 'hkjhkjh34345'
c eval s210.sdds_lenpan = 15
c eval s210.sdds._pan = '123456789012345'
*redefino la longitud
c eval %len(s210.sdds._pan)=s210.sdds_lenpan
****los sgtes codigos me dan error*****
c eval tamano=%size(S210) ***error de compilacion
c eval tamano=%size(S210:*all) ** error de ejecucion
apesar de que trabajo con occurs(1) (solo ahi se puede colocar el
parametro *all)
Mucho agradeceré su ayuda
Roberto Palomino Madueño
HSBC Bank Perú S.A.
Jr. Caravaya N° 891 Piso 4
Cercado de Lima. Peru
-----------------------------------------------------------------------------
Phone: (511) - 512-3000 (4293)
Email: [email protected]
-----------------------------------------------------------------------------
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
