AS/400 - Cambiar Nombre del archivo a leer

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..

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

Gracias Hermano, lo voy aplicar..