Yo en estos casos suelo montarlo todo en el BAT y le paso variable, aparte
de que cuando envio una constante con el STRPCCMD, siempre le envio una
variable que monto en el CL.
POR EJEMPLO:
PGM (&ped &NDO)
DCL VAR(&ped) TYPE(*CHAR) LEN(3)
DCL VAR(&NDO) TYPE(*CHAR) LEN(8)
DCL VAR(&PCCMD) TYPE(*CHAR) LEN(512)
STRPCO PCTA(*NO)
MONMSG MSGID(CPF0000)
CHGVAR &PCCMD 'C:\xxxx\TRANSFER\A.BAT'
STRPCCMD PCCMD(&PCCMD) PAUSE(*NO)
CHGVAR &PCCMD 'REN C:\xxx\Ped' *bcat &ndo *tcat '.txt ' *bCAT
&ndo
*TCAT &ped *TCAT '.TXT'
STRPCCMD PCCMD(&PCCMD) PAUSE(*NO)
ENDPGM
Con esto tengo la posibilidad de ver la variable (con un debug) antes de
ejecutar el mandato.
Pero realmente lo que yo hago es lo siguiente:
CL en el i5
PGM (&ped &NDO)
DCL VAR(&ped) TYPE(*CHAR) LEN(3)
DCL VAR(&NDO) TYPE(*CHAR) LEN(8)
DCL VAR(&PCCMD) TYPE(*CHAR) LEN(512)
STRPCO PCTA(*NO)
MONMSG MSGID(CPF0000)
CHGVAR &PCCMD 'C:\xxxx\TRANSFER\A.BAT ' *tcat &ped
STRPCCMD PCCMD(&PCCMD) PAUSE(*NO)
ENDPGM
BAT en el Pc, si el cambio es de ped455.txt a 455ped.txt, por que no
entiendo por que dos variables (ped y ndo) si en numero es el mismo
Echo ****************************************************+
Echo * Ejecutando A.bat con lo parametros
Echo * PM1 = %1
------ Peticion de transferencia y/ó comandos necesarios
ahora el rename
c:
cd \xxxx\TRANSFER
if exist Ped%1.txt goto OK
Echo ****************************************************+
Echo * Fallo en el proceso.
Echo * No se encontro el fichero Ped%1.txt
Pause
Goto FIN
ok:
REN Ped%1.txt %1ped.txt
if not exist %1ped.txt goto mal
Echo ****************************************************+
Echo * Fallo en el proceso de renombra archivo.
Echo * Ped%1.txt a %1ped.txt
Pause
Goto FIN
FIN:
Es mas lioso, pero ante un error te enteras en el momento.
Saludos vicente
-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] nombre de
[EMAIL PROTECTED]
Enviado el: lunes, 28 de enero de 2008 19:08
Para: [email protected]
Asunto: (sin asunto)
Buenas tardes, tengo un fichero en el pc que deseo renommbralo desde el
as400, el fichero se llama por ejemplo ped455.txt y quiero renombrarlo en
455ped.txt tengo el cl siguiente:
PGM (&ped &NDO)
DCL VAR(&ped) TYPE(*CHAR) LEN(3)
DCL VAR(&NDO) TYPE(*CHAR) LEN(8)
STRPCO PCTA(*NO)
MONMSG MSGID(CPF0000)
STRPCCMD PCCMD('C:\xxxx\TRANSFER\A.BAT') +
PAUSE(*NO)
STRPCCMD PCCMD('REN C:\xxx\Ped *bcat &ndo *tcat '.txt ' *bCAT &ndo
*TCAT &ped *TCAT '.TXT') PAUSE(*NO)
ENDPGM
No me hace nada.Alguna sugerencia?.Gracias
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
