|
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
|
