Ahí va espero te sirva.
Paco Medina DEPT. INFORMÁTICA Exclusivas Camacho, S. Ltd. CIF B29145240 Av. J. Ortega y Gasset, 301 (Pol. San Luis) Málaga, España Tel. +34 952 322 900 Fax +34 952 314 900 www.e-camacho.com [email protected] Este mensaje se dirige exclusivamente a su destinatario y puede contener información privilegiada o confidencial. Si no es vd. el destinatario indicado, queda notificado de que la utilización, divulgación y/o copia sin autorización está prohibida en virtud de la legislación vigente. Si ha recibido este mensaje por error, le rogamos que nos lo comunique inmediatamente por esta misma vía y proceda a su destrucción. Gracias. This message is intended exclusively for its addressee and may contain information that is CONFIDENTIAL and protected by professional privilege. If you are not the intended recipient you are hereby notified that any dissemination, copy or disclosure of this communication is strictly prohibited by law. If this message has been received in error, please immediately notify us via e-mail and delete it. Thank you. _____ De: [email protected] [mailto:[email protected]] En nombre de CARLOS Enviado el: lunes, 04 de enero de 2010 11:12 Para: 'forum.help400' Asunto: RE: PASAR PARAMETRO No te entiendo. Me podrías poner un ejemplo? _____ De: [email protected] [mailto:[email protected]] En nombre de Paco Medina Enviado el: lunes, 04 de enero de 2010 11:04 Para: 'forum.help400' Asunto: RE: PASAR PARAMETRO As probado a crear el bat como archivo en el AS con el parametro ya incluido y luego Ejecutarlo. Saludos, Paco Medina DEPT. INFORMÁTICA Exclusivas Camacho, S. Ltd. CIF B29145240 Av. J. Ortega y Gasset, 301 (Pol. San Luis) Málaga, España Tel. +34 952 322 900 Fax +34 952 314 900 www.e-camacho.com [email protected] Este mensaje se dirige exclusivamente a su destinatario y puede contener información privilegiada o confidencial. Si no es vd. el destinatario indicado, queda notificado de que la utilización, divulgación y/o copia sin autorización está prohibida en virtud de la legislación vigente. Si ha recibido este mensaje por error, le rogamos que nos lo comunique inmediatamente por esta misma vía y proceda a su destrucción. Gracias. This message is intended exclusively for its addressee and may contain information that is CONFIDENTIAL and protected by professional privilege. If you are not the intended recipient you are hereby notified that any dissemination, copy or disclosure of this communication is strictly prohibited by law. If this message has been received in error, please immediately notify us via e-mail and delete it. Thank you. _____ De: [email protected] [mailto:[email protected]] En nombre de CARLOS Enviado el: lunes, 04 de enero de 2010 10:32 Para: FORUM HELP400 Asunto: PASAR PARAMETRO Buenos días y feliz año a todos. Os comento un problema: Tengo una CL a la que le envío un parámetro (&codses). Al ejecutar el STRPCCMD no lo coge el arrancar.bat. Sabéis como puedo solucionarlo. STRPCCMD PCCMD('C:\ARRANCAR.BAT &CODSES') PAUSE(*NO) Gracias
4/01/10 11:06:57
P gina: 1
Fichero: TRANSREF Fichero Plano para ENVIOS DATOS POR .DTF
Formato de registro: TRANSRER
FTPDATO 250A 1- 250 Datos Generales
Tipo de Fichero: FISICO
ejemplo programa que añade al archivo en as400 para tratarlo despues como .bat
ARCHIVO FUENTE . . . . . Mylib/QRPGLESRC
MIEMBRO . . . . . . . . . EPED12R
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
100 HDECEDIT('0,') DATEDIT(*DMY.)
09/01/01
200
**********************************************************************
20/12/99
300 ** Realizado por: Fco.Jose Medina Barajas para EXCL.CAMACHO,S.L
. ** 08/04/08
400 ** Fecha. . . . : 3 de JULIO del 2008
. ** 03/07/08
500 **
. ** 08/04/08
600 ** Crea archivo bat. para envios Email a clientes
. ** 09/04/08
700 ** Albaranes y Facturas
. ** 08/04/08
800
**********************************************************************
20/12/99
900 FTRANSREF UF A E K DISK
03/03/08
1000 FHEMAILF O E K DISK
16/04/08
1100 * TEXTOS ESTANDARS
18/10/07
1200 DTXT S 80 DIM(35) PERRCD(1) CTDATA
05/09/08
1300 * Usuario que realiza la accion
16/04/08
1400 DINFDS SDS
16/04/08
1500 D WUSER 254 263
16/04/08
1600 *
16/04/08
1700 * A¤adimos Historico usuarios
28/04/08
1800 C EVAL EMACIA='001'
28/04/08
1900 C EVAL EMAUSR=WUSER
28/04/08
2000 C TIME EMATIM
28/04/08
2100 C EVAL EMAA¥O=*YEAR
28/04/08
2200 C EVAL EMAMES=*MONTH
28/04/08
2300 C EVAL EMADIA=*DAY
28/04/08
2400 C EVAL EMADOC=DOC
28/04/08
2500 C MOVEL(p) EMADOC DOCUM 9
28/04/08
2600 C EVAL EMAEMA=EMAIL
28/04/08
2700 C EVAL EMACPY=EMAILR
28/04/08
2800 * Enviamos Lineas de Datos b
14/04/08
2900 C 1 DO 14 W 2 0
14/04/08
3000 C CLEAR FTPDATO
14/04/08
3100 C CLEAR STRING
20/02/08
3200 C IF W<>8 and W<>9
15/04/08
3300 C STRING CAT TXT(W):0 STRING 250
09/04/08
3400 C MOVE STRING FTPDATO
20/02/08
3500 C WRITE TRANSRER
15/04/08
3600 C ENDIF
03/03/08
3700 *
09/04/08
3800 C IF W=8
15/04/08
3900 C CLEAR FTPDATO
09/04/08
4000 C CLEAR STRING
14/04/08
4100 C STRING CAT TXT(8):0 STRING
15/04/08
4200 C STRING CAT TXT(34):1 STRING
05/09/08
4300 C MOVE STRING FTPDATO
14/04/08
4400 C WRITE TRANSRER
15/04/08
4500 C ENDIF
09/04/08
4600 *
15/04/08
4700 C IF W=9
15/04/08
4800 C CLEAR FTPDATO
15/04/08
4900 C CLEAR STRING
15/04/08
5000 C STRING CAT TXT(9):1 STRING
28/04/08
5100 C STRING CAT DOCUM:1 STRING
28/04/08
5200 C STRING CAT '"':0 STRING
28/04/08
5300 C STRING CAT TXT(32):1 STRING
05/09/08
5400 C STRING CAT NBR:0 STRING
15/04/08
5500 C STRING CAT '.pdf':0 STRING
15/04/08
5600 C STRING CAT TXT(33):1 STRING
05/09/08
5700 C STRING CAT EMAIL:1 STRING
15/04/08
5800 C STRING CAT TXT(35):1 STRING
05/09/08
5900 C MOVE STRING FTPDATO
15/04/08
6000 C WRITE TRANSRER
15/04/08
6100 C ENDIF
15/04/08
6200 *
03/03/08
6300 C ENDDO
03/03/08
6400 C WRITE HEMA00R
16/04/08
6500 *
03/03/08
6600 C EVAL *INLR=*ON
03/03/08
6700 *
03/03/08
6800
**********************************************************************
18/10/07
6900 ** S U B R U T I N A I N I C I A L
** 18/10/07
7000
**********************************************************************
18/10/07
7100 C *INZSR BEGSR
18/10/07
7200 * Parametros email del clientes
09/04/08
7300 C *ENTRY PLIST
03/03/08
7400 C PARM DOC 9 0
16/04/08
7500 C PARM NBR 6
14/04/08
7600 C PARM EMAIL 40
15/04/08
7700 *
19/10/07
7800 C IF EMAILR=*BLANKS
15/04/08
7900 C MOVEL TXT(34) EMAILR 40
05/09/08
8000 C ENDIF
15/04/08
8100 *
15/04/08
8200 C ENDSR
18/10/07
8300 *
18/10/07
8400
**********************************************************************
18/10/07
8500 ** TXT/Composicion texto
18/10/07
8600 @echo off
08/04/08
8700 echo -------------------------------
15/04/08
8800 echo Envia Correo segun seleccion
14/04/08
8900 echo Programa asociado en AS400:
08/04/08
9000 echo EPED12C/VPED20R
23/10/09
9100 echo -------------------------------
15/04/08
9200 :: MANDAR CORREO
08/04/08
9300 z:\SCRIPTS\blat.exe -install 192.168.1.3
15/04/08
9400 z:\SCRIPTS\blat.exe -subject "Copia solicitada
28/04/08
9500 IF ERRORLEVEL=13 GOTO :ERROR
05/09/08
9600 IF ERRORLEVEL=12 GOTO :ERROR
05/09/08
9700 IF ERRORLEVEL=5 GOTO :ERROR
05/09/08
9800 IF ERRORLEVEL=4 GOTO :ERROR
05/09/08
9900 IF ERRORLEVEL=3 GOTO :ERROR
05/09/08
10000 IF ERRORLEVEL=2 GOTO :ERROR
05/09/08
10100 IF ERRORLEVEL=1 GOTO :ERROR
05/09/08
10200 GOTO NOERROR
05/09/08
10300 :ERROR
05/09/08
10400 echo !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
05/09/08
10500 echo ERROR: POSIBLEMENTE EL CORREO NO SE HA ENVIADO
05/09/08
10600 echo !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
05/09/08
10700 PAUSE
05/09/08
10800 :NOERROR
05/09/08
10900 z:\SCRIPTS\blat.exe -profile -delete
08/04/08
11000 echo =================================================
08/04/08
11100 echo PROCESO TERMINADO. YA PUEDE CERRAR ESTA VENTANA.
08/04/08
11200 echo =================================================
08/04/08
11300 PAUSE
08/04/08
11400
08/04/08
11500 A partir de aqui, segundas lineas de la 9
14/04/08
11600 -----------------------------------------------------------------------
09/04/08
11700 -body "Copia solicitada" -attach c:\windows\temp\
15/04/08
11800 -debug -to
15/04/08
11900 %[email protected]
16/04/08
12000 -cc %[email protected] -r -d
28/04/08
* * * * F I N D E F U E N T E * * * *
Ejemplo de Cl que realiza la ejecucion de un bat creado desde Prog_ejemplo
e puesto &codses para que se asemeje al tuyo:
500 DCL VAR(&CODSES) TYPE(*CHAR) LEN(LaQueTuTengas)
04/04/08
4200 /* Carga Fichero de datos Ejecutable Para envio de correo */
15/04/08
4300 DLTF FILE(QTEMP/TRANSREF)
15/04/08
4400 MONMSG MSGID(CPF0000)
15/04/08
4500 CRTPF FILE(QTEMP/TRANSREF) SRCFILE(tuLib/QPFSRC) +
21/10/08
4600 SRCMBR(TRANSREF) OPTION(*NOSRC *NOLIST)
21/10/08
4700 OVRDBF FILE(TRANSREF) TOFILE(QTEMP/TRANSREF)
15/04/08
4800 CALL PGM(Prog_ejem) PARM(&codses)
23/10/09
4900 CHGVAR VAR(&TODOC) VALUE('D' *TCAT &codses *TCAT
'.bat') 15/04/08
5000 CPYTOPCD FROMFILE(QTEMP/TRANSREF) TOFLR(PEDIDOS) +
15/04/08
5100 TODOC(&TODOC) REPLACE(*YES) /* Archivo +
15/04/08
5200 ejecutable */
15/04/08
/* h:\ = tu unidad de Qdls en el Pc o servidor
*/ 15/04/08
5300 STRPCCMD PCCMD('h:\tucarpeta\' *CAT &TODOC) PAUSE(*NO)
15/04/08
5400 /* Borra archivo PROCESADO */
15/04/08
5800 DLTDLO DLO(&TODOC) FLR(tucarpeta) /* Anulamos Bat +
15/04/08
5900 creado */
15/04/08
6000 DLTOVR FILE(*ALL)
16/04/08
____________________________________________________ © 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
