Muchas gracias por la información.
Saludos
________________________________
From: forum.help400 <forum.help400-boun...@help400.com> on behalf of Alberto
Martinez de Urda <albert.martinez.deu...@gmail.com>
Sent: Monday, October 9, 2023 8:47 AM
To: forum.help400 <forum.help400@help400.com>
Cc: forum.help400 <forum.help...@listas.combios.es>
Subject: Re: crear procedimiento Externo
Hola
Si lo tienes compilado como módulo y creado como programa de servicio
CRTSRVPGM, lo tienes que añadir a un directorio de enlace WRKBNDDIR/WRKBNDDIRE
y luego añadir este directorio de enlace junto con la definición del
procedimiento, a tu programa:
por ejemplo:
Ctl-opt Datedit (*DMY) Dftactgrp(*no) Bnddir('@SRVPGMLIB/FUNCIONES') ;
//directorio de enlace
/Copy ARCADI/QSRVSRC,DEFPROC //definición
Yo(y supongo que todo el mundo lo hace) tengo las definiciones de los
procedimientos externos en un fuente aparte sólo con definiciones, y luego se
hace un /copy del fuente
Saludos
El lun, 9 oct 2023 a las 0:29, Carlos C.
(<paipuk...@hotmail.com<mailto:paipuk...@hotmail.com>>) escribió:
Buenos dias Foro
Tengo una consulta con el Foro.
Estuve creando progrmas tipo EXPORT
Cabecera de programa:
01 Ctl-Opt DftActGrp(*No) ActGrp(*Caller);
02
03 // ---- DEFINICIÓN DE PROCEDIMIENTO -------------------------+
00 Dcl-Proc DatosValidacion Export;
00 Dcl-PI *N ;
00 var1 Char(12);
00 var2 Char(10);
00 var3 Char(02);
00 var4 Char(40);
01 End-PI;
00
Pude compilar con modulos todo, pero al intentar uilizar en un programa de RPG
me da un error.
Algunos de Uds. tienen alguna experiencia, les agradecer enormemente.
llamada a programa RPG
D PROEXT Pr 10i 0 ExtProc(' DatosValidacion')
D var1 12 Value
D var2 10 Value
D var3 02 Value
D var4 40 Value
*
*-- Set bit ---------------------------------------------
*
*------------------------------------------------------------------
* Inicio de Calculo
*------------------------------------------------------------------
*INLR = *ON ;
PROEXT (var1 :var2: var3: var4) ;
mensaje de error
Definición no encontrada para el símbolo 'DatosValidacion'. (debo hacer
un paso mas para que se reconozca?)
gracias desde ya !!!
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.
