AS/400 - Cambiar Nombre del archivo a leer

   
Vista:

Cambiar Nombre del archivo a leer

Publicado por Juan Morales jmoralesllanes@hotmail.com (2 intervenciones) el 20/06/2013 19:43:37
Saludos Amigos del Foro, Necesito una orientacion con CL , tengo un programa que lista el personal de una empresa, el problema es que son varias empresas, son archivos con diferentes nombres pero con iguales caracteristicas, y no quisiera repetir el programa tantas veces como empresas tenga, no se si por CL, se pueda cambiar el nombre del archivo en el programa, pidiendo previamente el nombre de la empresa..yo el OCL hacia esto.

// * 'indique codigo empresa'
// load prog1
// file name-maestro,label-?1r?,disp-shr
// run

el label contenia el archivo a leer..

no se como se haria esto en CL

hasta el momento hago esto

pgm
call prog1
endpgm

pero solo lista el nombre puesto en el formato del file..

Agradezco de ante mano cualquier orientacion.. Gracias..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Cambiar Nombre del archivo a leer

Publicado por Manuel (15 intervenciones) el 30/06/2013 04:04:04
Con el comando OVRDBF puedes hacerlo, en tu programa tienes definido el archivo FILE_EN_PGM y con esto tu programa lee el archivo FILE_NUEVO.

PGM
OVRDBF FILE(FILE_EN_PGM) TOFILE(*LIBL/FILE_NUEVO) +
SHARE(*YES)
CALL PGM(PROG1)
ENDPGM
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Cambiar Nombre del archivo a leer

Publicado por Juan Morales jmoralesllanes@hotmail.com (2 intervenciones) el 01/07/2013 17:50:34
Gracias Hermano, lo voy aplicar..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar