> -----Mensaje original----- > De: Juan Carlos Paredes > Enviado el: jueves, 26 de mayo de 2005 8:43 > Para: '[email protected]' > Asunto: RE: [Help400] Free-RPG > > Yo lo har�a as�: > > d exc pr extpgm('QCMDEXC') > d 255 > d 15 5 > d cmd S 80 dim(1) ctdata perrcd(1) > > d lng S 15 5 > d conman S 80 > d feci s 8 > d fecf s 8 > /free > conman=%subst(cmd(1):1:35)+feci+%subst(cmd(1):44:3)+fecf+ > %subst(cmd(1):55:26); > lng=%len(%trim(conman); > callp exc (conman:lng); > /end-free > > > Saludos. > Juan Carlos. > -----Mensaje original----- > De: Wilfredo Ram�rez [SMTP:[EMAIL PROTECTED] > Enviado el: mi�rcoles, 25 de mayo de 2005 18:00 > Para: Forum AS/400 (E-mail) > Asunto: [Help400] Free-RPG > > Buenos dias forum, > estoy dandos mis primeros pasos en construir programas en formato libre, > pero he encontrado inconveniente en convertir estas instruciones que > detallo mas abajo el cual me gustar�a hacerlo en FREE-RPG, alguien me > puedes ayudar en esto. > > Gracias..... > > D CMD S 80 DIM(1) CTDATA PERRCD(1) > > D DS > D CONMAN 1 80 > D Feci 36 43 > D Fecf 47 54 > > C Move CMD(1) Conman > C CALL 'QCMDEXC' > C Parm Conman > C Parm 80 CmdLgt 15 5 > > ** > SBMJOB CMD(CALL PGM(CC0105) PARM(' ' ' ')) > > > > Wilfredo E. Ram�rez > Analyst Senior IT > Republic Bank (DR) S.A. > Roberto Pastoriza #303. Ensanche Naco > Tel : (809) 947-6529 > Movil : (809) 650-0059 > [EMAIL PROTECTED] > WWW.Republicdr.com.do > > __________________________________________________________ > > Este mensaje y sus anexos contienen informaci�n confidencial dirigida > �nica y exclusivamente para el (los) destinatario (s) del mismo. Si usted > recibe este mensaje por error, notifique de inmediato al remitente > mediante un mensaje de respuesta y proceda a borrarlo. > > Cualquier uso indebido del mismo, tanto total como parcial, est� > prohibido, por lo que Banco Mercantil no se responsabilizan por el uso > que hagan personas no autorizadas de la informaci�n contenida en este > mensaje, ni de las alteraciones que pueda sufrir durante su transmisi�n > v�a Internet. > > This message and its attachments contain confidential information that is > intended exclusively for the specified addressee. If you mistakenly > receive this message, immediately notify its sender by sending him/her a > reply message, and delete the message. > > Any unlawful use of any part of this message is prohibited. Banco > Mercantil will not be responsible for the unauthorized use of the > information contained herein, nor for any alteration it might undergo > during its transmission through the Internet. > > > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.322 / Virus Database: 266.11.17 - Release Date: 25/05/2005 > > > -- > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.322 / Virus Database: 266.11.17 - Release Date: 25/05/2005 > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.322 / Virus Database: 266.11.17 - Release Date: 25/05/2005
<<application/ms-tnef>>
