Otro por si te sirve.
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 <mailto:[email protected]> [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 Benito Hernandez Enviado el: miércoles, 18 de marzo de 2009 2:11 Para: forum.help400 Asunto: Re: rutina conversión te adjunto un ejemplo espero te sirva Benito Mexico --- On Tue, 3/17/09, Peñaherrera, Mauro <[email protected]> wrote: From: Peñaherrera, Mauro <[email protected]> Subject: rutina conversión To: "forum.help400" <[email protected]> Date: Tuesday, March 17, 2009, 10:36 PM Compañeros del foro: Tengo una rutina para convertir un numero en letras (se utiliza para la impresión en los cheques) está en COBOL 400, pero se requiere hacer unos cambios, no soy muy bueno en COBOL, quería ver si alguien tiene una rutina en RPG, RPGLE o diferente de COBOL que me pueda facilitar o si conocen de alguna dirección electrónica donde pueda revisar. Gracias. Saludos Mauro Peñaherrera Ruiz Departamento de Tecnología ' (593-2) 2981-300 *: [email protected] cid:[email protected] _____ Nota de descargo: La información contenida en este e - mail y sus anexos es confidencial y sólo puede ser utilizada por el destinatario del mismo. Esta información no debe ser distribuida, ni copiada total o parcialmente por ningún medio sin la autorización de DINERS/INTERDIN. Además, DINERS/INTERDIN no asume responsabilidad sobre información, opiniones o criterios contenidos en este e-mail. Disclaimer: The information contained in this e-mail and its attached files are confidential and intended only for the use of the person to which it is addressed. This information can not be totally or partially distributed nor copied by any media without the authorization from DINERS/INTERDIN. In addition, DINERS/INTERDIN does not assume responsibility about this information, opinions or criteria contented in this e-mail. -----Inline Attachment Follows----- __________________________________________________ Forum.HELP400 es un servicio m&#225;s de ServerNEWS. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados <http://www.help400.es/> http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: <http://listas.combios.es/mailman/listinfo/forum.help400> http://listas.combios.es/mailman/listinfo/forum.help400
<<image001.jpg>>
5722WDS V5R3M0 030905 LISTADO FUENTE SEU
18/03/09 08:02:09 CAMACHO PµG. 1
ARCHIVO FUENTE . . . . . GRIJANDER/QRPGLESRC
MIEMBRO . . . . . . . . . FAC088
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
100 H DECEDIT('0,') DFTNAME(FAC088) DATEDIT(*DMY.)
14/04/97
200 0002 H***
FAC088 14/04/97
300 0003 H* CONFECCION DE RECIBOS POR VENCIMIENTO F.M. 14-4-1.997
FAC088 14/04/97
400 0004 H***
FAC088 14/04/97
500 0005 FNUEVOG IP F 48 07AIDISK KEYLOC(2)
14/04/97
600 0006 FMACLI IF F 500 06AIDISK KEYLOC(2)
14/04/97
700 0007 FQSYSPRT O F 132 PRINTER OFLIND(*INOF)
14/04/97
800 F FORMLEN(024)
14/04/97
900 F FORMOFL(022)
14/04/97
1000 0008 D WS S 15 DIM(29) CTDATA PERRCD(5)
15/04/97
1100 0009 D WS1 S 11 DIM(9) CTDATA PERRCD(7)
15/04/97
1200 0010 D WS2 S 16 DIM(9) CTDATA PERRCD(5)
15/04/97
1300 0011 D WSL S 1 DIM(57)
14/04/97
1400 0012 D WSM S 1 DIM(57)
14/04/97
1500 0014 INUEVOG FM 03 1 CG
14/04/97
1600 0015 I 2 8 0RECIBO
14/04/97
1700 0016 I 9 14 0NUMFRA
14/04/97
1800 0017 I 15 20 0NCLIE
14/04/97
1900 0018 I 21 26 0VTO
14/04/97
2000 0019 I 27 32 0FFRA
14/04/97
2100 0020 I P 33 38 2IMPGI
14/04/97
2200 0021 I 39 39 TPCON
14/04/97
2300 0022 I 40 40 0TENDOM
14/04/97
2400 0023 I 41 43 0FORPA
14/04/97
2500 0024 I 41 41 0FPDOS
14/04/97
2600 0025 I FM 04
14/04/97
2700 0026 IMACLI FM 05
14/04/97
2800 0027 I 8 37 NOMCLI
14/04/97
2900 0028 I 38 67 NOMRAZ
14/04/97
3000 0029 I 68 97 DIREC
14/04/97
3100 0030 I 98 127 POBPRO
14/04/97
3200 0031 I 199 228 DOMPA
14/04/97
3300 0032 I 288 317 DOMLI
14/04/97
3400 0033 I 382 411 POBLI
14/04/97
3500 0034 I 434 448 CTA
14/04/97
3600 0035 I 449 452 CCC1
14/04/97
3700 0036 I 453 456 CCC2
14/04/97
3800 0037 I 457 458 DC
14/04/97
3900 0038 C 03NCLIE CHAIN MACLI
20 14/04/97
4000 0039 C 03 Z-ADD IMPGI WNUM
14/04/97
4100 0040 C FPDOS COMP 2
15 14/04/97
4200 0041 C 03 EXSR WSR1
14/04/97
4300 0042 C WSR1 BEGSR
14/04/97
4400 0043 C Z-ADD 57 WW 2 0
88 14/04/97
4500 0044 C MOVEA '*' WSL
14/04/97
4600 0045 C MOVEA '*' WSM
14/04/97
4700 0046 C WTAG1 TAG
14/04/97
4800 0047 C* A ESTE TAG VOLVERA PARA MILES Y UNIDADES
FAC088 14/04/97
4900 0048 C WCONT COMP 1
828081 14/04/97
5000 0049 C N82WCONT ADD 1 WCONT
14/04/97
5100 0050 C* PARA DETECTAR SI ES LA 1A,2A O 3A VEZ QUE PASA-IND,80,81 V82
FAC088 14/04/97
5200 0051 C MOVEL WNUM WNUM1 3 0
14/04/97
5300 0052 C MOVE WNUM WNUM2 8 0
14/04/97
5400 0053 C MOVEL WNUM2 WNUM 11 2
14/04/97
5500 0054 C* PREPARA UN JUEGO DE TRES CIFRAS EN WNUM1 PARA PROCESARLO
FAC088 14/04/97
5600 0055 C WNUM1 COMP 1
8384 14/04/97
5700 C 83
14/04/97
5800 0056 CANN82 GOTO WTAG2
14/04/97
5900 0057 C 83 GOTO WTAG3
14/04/97
6000 0058 C* SI WNUM1 TIENE CERO MILLONES/MILES VA A WTAG2 Y SI SON CERO
UNI- FAC088 14/04/97
6100 0059 C* DADES VA A WTAG3
FAC088 14/04/97
6200 C 84
14/04/97
6300 0060 CAN 80 MOVEL 'UN' WCAMP
14/04/97
6400 C 84
14/04/97
6500 0061 CAN 80 EXSR WSR2
14/04/97
6600 C 84
14/04/97
6700 0062 CAN 80 MOVEL 'MILLON' WCAMP 17
14/04/97
6800 C 84
14/04/97
6900 0063 CANN82 GOTO WTAG3
14/04/97
7000 0064 C* SI TIENE MIL VA A WTAG3
FAC088 14/04/97
7100 0065 C* SI TIENE UN MILLON MUEVE EL TEXTO A WCAMP Y VA A WTAG4
FAC088 14/04/97
7200 0066 C MOVEL WNUM1 WC 1 0
14/04/97
7300 0067 C WC COMP 1
8385 14/04/97
7400 0068 C Z-ADD WNUM1 WDU 2 0
86 14/04/97
7500 0069 C Z-ADD WDU WU 1 0
87 14/04/97
7600 0070 C MOVEL WDU WD 1 0
14/04/97
7700 0071 C* DESCOMPONE WNUM1 EN WC-WU-WDU Y SITUA INDICADORES
FAC088 14/04/97
7800 C 85
14/04/97
7900 0072 CAN 86 MOVEL 'CIEN' WCAMP
14/04/97
8000 C 85
14/04/97
8100 0073 CAN 86 GOTO WTAG4
14/04/97
8200 0074 C* SI WNUM1 TIENE 100 MUEVE EL TEXTO Y VA A WTAG4
FAC088 14/04/97
8300 0075 C N83 MOVEL WS2(WC) WCAMP
14/04/97
8400 C N83
14/04/97
8500 0076 CANN86 EXSR WSR2
14/04/97
8600 0077 C 86 GOTO WTAG4
14/04/97
8700 0078 C* SI WC NO ES CERO LLENA TEXTO DE CIENTOS Y SI DEC/UNID.O VA
WTAG4 FAC088 14/04/97
8800 0079 C* SI WC NO CERO Y WDU TAMPOCO PREPARA EL TEXTO EN SALIDA
FAC088 14/04/97
8900 0080 C WDU COMP 30
85 14/04/97
9000 0081 C 85 MOVEL WS(WDU) WCAMP
14/04/97
9100 0082 C 85 GOTO WTAG4
14/04/97
9200 0083 C* SI WDU MENOR QUE 30 PREPARA TEXTO Y VA A WTAG4
FAC088 14/04/97
9300 0084 C MOVEL WS1(WD) WCAMP
14/04/97
9400 0085 C 87 GOTO WTAG4
14/04/97
9500 0086 C* PREPARA TEXTO DECENAS Y SI UNID. O VA A WTAG4
FAC088 14/04/97
9600 0087 C EXSR WSR2
14/04/97
9700 0088 C MOVEL 'Y' WCAMP
14/04/97
9800 0089 C EXSR WSR2
14/04/97
9900 0090 C MOVEL WS(WU) WCAMP
14/04/97
10000 0091 C WTAG4 TAG
14/04/97
10100 0092 C EXSR WSR2
14/04/97
10200 0093 C* PREP.TEXTO UNIDADES Y LO LLEVA A LA SALIDA
FAC088 14/04/97
10300 C 80
14/04/97
10400 0094 CANN84 MOVEL WS1(2) WCAMP
14/04/97
10500 0095 C WTAG3 TAG
14/04/97
10600 0096 C 81 MOVEL 'MIL' WCAMP
14/04/97
10700 0097 C 82 MOVEL 'PTS' WCAMP
14/04/97
10800 0098 C EXSR WSR2
14/04/97
10900 0099 C* MUEVE MILLONES, MIL O CON, SEGUN PASADA
FAC088 14/04/97
11000 0100 C WTAG2 TAG
14/04/97
11100 0101 C N82 GOTO WTAG1
14/04/97
11200 0102 C EXSR WSR2
14/04/97
11300 0103 C** MOVEL'CTS.' WCAMP INSTRUCCION
CTSFA C088 15/04/97
11400 0104 C EXSR WSR2
14/04/97
11500 0105 C WX SUB WX WX 3 0
14/04/97
11600 0106 C* PREPARA TEXTO CTS.
FAC088 14/04/97
11700 0107 C WCONT SUB WCONT WCONT 1 0
14/04/97
11800 0108 C ENDSR
14/04/97
11900 0109 C WSR2 BEGSR
14/04/97
12000 0110 C WX ADD 1 WX
14/04/97
12100 0111 C WTAG5 TAG
14/04/97
12200 0112 C 88 GOTO WTAG6
14/04/97
12300 0113 C WV SUB WV WV 1 0
14/04/97
12400 0114 C MOVEL WCAMP WCAMP1 16
14/04/97
12500 0115 C WTAG7 TAG
14/04/97
12600 0116 C MOVEL WCAMP1 WCARAC 1
14/04/97
12700 0117 C EXSR WSR3
14/04/97
12800 0118 C N83WV ADD 1 WV
14/04/97
12900 C N83
14/04/97
13000 0119 CANN85 MOVE WCAMP1 WCAMP2 15
14/04/97
13100 C N83
14/04/97
13200 0120 CANN85 MOVEL WCAMP2 WCAMP1
14/04/97
13300 C N83
14/04/97
13400 0121 CANN85 GOTO WTAG7
14/04/97
13500 0122 C WV COMP WW
88 14/04/97
13600 0123 C 88 Z-ADD 1 WX
14/04/97
13700 0124 C WTAG6 TAG
14/04/97
13800 0125 C MOVEL WCAMP WCARAC
14/04/97
13900 0126 C MOVE WCAMP WCAMP1
14/04/97
14000 0127 C MOVEL WCAMP1 WCAMP
14/04/97
14100 0128 C WZ ADD 1 WZ 2 0
14/04/97
14200 0129 C EXSR WSR3
14/04/97
14300 C N83
14/04/97
14400 0130 CANN88 MOVE WCARAC WSL(WX)
14/04/97
14500 C N83
14/04/97
14600 0131 CAN 88 MOVE WCARAC WSM(WX)
14/04/97
14700 C N83
14/04/97
14800 0132 CANN85WX ADD 1 WX
14/04/97
14900 C N83
14/04/97
15000 0133 CANN85WW SUB 1 WW
14/04/97
15100 0134 C WZ COMP 17
89 14/04/97
15200 C N83
14/04/97
15300 CANN85
14/04/97
15400 0135 CANN89 GOTO WTAG6
14/04/97
15500 0136 C N83 GOTO WTAG5
14/04/97
15600 0137 C WZ SUB WZ WZ
14/04/97
15700 0138 C WW SUB 1 WW
14/04/97
15800 0139 C ENDSR
14/04/97
15900 0140 C WSR3 BEGSR
14/04/97
16000 0141 C WCARAC COMP ' '
83 14/04/97
16100 0142 C WCARAC COMP '-'
85 14/04/97
16200 0143 C ENDSR
14/04/97
16300 0144 O** NUEVA HOJA DE IMPRESION
FAC088 14/04/97
16400 0145 OQSYSPRT D 03 03
14/04/97
16500 0146 O RECIBO 22
14/04/97
16600 0147 O IMPGI 2 70
14/04/97
16700 0148 O NUMFRA 2 31
14/04/97
16800 0149 O FFRA Y 41
14/04/97
16900 0150 O D 03 05
14/04/97
17000 0151 O UDATE Y 34
14/04/97
17100 0152 O VTO Y 57
14/04/97
17200 0153 O 15 67 'REPOSICION
INMEDIATA' 14/04/97
17300 0154 O D 03 09
14/04/97
17400 0155 O WSL B 72
14/04/97
17500 0156 O D 03 10
14/04/97
17600 0157 O WSM B 72
14/04/97
17700 0158 O D 03 12
14/04/97
17800 0159 O N15DOMPA 57
14/04/97
17900 0160 O N15CCC1 68
14/04/97
18000 0161 O D 03 13
14/04/97
18100 0162 O N15DOMLI 55
14/04/97
18200 0163 O N15CCC2 68
14/04/97
18300 0164 O N15DC 71
14/04/97
18400 0165 O D 03 14
14/04/97
18500 0166 O N15POBLI 45
14/04/97
18600 0167 O N15CTA 67
14/04/97
18700 0168 O D 03 16
14/04/97
18800 0169 O NCLIE 31 ' . '
14/04/97
18900 0170 O D 03 17
14/04/97
19000 0171 O NOMCLI 45
14/04/97
19100 0172 O D 03 18
14/04/97
19200 0173 O NOMRAZ 45
14/04/97
19300 0174 O D 03 19
14/04/97
19400 0175 O DIREC 45
14/04/97
19500 0176 O D 03 20
14/04/97
19600 0177 O POBPRO 45
14/04/97
19700 0178 O D 03 22
14/04/97
19800 O 40 '
' 15/04/97
19900 ** WS
14/04/97
20000 UNA DOS TRES CUA-TRO CIN-CO
15/04/97
20100 SEIS SIE-TE OCHO NUE-VE DIEZ
15/04/97
20200 ON-CE DO-CE TRE-CE CA-TOR-CE QUIN-CE
15/04/97
20300 DIE-CI-SEIS DIE-CI-SIE-TE DIE-CI-OCHO DIE-CI-NUE-VE VEIN-TE
15/04/97
20400 VEIN-TI-UNA VEIN-TI-DOS VEIN-TI-TRES
VEIN-TI-CUA-TROVEIN-TI-CIN-CO 15/04/97
20500 VEIN-TI-SEIS VEIN-TI-SIETE VEIN-TI-OCHO VEIN-TI-NUE-VE
15/04/97
20600 ** WS1
14/04/97
20700 UN MI-LLON MI-LLO-NES TREIN-TA CUA-REN-TA CIN-CUEN-TASE-SEN-TA
SE-TEN-TA 15/04/97
20800 OCHEN-TA NO-VEN-TA
15/04/97
20900 ** WS2
14/04/97
21000 CIEN-TO DOS-CIEN-TAS TRES-CIEN-TAS
CUA-TRO-CIEN-TASQUI-NIEN-TAS 14/04/97
21100 SEIS-CIEN-TAS SE-TE-CIEN-TAS OCHO-CIEN-TAS NO-VE-CIEN-TAS
15/04/97
* * * * F I N D E F U E N T E * * * *
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de ServerNEWS. &#169; 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
