Bueno, de momento veo dos cosas:
1. El prototipo de 'Transaccion()' tiene como parámetros dos punteros, cuando
en la llamada utilizas sólo uno.
2. El puntero 'Pun_Ent_Salb' no lo inicializas, debería ser algo como:
Pun_Ent_Salb = %Addr( Ent1 );
Salvo que el puntero lo utilices para 'mover' la estructura por la memoria,
podrías hacerlo de otra forma:
D Ent1 Ds Qualified
d Based(Pun_Ent_Salb) <-- Eliminar
d Vimcaj 7A
d VimCfl 2A
d VimCla 5A
// ...
Transaccion( %Addr( Ent1 ) );
________________________________
De: [email protected]
[mailto:[email protected]] En nombre de Oqueller Petrocini
Enviado el: jueves, 03 de julio de 2014 19:21
Para: forum.help400
Asunto: RE: error de puntero
ME COMPILA CUANDO CORRE ME DA ERROR DE PUNTO EN Ent1.Vimcaj= '118T001'
______________________________________________
dTransaccion Pr ExtPgm('T475022PD')
d *
d *
D Ent1 Ds Qualified
d Based(Pun_Ent_Salb)
d Vimcaj 7A
d VimCfl 2A
d VimCla 5A
DPun_Ent_Salb S *
Ent1.Vimcaj= '118T001';
Ent1.VimCfl= 'ZP';
Ent1.VimCla= '00000';
Transaccion(Pun_Ent_Salb);
Gracias
De: [email protected]
[mailto:[email protected]] En nombre de Javier Mora
Enviado el: jueves, 03 de julio de 2014 12:39 p.m.
Para: forum.help400
Asunto: RE: error de puntero
Falta que nos enseñes el prototipo de 'Transaccion()'
Javier Mora
________________________________
De: [email protected]
[mailto:[email protected]] En nombre de Oqueller Petrocini
Enviado el: jueves, 03 de julio de 2014 16:33
Para: forum.help400
Asunto: error de puntero
Bueno días
Estoy tratando de pasar puntero por un parámetro y me da un
error de puntero
D Ent1 Ds Qualified
d Based(Pun_Ent_Salb)
d Vimcaj 7A
d VimCfl 2A
d VimCla 5A
DPun_Ent_Salb S *
Ent1.Vimcaj= '118T001';
Ent1.VimCfl= 'ZP';
Ent1.VimCla= '00000';
Transaccion(Pun_Ent_Salb);
Gracias
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
