*************** Principio de datos ************************************ 0001.00 E S7 7 1 0003.00 E LET 24 24 1 0004.00 E SLJ 10 10 1 LETRAS 1 AL 10 0006.00 I DS 0007.00 I 1 9 NUMERO 0008.00 I 2 9 CIF 0010.00 I 2 8 DNIX 0011.00 I 1 8 DNI 0012.00 I 1 1 SIGLA 0013.00 I 9 9 LETRA 0014.00 C* 0022.00 C* 0023.00 C *ENTRY PLIST 0024.00 C PARM NIFF 9 0025.00 C PARM RESP 1 0026.00 C* RESP = 1 SI NIF ERRONEO 0027.00 C MOVE NIFF NUMERO 0028.00 C MOVE *BLANKS RESP 0029.00 C SETOF 303132 0030.00 C MOVE *ZEROS DNIN 0031.00 C* 0032.00 C SETOF 2725 0049.00 C*-------- 0051.00 C SIGLA IFEQ 'K' 0052.00 C SIGLA OREQ 'L' 0053.00 C SIGLA OREQ 'X' 0054.00 C TESTN DNIX 27 EXTRANJEROS 0055.00 C 27 MOVE DNIX DNIN 80 0056.00 C SETON 30 0057.00 C ELSE 0058.00 C SIGLA IFGE 'A' SOCIEDADES 0059.00 C SIGLA ANDLE'H' 0060.00 C SIGLA OREQ 'S' 0061.00 C SIGLA OREQ 'P' 0062.00 C SIGLA OREQ 'Q' 0065.00 C TESTN DNIX 27 0066.00 C 27 MOVEADNIX S7 0067.00 C SETON 31 0068.00 C ELSE 0069.00 C TESTN DNI 27 PER. FISICA 0070.00 C 27 MOVE DNI DNIN 80 0071.00 C SETON 32 0072.00 C END 0074.00 C END 0075.00 C N27 SETON 25 0076.00 C* 0077.00 C *IN25 IFNE '1' 0078.00 C *IN31 ANDEQ'0' 0079.00 C DNIN DIV 23 V1 90 0080.00 C V1 MULT 23 V2 90 0081.00 C V2 IFGT DNIN 0082.00 C SUB 23 V2 0083.00 C END 0084.00 C DNIN SUB V2 V3 90 0085.00 C ADD 1 V3 0086.00 C MOVEALET,V3 LETR 1 0087.00 C LETRA IFNE LETR 0088.00 C SETON 25 0089.00 C END 0093.00 C ELSE 0094.00 C *IN25 IFNE '1' 0095.00 C EXSR SOCIED 0096.00 C LETRA IFNE CODIGO 0097.00 C SETON 25 0098.00 C END 0099.00 C END 0100.00 C END 0101.00 C 25 MOVE '1' RESP 0102.00 C SETON LR 0136.00 C** 0137.00 C*---------------------------------------------------------------- 0138.00 C* PROCESO PARA SOCIEDADES 0139.00 C*---------------------------------------------------------------- 0149.00 C* 0150.00 C SOCIED BEGSR 0151.00 C Z-ADD0 SUMA 20 0152.00 C MOVE S7,1 DIGITO 10 0153.00 C DIGITO MULT 2 VALOR 20 0154.00 C MOVELVALOR DIGI1 10 0155.00 C MOVE VALOR DIGI2 10 0156.00 C ADD DIGI1 SUMA 0157.00 C ADD DIGI2 SUMA 0158.00 C MOVE S7,3 DIGITO 0159.00 C DIGITO MULT 2 VALOR 0160.00 C MOVELVALOR DIGI1 0161.00 C MOVE VALOR DIGI2 0162.00 C ADD DIGI1 SUMA 0163.00 C ADD DIGI2 SUMA 0164.00 C MOVE S7,5 DIGITO 0165.00 C DIGITO MULT 2 VALOR 0166.00 C MOVELVALOR DIGI1 0167.00 C MOVE VALOR DIGI2 0168.00 C ADD DIGI1 SUMA 0169.00 C ADD DIGI2 SUMA 0170.00 C MOVE S7,7 DIGITO 0171.00 C DIGITO MULT 2 VALOR 0172.00 C MOVELVALOR DIGI1 0173.00 C MOVE VALOR DIGI2 0174.00 C ADD DIGI1 SUMA 0175.00 C ADD DIGI2 SUMA 0176.00 C MOVE S7,2 DIGI1 0177.00 C ADD DIGI1 SUMA 0178.00 C MOVE S7,4 DIGI1 0179.00 C ADD DIGI1 SUMA 0180.00 C MOVE S7,6 DIGI1 0181.00 C ADD DIGI1 SUMA 0182.00 C* 0183.00 C SUMA IFEQ 0 0185.00 C SETON 25 0187.00 C ELSE 0188.00 C* 0189.00 C MOVE SUMA X 20 0190.00 C ADD 10 X 0191.00 C MOVE X DIGI1 0192.00 C DIGI1 IFNE 0 0193.00 C MOVE 0 X 0194.00 C END 0195.00 C X SUB SUMA CC 20 0196.00 C* 0197.00 C SIGLA IFGE 'A' 0198.00 C SIGLA ANDLE'H' 0199.00 C MOVE CC CODIGO 1 0200.00 C ELSE 0201.00 C MOVE SLJ,CC CODIGO 0202.00 C END 0203.00 C END 0204.00 C* 0205.00 C ENDSR 0206.00 C* 0207.00 ** LETRAS VERIF. DNI 0208.00 TRWAGMYFPDXBNJZSQVHLCKET 0209.00 ** LETRAS VERIF. CIF 0210.00 ABCDEFGHIJ ****************** Fin de datos ***************************************