El fuente compila, el error que se encuentra es en la linea. pia datos de carpeta del Servidor a c: cambiando numero */ Deberia ser /* Copia datos de carpeta del Servidor a c: cambiando numero */
Jaime Villa T. ----- Mensaje original ----- De: "medina" <[EMAIL PROTECTED]> Para: <[email protected]> Enviado: Jueves, 12 de Mayo de 2005 12:15 p.m. Asunto: RE: [Forum.help400] error strpdm Ya me di cuenta y aun asi no va Ahora lo he puesto asi: PGM PARM(&REP &NUM) DCL VAR(&REP) TYPE(*CHAR) LEN(3) DCL VAR(&NUM) TYPE(*DEC) LEN(3 0) DCL VAR(&NDO) TYPE(*CHAR) LEN(3) STRPCO PCTA(*NO) MONMSG MSGID(CPF0000) pia datos de carpeta del Servidor a c: cambiando numero */ CHGVAR VAR(&NDO) VALUE(&NUM) STRPCCMD PCCMD('copy s:\REP_AS400\rep' *CAT &REP *CAT + '\repre' *CAT &REP *CAT '.txt + c:\pedidos\' *CAT &REP *TCAT &NDO *BCAT + '.txt') PAUSE(*YES) Y me da error de sintaxis el msdos. -----Mensaje original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Juan Carlos Paredes Enviado el: jueves, 12 de mayo de 2005 18:56 Para: [email protected] Asunto: RE: [Forum.help400] error strpdm Me temo que el campo &NUM que es num�rico no te permite usarlo en un *CAT, tendr�s que pasarlo primero a un alfanum�rico con CHGVAR. Saludos. Juan Carlos. > -----Mensaje original----- > De: medina [SMTP:[EMAIL PROTECTED] > Enviado el: jueves, 12 de mayo de 2005 18:12 > Para: [email protected] > Asunto: [Forum.help400] error strpdm > > Me da error al compilar este cl. > > > > ********* Principio de datos ************************************ > > PGM PARM(&REP &NUM) > > > > DCL VAR(&REP) TYPE(*CHAR) LEN(3) > > DCL VAR(&NUM) TYPE(*DEC) LEN(3 0) > > > > STRPCO PCTA(*NO) > > MONMSG MSGID(CPF0000) > > > > Copia datos de carpeta del Servidor a c: cambiando numero */ > > > > STRPCCMD PCCMD('copy s:\REP_AS400\rep' *CAT &REP *CAT + > > '\repre' *CAT &REP *CAT '.txt + > > c:\pedidos\' *CAT &REP *CAT ' ' *CAT &NUM + > > *CAT '*.*') PAUSE(*NO) > > ENDPGM > > > > Aver si me echais una mano , intento despu�s de carpeta Pedidos poner dos > par�metros que estoy haciendo mal. > > > > > > Saludos > > Paco Medina > > Exclusivas Camacho, S.Ltda. > > Dtor.Informatica > > > > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.308 / Virus Database: 266.11.9 - Release Date: 12/05/2005 > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.9 - Release Date: 12/05/2005 __________________________________________________ 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://coyote.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://coyote.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://coyote.combios.es/mailman/listinfo/forum.help400
