El fichero adjunto es una plantilla que utilizo cuando necesito controlar
parámetros optativos en ILE CL.
Javier.
________________________________
De: [email protected]
[mailto:[email protected]] En nombre de JUAN García
Enviado el: miércoles, 05 de marzo de 2014 14:36
Para: [email protected]
Asunto: Parámetros no recibidos en un CLLE
Saludos a todos
¿Sabe alguien si se pueden recibir menos parámetros de los
especificados en un clle? ¿como controlar el posible error?
Gracias
Pgm ( +
&type +
)
/* ... */
Dcl &type *Char ( 10 )
/* --------------------------------------------------------------- */
/* - Variables de trabajo - */
/* --------------------------------------------------------------- */
Dcl &OK *Int ( 4 ) ( 1 )
Dcl &tType *Char ( 10 ) ( ' ' )
/* ... */
Dcl &hayType *Int ( 4 ) ( 0 )
/* ... */
/* ... */
/* =============================================================== */
/* = Averiguar los parámetros pasados = */
/* =============================================================== */
CallPrc CEETSTA Parm( &hayType x'00000002' *OMIT )
/* Posición que ocupa el parámetro --------^ */
/* ... */
/* =============================================================== */
/* = Recuperar el valor del parámetro si se ha pasado = */
/* =============================================================== */
If ( &hayType = &OK ) Do
/* tType */
Enddo
/* ... */
/* =============================================================== */
/* = DEVOLVER LOS VALORES SOLICITADOS = */
/* =============================================================== */
If ( &hayType = &OK ) Do
ChgVar &Type ( &tType )
EndDo
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
