¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
Documentos
Calculadora en REXX

Buen día amigos de recursos-as400, me permito enviar este documento que nos muestra una calculadora elaborada en REXX que puede ser llamada desde la línea de comandos de as/400, espero que sea de utilidad y la publiquen en su sección de trucos, utilidades y documentos técnicos as/400 iSeries

Basta con solo hacer un cut-paste en una pc de emulación y pegarlo al archivo que estén editando en el contenedor MYLIB/QREXSRC, para acceder a el se puede generar un comando que nos ejecute el llamado a ejecución de un programa REXX que es el siguiente STRREXPRC

/* CALCULO DE OPERACIONES MATEMÁTICAS */ ARG RES NUMERIC DIGITS 20 say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say ' ' say 'Operaciones:+=suma, -=resta, *=multiplicación, /=división, **=exponenciacion say 'los resultados quedan en memorias Rn, que puede utilizar para más calculos say 'También puede utilizar parentesis para sus operaciones.' say ' ' IF RES='' THEN SAY 'Teclee sus operaciones, para terminar enter' I=0;R=0 DO FOREVER I=I+1 IF RES='' THEN PULL RES IF RES='' THEN LEAVE A=1 DO FOREVER A=POS('X',RES,A) IF A=0 THEN LEAVE ELSE RES=OVERLAY('*',RES,A) END A=1 DO FOREVER A=POS('R',RES,A) IF A=0 THEN LEAVE A=A+1 IF SUBSTR(RES,A,I)<>',' THEN RES=INSERT('.',RES,A-1) END INTERPRET 'R.'I'='RES SAY 'R'I' = 'R.I RES='' END EXIT

Puedes ver el fuente aquí
Autor: Arturo Delgado

Septiembre 2003

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

 

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049