No es en catalan, pero la puedes modificar facil.
H/EJECT
H DECEDIT('0,') ALTSEQ(*EXT) DATEDIT(*DMY.)
*
D D S 13 DIM(43) CTDATA PERRCD(1)
D C S 14 DIM(10) CTDATA PERRCD(1)
D*
D* TABLAS DE TRABAJO
D*
D TEX S 1 DIM(190)
D CAM S 1 DIM(80)
*
*****************************************************************
* *
* INDICADORES UTILIZADOS *
* *
*****************************************************************
D DS
D NO1 1 30
D NO2 31 60
D NO3 61 90
D NO4 91 120
D NO5 121 150
D NO6 151 180
D NO7 181 190
D LETRA 1 190
D DS
D NUMEN1 1 1 0
D NUMEN2 2 2 0
D NUMEN3 3 3 0
D NUMEN4 4 4 0
D NUMEN5 5 5 0
D NUMEN6 6 6 0
D NUMEN7 7 7 0
D NUMEN8 8 8 0
D NUMEN9 9 9 0
D NUME10 10 10 0
D NUME11 11 11 0
D NUME12 12 12 0
D NUMEN 1 12 0
D DS
D NUMDN1 1 1 0
D NUMDN2 2 2 0
D NUMDN3 3 3 0
D NUMDN 1 3 0
D DS
D CENT1 1 1 0
D CENT2 2 2 0
D CENT3 3 3 0
D CEN3 1 3 0
*****************************************************************
* *
* PROCESO INICIAL *
* *
*****************************************************************
*
* PARMETROS TRANSFERIDOS
*
* SWFEC - CAMPO PARA FECHA
*
* SWNO1 - CAMPO DE RETORNO 1
* SWNO2 - CAMPO DE RETORNO 2
* SWNO3 - CAMPO DE RETORNO 3
* SWNO4 - CAMPO DE RETORNO 4
* SWNO5 - CAMPO DE RETORNO 5
* SWNO6 - CAMPO DE RETORNO 6
* SWNO7 - CAMPO DE RETORNO 7
*
* SWFEM - CAMPO DE FEMENINO MASCULINO
*
C *ENTRY PLIST
C PARM SWNUM 15 3
C PARM SWNO1 30
C PARM SWNO2 30
C PARM SWNO3 30
C PARM SWNO4 30
C PARM SWNO5 30
C PARM SWNO6 30
C PARM SWNO7 10
C PARM SWFEM 1
*
* INICIALIZACION DE CONSTANTES
*
C MOVE SWNUM NUM 15 3
C MOVE SWFEM FEME 1
C MOVE NUM NUMD 3
C MOVEL NUM NUME 12
C MOVE NUMD NUMDN 3 0
C MOVE NUME NUMEN 12 0
C MOVE *BLANKS BLANCO 80
C MOVEA BLANCO TEX
C NUM IFEQ *ZEROS
C MOVEA TEX LETRA
C MOVEL 'cero.' NO1
C MOVE NO1 SWNO1
C MOVE NO2 SWNO2
C MOVE NO3 SWNO3
C MOVE NO4 SWNO4
C MOVE NO5 SWNO5
C MOVE NO6 SWNO6
C MOVE NO7 SWNO7
C ELSE
*
C* PROCESO DE CINETOS DE MILES DE MILLONES
*
C Z-ADD 1 Z 3 0
C MOVE NUMEN1 CENT1
C MOVE NUMEN2 CENT2
C MOVE NUMEN3 CENT3
C CEN3 IFNE *ZEROS
C CEN3 IFNE 1
C EXSR CENTEN
C END
C MOVEA 'mil' CAM
C Z-ADD 1 N 2 0
C N DOWLE 3
C MOVE CAM(N) TEX(Z)
C ADD 1 N
C ADD 1 Z
C ENDDO
C ADD 1 Z
C MOVE CEN3 CEN3C1 3 0
C END
C MOVE NUMEN4 CENT1
C MOVE NUMEN5 CENT2
C MOVE NUMEN6 CENT3
C CEN3 IFNE *ZEROS
C CEN3 IFNE 1
C EXSR CENTEN
C ELSE
C MOVEA 'un' CAM
C Z-ADD 1 N 2 0
C N DOWLE 2
C MOVE CAM(N) TEX(Z)
C ADD 1 N
C ADD 1 Z
C ENDDO
C ADD 1 Z
C END
C END
C MOVE CEN3 CEN3C2 3 0
C CEN3C1 IFNE *ZEROS
C CEN3 ORNE *ZEROS
C CEN3 IFNE 1
C MOVEA 'millones' CAM
C Z-ADD 1 N 2 0
C N DOWLE 8
C MOVE CAM(N) TEX(Z)
C ADD 1 N
C ADD 1 Z
C ENDDO
C ADD 1 Z
C ELSE
C MOVEA 'millon' CAM
C Z-ADD 1 N 2 0
C N DOWLE 6
C MOVE CAM(N) TEX(Z)
C ADD 1 N
C ADD 1 Z
C ENDDO
C ADD 1 Z
C END
C END
C MOVE NUMEN7 CENT1
C MOVE NUMEN8 CENT2
C MOVE NUMEN9 CENT3
C CEN3 IFNE *ZEROS
C CEN3 ANDNE 1
C EXSR CENTEN
C END
C MOVE CEN3 CEN3C3 3 0
C CEN3C1 IFNE *ZEROS
C CEN3C2 ORNE *ZEROS
C CEN3 IFNE *ZEROS
C MOVEA 'mil' CAM
C Z-ADD 1 N 2 0
C N DOWLE 3
C MOVE CAM(N) TEX(Z)
C ADD 1 N
C ADD 1 Z
C ENDDO
C ADD 1 Z
C END
C ELSE
C CEN3 IFNE *ZEROS
C MOVEA 'mil' CAM
C Z-ADD 1 N 2 0
C N DOWLE 3
C MOVE CAM(N) TEX(Z)
C ADD 1 N
C ADD 1 Z
C ENDDO
C ADD 1 Z
C END
C END
C MOVE NUME10 CENT1
C MOVE NUME11 CENT2
C MOVE NUME12 CENT3
C CEN3 IFNE *ZEROS
C FEME IFEQ 'F'
C MOVEL 'una ' D(1)
C END
C EXSR CENTEN
C MOVE CEN3 CEN3C4 3 0
C END
C MOVE NUMDN1 CENT1
C MOVE NUMDN2 CENT2
C MOVE NUMDN3 CENT3
C CEN3C1 IFNE *ZEROS
C CEN3C2 ORNE *ZEROS
C CEN3C3 ORNE *ZEROS
C CEN3C4 ORNE *ZEROS
C CEN3 IFNE *ZEROS
C MOVEA 'con' CAM
C Z-ADD 1 N 2 0
C N DOWLE 3
C MOVE CAM(N) TEX(Z)
C ADD 1 N
C ADD 1 Z
C ENDDO
C ADD 1 Z
C END
C ELSE
C MOVEA 'cero' CAM
C Z-ADD 1 N 2 0
C N DOWLE 4
C MOVE CAM(N) TEX(Z)
C ADD 1 N
C ADD 1 Z
C ENDDO
C ADD 1 Z
C CEN3 IFNE *ZEROS
C MOVEA 'con' CAM
C Z-ADD 1 N 2 0
C N DOWLE 3
C MOVE CAM(N) TEX(Z)
C ADD 1 N
C ADD 1 Z
C ENDDO
C ADD 1 Z
C END
C END
C CEN3 IFNE *ZEROS
C NUMDN1 IFEQ *ZEROS
C MOVEA 'Cero' CAM
C Z-ADD 1 N 2 0
C N DOWLE 4
C MOVE CAM(N) TEX(Z)
C ADD 1 N
C ADD 1 Z
C ENDDO
C ADD 1 Z
C NUMDN2 IFEQ *ZEROS
C MOVEA 'cero' CAM
C Z-ADD 1 N 2 0
C N DOWLE 4
C MOVE CAM(N) TEX(Z)
C ADD 1 N
C ADD 1 Z
C ENDDO
C ADD 1 Z
C END
C END
C FEME IFEQ 'F'
C MOVEL 'una ' D(1)
C END
C EXSR CENTEN
C END
C SUB 1 Z
C MOVE '.' TEX(Z)
C MOVEA TEX LETRA
C MOVE NO1 SWNO1
C MOVE NO2 SWNO2
C MOVE NO3 SWNO3
C MOVE NO4 SWNO4
C MOVE NO5 SWNO5
C MOVE NO6 SWNO6
C MOVE NO7 SWNO7
C END
C SETON LR
*****************************************************************
* *
* NOMNUM: TRASFORME FECHA DE NUMERO A NOMBRE *
* *
*****************************************************************
C CENTEN BEGSR
C*
C MOVE CEN3 CEN2 2 0
C MOVEL CEN3 CE13 1 0
C Z-ADD CE13 C13 2 0
C CEN3 IFGT 0
C CE13 IFGT 0
C CEN3 IFEQ 100
C MOVEA BLANCO CAM
C MOVEA C(C13) CAM
C ELSE
C ADD 1 C13
C MOVEA BLANCO CAM
C MOVEA C(C13) CAM
C END
C Z-ADD 1 N 2 0
C N DOWLE 14
C MOVE CAM(N) TEX(Z)
C CAM(N) IFEQ ' '
C *IN70 IFEQ '0'
C SETON 70
C ELSE
C SETOFF 70
C Z-ADD 14 N
C SUB 1 Z
C END
C ELSE
C SETOFF 70
C END
C ADD 1 N
C ADD 1 Z
C ENDDO
C END
C*
C CEN2 IFGT 0
C CEN2 IFLT 31
C MOVEA BLANCO CAM
C MOVEA D(CEN2) CAM
C Z-ADD 1 N 2 0
C N DOWLE 13
C MOVE CAM(N) TEX(Z)
C CAM(N) IFEQ ' '
C *IN70 IFEQ '0'
C SETON 70
C ELSE
C SETOFF 70
C Z-ADD 13 N
C SUB 1 Z
C END
C ELSE
C SETOFF 70
C END
C ADD 1 N
C ADD 1 Z
C ENDDO
C*
C ELSE
C MOVE CEN2 CEN1 1 0
C MOVEL CEN2 CE11 1 0
C Z-ADD CE11 C11 2 0
C C11 IFGE 3
C Z-ADD 30 H 2 0
C SUB 3 C11
C 2 MULT C11 C11
C ADD C11 H
C CEN1 IFGT 0
C ADD 1 H
C END
C MOVEA BLANCO CAM
C MOVEA D(H) CAM
C ELSE
C MOVEA BLANCO CAM
C MOVEA D(CEN2) CAM
C END
C Z-ADD 1 N 2 0
C N DOWLE 13
C MOVE CAM(N) TEX(Z)
C CAM(N) IFEQ ' '
C *IN70 IFEQ '0'
C SETON 70
C ELSE
C SETOFF 70
C Z-ADD 13 N
C SUB 1 Z
C END
C ELSE
C SETOFF 70
C END
C ADD 1 N
C ADD 1 Z
C ENDDO
C CEN1 IFGT 0
C MOVEA BLANCO CAM
C MOVEA D(CEN1) CAM
C Z-ADD 1 N 2 0
C N DOWLE 13
C MOVE CAM(N) TEX(Z)
C CAM(N) IFEQ ' '
C *IN70 IFEQ '0'
C SETON 70
C ELSE
C SETOFF 70
C Z-ADD 13 N
C SUB 1 Z
C END
C ELSE
C SETOFF 70
C END
C ADD 1 N
C ADD 1 Z
C ENDDO
C END
C END
C END
C END
C*
C ENDSR
C/EJECT
**
uno
dos
tres
cuatro
cinco
seis
siete
ocho
nueve
diez
once
doce
trece
catorce
quince
dieciseis
diecisiete
dieciocho
diecinueve
veinte
veintiuno
veintidos
veintitres
veinticuatro
veinticinco
veintiseis
veintisiete
veintiocho
veintinueve
treinta
treinta y
cuarenta
cuarenta y
cincuenta
cincuenta y
sesenta
sesenta y
setenta
setenta y
ochenta
ochenta y
noventa
noventa y
**
cien
ciento
doscientos
trescientos
cuatrocientos
quinientos
seiscientos
setecientos
ochocientos
novecientos> -----Mensaje original----- > De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]] > Enviado el: viernes, 15 de marzo de 2002 11:45 > Para: foro help400 > Asunto: Rutina conversi�n importes a Euros > > Hola: > > �Alguien dispone de la rutina de conversi�n de un importe en n�meros a > letras, desarrollado en RPGIV y en catal�n?. De ser as�, me ahorrar�as un > buen rato de trabajo. > > Gracias. > > > Albert Ortiz > > > _____________________________________________________ > 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, env�a el mensaje resultante de pulsar > mailto:[EMAIL PROTECTED]?body=LEAVE _____________________________________________________ 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, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]?body=LEAVE
