Re: Passing a file to a procedure

How about this:


D RunClCmd PR 10i 0 extproc('system')
D Cmd * value options(*string)
D CpfMsgId s 7 import('_EXCP_MSGID')

D OvrDbf1 C Const('OvrDbf File(INPUT) ToFile(')

D OvrDbf2 C Const(') LvlChk(*NO) Share(*YES)')

D File 10a
D Lib 10a

C Eval Cmd = %Trim(OvrDbf1) + %Trim(Lib) +
C '/' + %Trim(File) + %Trim(OvrDbf2)
C Eval ErrorCmd = RunClCmd(%trim(Cmd))


Saludos,

Leonel Mejía Chinchilla
Ingeniero en Software
Gerencia Regional de Tecnología y Operaciones
BAC | Credomatic Network
Tel: (506) 295-9949 Fax: (506) 295-9407
email: lmejia@xxxxxxxxxxxxxx

AVISO DE CONFIDENCIALIDAD: La información contenida en este mensaje es
confidencial y solamente dirigido a la(s) persona(s) mencionadas arriba.
Si el lector de este mensaje no es el interesado, favor de regresarlo al
remitente quedando estrictamente prohibido la difusión, distribución o
reproducción de este comunicado.

CONFIDENTIALITY NOTICE: The information contained in this electronic
message is privileged and confidential and is intended for the use of the
individual(s) named above and others who have been specifically authorized
to receive it. If you are not the intended recipient, you are hereby
notified that any dissemination, distribution or copying of this message
is strictly prohibited. If you have received this message by mistake,
please destroy it immediately, and notify the sender.



James Lampert <jamesl@xxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/23/2007 04:22 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Passing a file to a procedure






Fellow geeks, geekettes, and gurus:

I have a situation in which a program does essentially the same
operations on up to 25 different files, using 25 more-or-less identical
blocks of code in a SELECT block.

In C, it's fairly straightforward to pass files back and forth between
calls. Is there a way to do so in ILE RPG?