*H**ANAT6206201402232106179LINUX 1CAUC *C** FUENTES EXTSII01 F S *D01NAT6206F FUENTES EXTSII01 DBA S *D02 2014022320340002014022320340000000038875 *D03LINUX *D04 *S************************************************************************** *S*** PROGRAMA: EXTSII01 *S*** AUTOR: JOSE IVAN NIETO T *S*** FECHA DE CREACION: DICIEMBRE DE 2011 *S*** OBJETO: EXTRAE RM-INSCRITOS PARA EL SII *S*** ACTUALIZADO: JOSE IVAN NIETO - 20140222 *S*** SE MODIFICA PARA QUE GENERA INFRORMACION FINANCIERA *S************************************************************************** *S**DEFINE DATA *S**LOCAL USING LINSC00 /* VISTA DE RM-INSCRITOS *S**LOCAL USING LINSC02 /* VISTA DE RM-INSCRITOS *S**LOCAL USING LINSC03 /* VISTA DE RM-INSCRITOS *S**LOCAL USING LVALID00 /* VISTA DE TA-VALIDACION *S**LOCAL USING LCTRCERT /* VISTA DE RM-CTR-CERTIFICAS *S**LOCAL USING LFINAN00 /* VISTA DE RM-INFORMACION-FINANCIERA *S**LOCAL USING LCAPIT00 /* VISTA DE RM-INFORMACION-CAPITALES *S**LOCAL USING LVLEST00 /* VISTA DE RM-VALOR-ESTABLECIMIENTO *S**LOCAL USING LPROPE00 /* VISTA DE RM-PROPES *S**LOCAL USING LVINCU00 /* VISTA DE RM-VINCULOS *S**LOCAL USING LLIBRO80 /* VISTA DE RM-LIBROS *S**LOCAL USING LRMVSII1 /* VISTA DEL ARCHIVO VSAM RM-EXTRACCION *S**LOCAL USING LRMVSII3 /* VISTA DEL ARCHIVO VSAM RM-INFORMACION-FIN *S**LOCAL USING LCAMCO00 /* VISTA DEL ARCHIVO TA-CAMARA-COMERCIO *S**LOCAL USING LTAVAL00 /* VISTA TA-VALIDACION *S**LOCAL USING LCTEMB00 /* VISTA DE LA TABLA DE CONTROL DE EMBARGOS *S**LOCAL USING LSLUCR00 /* VISTA DE LA TABLA RM-SLUCRO *S**LOCAL USING LCASAP00 /* VISTA DE TABLA CASA PRINCIPAL *S**LOCAL USING LAFILI80 /* VISTA TABLA DE AFILIADOS *S**/* *S**LOCAL *S**/* *S**1 CIIU VIEW OF RM-CIIU *S** 2 ID-MATRICULA *S** 2 cod-shd *S** 2 ID-CCAE *S**/* *S**1 LACTIV00 VIEW OF RM-ACTIVIDAD *S** 2 ID-MATRICULA *S** 2 CONS-LINEA *S** 2 TXT-ACTIV *S**/* *S**LOCAL *S**/* *S**1 WX-HORA (A8) *S**1 WX-FECHA (A8) *S**1 WX-I (N2) *S**1 WX-J (N5) *S**1 X2 (N2) *S**1 X2-FECHA (A8) *S**1 WX-FECHACAN (A8) *S**1 WX-FECHACONST (A8) *S**1 WX-FECHADIS (A8) *S**1 WX-FECHALIQ (A8) *S**1 WX-TIPODOC (A2) *S**1 WX-NUMDOC (A9) *S**1 WX-ORIGENDOC (A65) *S**1 WX-FECDOC (A8) *S**1 WX-EMBARGO (A1) *S**1 WX-ACTIVIDAD (A650) *S**1 WX-LIBROS-COM (A1) *S**1 WX-LINEA (A60) *S**1 WX-ORIGENDOCCONST (A60) *S**/* *S**1 WX10 (A81) *S**1 REDEFINE WX10 *S** 2 WX10-MATRICULA (A8) *S** 2 WX10-ANODATOS (A4) *S** 2 WX10-FECHADATOS (A8) *S** 2 WX10-DATO (A20) *S** 2 WX10-CUOTAS (A20) *S** 2 WX10-VALOR (A20) *S** 2 WX10-SIGNO (A1) *S**/* *S**1 WX11 (A475) *S**1 REDEFINE WX11 *S** 2 WX11-MATRICULA (A8) *S** 2 WX11-IDCLASE (A1) *S** 2 WX11-NUMID (A11) *S** 2 WX11-NOMBRE (A128) *S** 2 WX11-VINCULO (A4) *S** 2 WX11-CARGO (A65) *S** 2 WX11-CUOTAS-CONST (A20) *S** 2 WX11-VALOR-CONST (A20) *S** 2 WX11-CUOTAS-REF (A20) *S** 2 WX11-VALOR-REF (A20) *S** 2 WX11-VALASO-1 (A20) *S** 2 WX11-VALASO-2 (A20) *S** 2 WX11-VALASO-3 (A20) *S** 2 WX11-VALASO-4 (A20) *S** 2 WX11-VALASO-5 (A20) *S** 2 WX11-VALASO-6 (A20) *S** 2 WX11-VALASO-7 (A20) *S** 2 WX11-VALASO-8 (A20) *S** 2 WX11-LIBRO (A2) *S** 2 WX11-REGISTRO (A8) *S** 2 WX11-FECHA (A8) *S**/* *S**1 WLEIDOS (N8) *S**1 WLEIDOS1 (N8) *S**1 WLEIDOS2 (N8) *S**1 WGRABADOS (N8) *S**/* *S**1 WSCP (A18) *S**1 REDEFINE WSCP *S** 2 WSCP-TABLA (A2) *S** 2 WSCP-CODIGO (A16) *S**/* *S**1 WSCP1 (A12) *S**1 REDEFINE WSCP1 *S** 2 WSCP1-MATRICULA (A8) *S** 2 WSCP1-FECHA (D) *S**/* *S**1 WSCP2 (A12) *S**1 REDEFINE WSCP2 *S** 2 WSCP2-MATRICULA (A8) *S** 2 WSCP2-CERTIF (A4) *S**/* *S**1 WSCP3 (A18) *S**1 REDEFINE WSCP3 *S** 2 WSCP3-TABLA (A2) *S** 2 WSCP3-CODIGO (A16) *S**/* *S**1 WSCP4 (A16) *S**1 REDEFINE WSCP4 *S** 2 WSCP4-MAT (A8) *S** 2 WSCP4-ANO (A4) *S** 2 WSCP4-FECHA (D) *S**/* *S**1 WCANTEST (N6) *S**/* *S**1 WSCP6 (A16) *S**1 REDEFINE WSCP6 *S** 2 WSCP6-MATVIN (A8) *S** 2 WSCP6-VIN (A4) *S** 2 WSCP6-CARGO (A4) *S**/* *S**1 WSP7 (A12) *S**/* *S**1 WCONT-SOCIOS (N6) *S**1 WCAMARA-1 (A2) *S**1 WPATH (A19) *S**1 WARCHIVO (A100) *S**1 WARCHIVO1 (A100) *S**END-DEFINE *S**** *S**READ(1) LCAMCO00 *S** MOVE LCAMCO00.COD-CAMARA TO WCAMARA-1 *S**END-READ *S**/* *S**PERFORM RM-INSCRITOS *S**PERFORM RM-INFORMACION-FINANCIERA *S**PERFORM RM-INFORMACION-ESTABLECIMIENTOS *S**PERFORM RM-INFORMACION-CAPITALES *S**PERFORM RM-INFORMACION-VINCULOS *S**/* *S**DEFINE SUBROUTINE RM-INSCRITOS *S** MOVE EDITED *DATX (EM=YYYYMMDD) TO WX-FECHA *S** MOVE EDITED *TIMX (EM=HHIISS) TO WX-HORA *S** MOVE '/home/sag/archiins/' TO WPATH *S** COMPRESS WPATH WCAMARA-1 '-sii01-' wx-fecha '-' wx-hora '.txt' *S** INTO WARCHIVO LEAVING NO SPACE *S** /* *S** DEFINE WORK FILE 30 warchivo *S** /* *S** RESET WLEIDOS WLEIDOS1 WLEIDOS2 WGRABADOS *S** GT0. *S** READ LINSC00 BY ID-MATRICULA *S** ADD 1 TO WLEIDOS *S** ADD 1 TO WLEIDOS1 *S** ADD 1 TO WLEIDOS2 *S** IF LINSC00.CTR-DIGITAL-VARIOS NE '9' *S** PERFORM CARGAR-INSCRITO *S** PERFORM LLENAFILLER *S** WRITE WORK FILE 30 LRMVSII1 *S** MOVE '0' TO LINSC00.CTR-DIGITAL-VARIOS *S** UPDATE (GT0.) *S** END TRANSACTION *S** ADD 1 TO WGRABADOS *S** IF WGRABADOS > 19999 *S** CLOSE WORK FILE 30 *S** MOVE 0 TO WGRABADOS *S** /* *S** MOVE EDITED *DATX (EM=YYYYMMDD) TO WX-FECHA *S** MOVE EDITED *TIMX (EM=HHIISS) TO WX-HORA *S** MOVE '/home/sag/archiins/' TO WPATH *S** COMPRESS WPATH WCAMARA-1 *S** '-sii01-' wx-fecha '-' wx-hora '.txt' *S** INTO WARCHIVO LEAVING NO SPACE *S** DEFINE WORK FILE 30 warchivo *S** END-IF *S** END-IF *S** IF WLEIDOS1 > 20 *S** END TRANSACTION *S** MOVE 1 TO WLEIDOS1 *S** END-IF *S** END-READ *S** END TRANSACTION *S** CLOSE WORK FILE 30 *S** /* *S**END-SUBROUTINE *S** /* *S**DEFINE SUBROUTINE CARGAR-INSCRITO *S**RESET LRMVSII1 *S**MOVE WLEIDOS TO LRMVSII1.CONTEO *S**MOVE LINSC00.ID-MATRICULA TO LRMVSII1.ID-MATRICULA *S**MOVE LINSC00.ID-INSC TO LRMVSII1.ID-INSC *S**MOVE LINSC00.CTR-ORG TO LRMVSII1.ORGANIZACION *S**MOVE LINSC00.CTR-CAT-MATRICULA TO LRMVSII1.CATEGORIA *S**MOVE LINSC00.CTR-EST-MATRICULA TO LRMVSII1.EST-MATRICULA *S**MOVE LINSC00.CTR-EST-PROPON TO LRMVSII1.EST-PROPONENTE *S**MOVE LINSC00.NOM-INSC1 TO LRMVSII1.RAZON-SOCIAL *S**MOVE LINSC00.ID-CLASE TO LRMVSII1.ID-CLASE *S**MOVE LINSC00.NUM-ID TO LRMVSII1.NUM-ID *S**MOVE LINSC00.NUM-RUE TO LRMVSII1.NIT *S**MOVE EDITED LINSC00.FEC-MATRICULA (EM=YYYYMMDD) TO *S** LRMVSII1.FEC-MATRICULA *S**MOVE EDITED LINSC00.FEC-RENOVA (EM=YYYYMMDD) TO *S** LRMVSII1.FEC-RENOVA *S**MOVE LINSC00.ULT-ANO-RENOVA TO LRMVSII1.ULT-ANO-RENOVA *S**/* *S**RESET WX-FECHACAN *S**RESET WX-FECHACONST *S**RESET WX-FECHADIS *S**RESET WX-FECHALIQ *S**RESET WX-TIPODOC *S**RESET WX-NUMDOC *S**RESET WX-FECDOC *S**RESET WX-ORIGENDOC *S**RESET WX-LIBROS-COM *S**/* *S**PERFORM ENCONTRAR-LIBROS *S**/* *S**MOVE WX-LIBROS-COM TO LRMVSII1.CTR-LIBROS-COMERCIO *S**/* *S**IF LINSC00.CTR-EST-MATRICULA NE 'MC' AND *S**LINSC00.CTR-EST-MATRICULA NE 'IC' *S** RESET WX-FECHACAN *S**END-IF *S**IF LINSC00.CTR-ORG EQ '01' OR EQ '02' OR *S**LINSC00.CTR-CAT-MATRICULA EQ '1' OR EQ '2' *S** RESET WX-FECHACONST *S** RESET WX-TIPODOC *S** RESET WX-FECDOC *S** RESET WX-ORIGENDOC *S** RESET WX-NUMDOC *S** RESET WX-FECHALIQ *S** RESET WX-FECHADIS *S**END-IF *S**MOVE WX-FECHACAN TO LRMVSII1.FEC-CANCELACION *S**MOVE WX-FECHACONST TO LRMVSII1.FEC-CONSTITUCION *S**IF LINSC00.FEC-PERJ NE 0 *S** MOVE EDITED LINSC00.FEC-PERJ (EM=YYYYMMDD) TO *S** LRMVSII1.FEC-CONSTITUCION *S**END-IF *S**MOVE WX-FECHALIQ TO LRMVSII1.FEC-LIQUIDACION *S**MOVE WX-FECHADIS TO LRMVSII1.FEC-DISOLUCION *S**MOVE WX-NUMDOC TO LRMVSII1.NUM-DOC-CONST *S**MOVE WX-FECDOC TO LRMVSII1.FEC-DOC-CONST *S**/* *S**IF LINSC00.CTR-ORG GT '02' AND *S**LINSC00.CTR-CAT-MATRICULA EQ '1' *S** IF LINSC00.CTR-VIGENCIA EQ '1' *S** MOVE EDITED LINSC00.FEC-VIG (EM=YYYYMMDD) TO *S** LRMVSII1.FEC-VIGENCIA *S** END-IF *S**END-IF *S**/* *S**MOVE LINSC00.DIR-COMERCIAL TO LRMVSII1.DIRCOM *S**MOVE LINSC00.DIRCOM-BARRIO TO LRMVSII1.DIRCOM-BARRIO *S**IF LINSC00.DIRCOM-BARRIO NE ' ' AND LINSC00.DIRCOM-BARRIO NE '00000' *S** MOVE 'B2' TO WSCP3-TABLA *S** MOVE LINSC00.DIRCOM-BARRIO TO WSCP3-CODIGO *S** FIND (1) LTAVAL00 WITH LTAVAL00.SP-CODIGO EQ WSCP3 *S** IF NO RECORD FOUND *S** ESCAPE BOTTOM *S** END-NOREC *S** MOVE LTAVAL00.DES-CODIGO TO LRMVSII1.DIRCOM-NOMBARRIO *S** END-FIND *S**END-IF *S**/* *S**MOVE LINSC00.ID-MUNIP-COMERCIAL TO LRMVSII1.MUNCOM *S**MOVE LINSC00.NUM-TEL-1 TO LRMVSII1.TELCOM-1 *S**MOVE LINSC00.NUM-TEL-2 TO LRMVSII1.TELCOM-2 *S**MOVE LINSC00.NUM-CELULAR TO LRMVSII1.CELCOM *S**MOVE LINSC00.DIRCOM-NUMPREDIAL TO LRMVSII1.NUM-PREDIAL *S**MOVE LINSC00.NUM-INTERNET-ADRESS TO LRMVSII1.EMAILCOM *S**MOVE LINSC00.DIR-URL TO LRMVSII1.URLCOM *S**/* *S**MOVE LINSC00.DIR-NOTF-JUDC TO LRMVSII1.DIRNOT *S**MOVE LINSC00.ID-MUNIP-JUDC TO LRMVSII1.MUNNOT *S**MOVE LINSC00.NUM-TEL-NOTF TO LRMVSII1.TELNOT *S**MOVE LINSC00.NUM-CELULAR-NOTF TO LRMVSII1.CELNOT *S**MOVE LINSC00.E-MAIL-NOTF TO LRMVSII1.EMAILNOT *S**/* *S**MOVE LINSC00.CIIU1-V4 TO LRMVSII1.COD-CIIU-1 *S**MOVE LINSC00.CIIU2-V4 TO LRMVSII1.COD-CIIU-2 *S**MOVE LINSC00.CIIU3-V4 TO LRMVSII1.COD-CIIU-3 *S**MOVE LINSC00.CIIU4-V4 TO LRMVSII1.COD-CIIU-4 *S**RESET LRMVSII1.COD-CIIU-5 *S**RESET LRMVSII1.DES-ACTIVIDAD *S**/* *S**MOVE LINSC00.CTR-AFLIA TO LRMVSII1.CTR-AFILIACION *S**MOVE LINSC00.CTR-IMPORT-EXPORT TO LRMVSII1.CTR-IMPEXP *S**MOVE LINSC00.CTR-PROP-LOCAL TO LRMVSII1.CTR-TIPOLOCAL *S**MOVE LINSC00.CTR-ESTADO-DATOS TO LRMVSII1.EST-DATOS *S**/* *S**IF LINSC00.CTR-AFLIA NE ' ' AND LINSC00.CTR-AFLIA NE '0' *S** FIND (1) LAFILI80 WITH LAFILI80.ID-MATRICULA EQ *S** LINSC00.ID-MATRICULA *S** IF NO RECORD FOUND *S** ESCAPE BOTTOM *S** END-NOREC *S** MOVE EDITED LAFILI80.FEC-ACTA-ACEPTA (EM=YYYYMMDD) *S** TO LRMVSII1.FEC-AFIL *S** FOR X2 = 1 TO C*LAFILI80.PAGOS-RENOVACION *S** IF LAFILI80.FEC-PAGO (X2) NE 0 *S** MOVE EDITED LAFILI80.FEC-PAGO (X2) (EM=YYYYMMDD) TO *S** X2-FECHA *S** ELSE *S** RESET X2-FECHA *S** END-IF *S** IF X2-FECHA GT LRMVSII1.FEC-ULT-PAG-AFI *S** MOVE X2-FECHA TO LRMVSII1.FEC-ULT-PAG-AFI *S** MOVE EDITED LAFILI80.VR-PAGO (X2) (EM=9(15)) *S** TO LRMVSII1.VAL-ULT-PAG-AFI *S** END-IF *S** END-FOR *S** END-FIND *S**END-IF *S**/* *S**MOVE LINSC00.BENEFICIO-ART-4 TO LRMVSII1.BENEFICIO-ART-4 *S**MOVE LINSC00.BENEFICIO-ART-7 TO LRMVSII1.BENEFICIO-ART-7 *S**MOVE LINSC00.BENEFICIO-ART-50 TO LRMVSII1.BENEFICIO-ART-50 *S**/* *S**PERFORM ENCONTRAR-EMBARGOS *S**MOVE WX-EMBARGO TO LRMVSII1.CTR-EMBARGO *S**/* *S**MOVE LINSC00.CTR-FUNCIONAMIENTO TO LRMVSII1.CTR-TIEMPOFUN *S**MOVE LINSC00.CTR-UBICACION TO LRMVSII1.CTR-UBIFUN *S**/* *S**IF SUBSTR (LINSC00.ID-MATRICULA,1,1) EQ 'S' *S** FIND (1) LSLUCR00 WITH LSLUCR00.ID-MATRICULA EQ LINSC00.ID-MATRICULA *S** IF NO RECORD FOUND *S** ESCAPE BOTTOM *S** END-NOREC *S** MOVE LSLUCR00.CTR-CLASE-GENERAL TO LRMVSII1.CTR-CLASE-GENERAL *S** MOVE LSLUCR00.CTR-CLASE-ESPECIFICA TO LRMVSII1.CTR-CLASE-ESPE *S** MOVE LSLUCR00.CTR-ECONOMIA-SOLIDARIA TO *S** LRMVSII1.CTR-CLASE-ECONSOLI *S** MOVE LSLUCR00.NUM-PERJ TO LRMVSII1.NUM-PERJ *S** MOVE EDITED LSLUCR00.FEC-PERJ (EM=YYYYMMDD) TO LRMVSII1.FEC-PERJ *S** END-FIND *S**END-IF *S**/* *S**PERFORM INFORMACION-FINANCIERA *S**PERFORM REPRESENTANTE-LEGAL *S**PERFORM BUSCAR-SOCIOS *S**PERFORM CALCULA-ESTABLECIMIENTOS *S**IF LINSC00.CTR-ORG EQ '02' *S** PERFORM BUSCAR-PROPIETARIO *S**END-IF *S**IF LINSC00.CTR-CAT-MATRICULA EQ '2' OR EQ '3' *S** PERFORM BUSCAR-CASA-PRINCIPAL *S**END-IF *S**/* *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE ENCONTRAR-LIBROS *S**RESET WSCP2 *S**MOVE LINSC00.ID-MATRICULA TO WSCP2-MATRICULA *S**RESET WSCP2-CERTIF *S**READ LLIBRO80 BY LLIBRO80.SP-MATCERLIB STARTING FROM WSCP2 *S** IF LLIBRO80.ID-MATRICULA NE LINSC00.ID-MATRICULA *S** ESCAPE BOTTOM *S** END-IF *S** IF LLIBRO80.ID-CERTIF EQ '0040' *S** MOVE EDITED LLIBRO80.FEC-REG (EM=YYYYMMDD) TO WX-FECHACONST *S** MOVE LLIBRO80.TIP-DOC TO WX-TIPODOC *S** MOVE LLIBRO80.NUM-DOC TO WX-NUMDOC *S** MOVE EDITED LLIBRO80.FEC-DOC (EM=YYYYMMDD) TO WX-FECDOC *S** END-IF *S** /* *S** IF LLIBRO80.ID-CERTIF EQ '0510' *S** IF LLIBRO80.CTR-REVOCA EQ 0 *S** MOVE EDITED LLIBRO80.FEC-REG (EM=YYYYMMDD) TO WX-FECHADIS *S** END-IF *S** END-IF *S** /* *S** IF LLIBRO80.ID-CERTIF EQ '0520' *S** MOVE EDITED LLIBRO80.FEC-REG (EM=YYYYMMDD) TO WX-FECHALIQ *S** IF LINSC00.CTR-ORG EQ '12' OR EQ '14' *S** IF LINSC00.CTR-CAT-MATRICULA EQ '0' OR EQ '1' *S** MOVE EDITED LLIBRO80.FEC-REG (EM=YYYYMMDD) TO WX-FECHACAN *S** END-IF *S** END-IF *S** END-IF *S** /* *S** IF LLIBRO80.ID-CERTIF EQ '0530' OR EQ '0531' OR EQ '0532' *S** OR EQ '0533' OR EQ '0534' OR EQ '0535' OR EQ '0536' OR EQ '0537' *S** OR EQ '0538' OR EQ '0539' OR EQ '0540' OR EQ '0180' *S** MOVE EDITED LLIBRO80.FEC-REG (EM=YYYYMMDD) TO WX-FECHACAN *S** END-IF *S** /* *S** IF LLIBRO80.ID-LIBRO EQ '07' OR EQ '52' *S** IF LLIBRO80.ID-LIBRO-VII NE ' ' OR *S** LLIBRO80.COD-LIBRO-COMER NE ' ' *S** MOVE "S" TO WX-LIBROS-COM *S** END-IF *S** END-IF *S** /* *S**END-READ *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE ENCONTRAR-EMBARGOS *S**RESET WX-EMBARGO *S**READ LCTEMB00 WITH LCTEMB00.SP-MATRICULA EQ LINSC00.ID-MATRICULA *S** IF LCTEMB00.ID-MATRICULA NE LINSC00.ID-MATRICULA *S** ESCAPE BOTTOM *S** END-IF *S** IF LCTEMB00.ID-ACTO EQ '0022' OR LCTEMB00.ID-ACTO EQ '0900' OR *S** LCTEMB00.ID-ACTO EQ '1000' *S** IF LCTEMB00.CTR-ESTADO-EMBARGO EQ '1' *S** MOVE 'S' TO WX-EMBARGO *S** END-IF *S** END-IF *S**END-READ *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE INFORMACION-FINANCIERA *S**IF LINSC00.CTR-ORG = '02' OR *S**LINSC00.CTR-CAT-MATRICULA = '2' OR *S**LINSC00.CTR-CAT-MATRICULA = '3' *S** PERFORM LEER-VALOR-ESTABLECIMIENTO *S**ELSE *S** PERFORM LEER-FINANCIERA *S** PERFORM LEER-CAPITALES *S**END-IF *S**END-SUBROUTINE *S**** *S**DEFINE SUBROUTINE LEER-VALOR-ESTABLECIMIENTO /* VALOR DE ESTABLECIMIENTO *S**MOVE LINSC00.ID-MATRICULA TO WSCP4-MAT *S**MOVE '9999' TO WSCP4-ANO *S**RESET WSCP4-FECHA *S**READ(1) LVLEST00 IN DESC WITH SP-MATFECHA EQ WSCP4 *S** IF LVLEST00.ID-MATRICULA-ESTABLE NE WSCP4-MAT *S** ESCAPE BOTTOM *S** END-IF *S** MOVE LVLEST00.VR-ESTABLE TO LRMVSII1.VALEST *S** IF LVLEST00.NUM-PERS-OCUPADO < 99999 *S** MOVE LVLEST00.NUM-PERS-OCUPADO TO LRMVSII1.PERSONAL *S** END-IF *S** MOVE EDITED FEC-CREAC-DATOS(EM=YYYYMMDD) TO LRMVSII1.FECHA-DATOS *S** MOVE LVLEST00.ANO-DATOS TO LRMVSII1.ANO-DATOS *S**END-READ *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE LEER-FINANCIERA *S**MOVE LINSC00.ID-MATRICULA TO WSCP4-MAT *S**MOVE '9999' TO WSCP4-ANO *S**RESET WSCP4-FECHA *S**READ(1) LFINAN00 IN DESC WITH SP-MATRICULA EQ WSCP4 *S** IF LFINAN00.ID-MATRICULA NE WSCP4-MAT *S** ESCAPE BOTTOM *S** END-IF *S** MOVE LFINAN00.VR-ACTI-SAJUSTE-INFL TO LRMVSII1.ACTSINAJU *S** MOVE LFINAN00.VR-ACTI-CORRIENTES TO LRMVSII1.ACTCTE *S** MOVE LFINAN00.VR-ACTI-FIJOS TO LRMVSII1.ACTFIJ *S** MOVE LFINAN00.VR-VALORACION-ACTI TO LRMVSII1.ACTVAL *S** MOVE LFINAN00.VR-OTROS-ACTI TO LRMVSII1.ACTOTR *S** MOVE LFINAN00.VR-TOT-ACTI-BRUTOS TO LRMVSII1.ACTTOT *S** MOVE LFINAN00.VR-PASI-CORRIENTES TO LRMVSII1.PASCTE *S** MOVE LFINAN00.VR-OBLIGACIONES-LARGOPL TO LRMVSII1.PASLAR *S** MOVE LFINAN00.VR-VENTAS-NETAS TO LRMVSII1.INGOPE *S** MOVE LFINAN00.VR-COSTO-VENTAS TO LRMVSII1.GASOPE *S** IF LFINAN00.VR-UTILI LT 0 *S** MOVE '-' TO LRMVSII1.UTINET-S *S** MOVE LFINAN00.VR-UTILI TO LRMVSII1.UTINET *S** COMPUTE LRMVSII1.UTINET = LRMVSII1.UTINET * (-1) *S** ELSE *S** MOVE '+' TO LRMVSII1.UTINET-S *S** MOVE LFINAN00.VR-UTILI TO LRMVSII1.UTINET *S** END-IF *S** IF LFINAN00.VR-UTILI-OPER LT 0 *S** MOVE '-' TO LRMVSII1.UTIOPE-S *S** MOVE LFINAN00.VR-UTILI-OPER TO LRMVSII1.UTIOPE-S *S** COMPUTE LRMVSII1.UTIOPE = LRMVSII1.UTIOPE * (-1) *S** ELSE *S** MOVE '+' TO LRMVSII1.UTIOPE-S *S** MOVE LFINAN00.VR-UTILI-OPER TO LRMVSII1.UTIOPE *S** END-IF *S** MOVE LFINAN00.VR-PATRIM-LIQ TO LRMVSII1.PATTOT *S** MOVE LFINAN00.VR-TOT-PASI-PATRIM TO LRMVSII1.PASPAT *S** MOVE LFINAN00.VR-TOT-PASI TO LRMVSII1.PASTOT *S** IF LFINAN00.NUM-PERS-OCUPADO < 99999 *S** MOVE LFINAN00.NUM-PERS-OCUPADO TO LRMVSII1.PERSONAL *S** END-IF *S** MOVE EDITED LFINAN00.FEC-CREACION-DAT (EM=YYYYMMDD) TO *S** LRMVSII1.FECHA-DATOS *S** MOVE LFINAN00.ANO-DAT TO LRMVSII1.ANO-DATOS *S**END-READ *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE LEER-CAPITALES *S**MOVE LINSC00.ID-MATRICULA TO WSCP4-MAT *S**MOVE '9999' TO WSCP4-ANO *S**RESET WSCP4-FECHA *S**READ(1) LCAPIT00 IN DESC WITH SP-CAPITAL EQ WSCP4 *S** IF LCAPIT00.ID-MATRICULA NE WSCP4-MAT *S** ESCAPE BOTTOM *S** END-IF *S** IF LINSC00.CTR-ORG = '04' OR LINSC00.CTR-ORG = '07' OR *S** LINSC00.CTR-ORG = '16' *S** MOVE LCAPIT00.VR-CAPT-AUTORIZADO TO LRMVSII1.CAPAUT *S** MOVE LCAPIT00.VR-CAPT-SUSCRITO TO LRMVSII1.CAPSUS *S** MOVE LCAPIT00.VR-CAPT-PAGADO TO LRMVSII1.CAPPAG *S** ELSE *S** IF LINSC00.CTR-ORG GT '02' AND LINSC00.CTR-ORG LT '12' *S** MOVE LCAPIT00.VR-CAPT-SOCIAL TO LRMVSII1.CAPSOC *S** END-IF *S** END-IF *S** IF LINSC00.CTR-ORG EQ '08' /* CAPITAL ASIGNADO A LA SUCURSAL *S** MOVE LCAPIT00.VR-CAPT-ASIGNADO-SUC TO LRMVSII1.CAPPAG *S** END-IF *S** /* *S** MOVE LCAPIT00.VR-APORTE-DINERO TO LRMVSII1.APODIN *S** MOVE LCAPIT00.VR-APORTE-LABORAL TO LRMVSII1.APOLAB *S** MOVE LCAPIT00.VR-APORTES-ACTIV TO LRMVSII1.APOACT *S** MOVE LCAPIT00.VR-APORTE-LABORAL-AD TO LRMVSII1.APOLABADI *S** MOVE LCAPIT00.VR-TOT-APORTES TO LRMVSII1.APOTOT *S** /* *S** MOVE LCAPIT00.PCT-NAL-PRIV-LAB TO LRMVSII1.POR-NAL-PRI *S** MOVE LCAPIT00.PCT-NAL-PUB TO LRMVSII1.POR-NAL-PUB *S** MOVE LCAPIT00.PCT-NAL-TOT TO LRMVSII1.POR-NAL-TOT *S** MOVE LCAPIT00.PCT-EXTR-PUB TO LRMVSII1.POR-EXT-PUB *S** MOVE LCAPIT00.PCT-EXTR-PRIV TO LRMVSII1.POR-EXT-PRI *S** MOVE LCAPIT00.PCT-EXTR-TOT TO LRMVSII1.POR-EXT-TOT *S** IF LCAPIT00.PCT-NAL-PRIV-LAB > 0 AND LCAPIT00.PCT-NAL-PUB > 0 *S** MOVE 'S' TO LRMVSII1.CTR-ECONMIXTA *S** ELSE *S** MOVE 'N' TO LRMVSII1.CTR-ECONMIXTA *S** END-IF *S**END-READ *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE REPRESENTANTE-LEGAL *S**DECIDE ON FIRST VALUE OF LINSC00.CTR-ORG *S** VALUE '01' *S** IGNORE *S** VALUE '02' *S** IGNORE *S** VALUE '06' MOVE '1120' TO WSCP6-VIN *S** PERFORM BUSCAR-REPLEGAL *S** VALUE '11' MOVE '3110' TO WSCP6-VIN *S** PERFORM BUSCAR-REPLEGAL *S** VALUE '12' MOVE '4170' TO WSCP6-VIN *S** PERFORM BUSCAR-REPLEGAL *S** VALUE '14' MOVE '4170' TO WSCP6-VIN *S** PERFORM BUSCAR-REPLEGAL *S** NONE MOVE '2170' TO WSCP6-VIN *S** PERFORM BUSCAR-REPLEGAL *S**END-DECIDE *S**IF LINSC00.CTR-ORG EQ '01' OR LINSC00.CTR-ORG GT '02' *S** RESET WCANTEST *S** PERFORM CALCULA-ESTABLECIMIENTOS *S**END-IF *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE BUSCAR-REPLEGAL *S**MOVE LINSC00.ID-MATRICULA TO WSCP6-MATVIN *S**RESET WSCP6-CARGO *S**READ(1) LVINCU00 WITH SP-MATVINCARG EQ WSCP6 *S** IF LVINCU00.ID-MATRICULA NE WSCP6-MATVIN *S** OR ID-VINCULO NE WSCP6-VIN *S** ESCAPE BOTTOM *S** END-IF *S** COMPRESS LVINCU00.ID-CLASE LVINCU00.NUM-ID TO WSP7 LEAVING NO *S** FIND(1) LINSC03 WITH SP-IDENTIFICACION EQ WSP7 *S** MOVE SUBSTR(LINSC03.NOM-INSC1,1,58) TO LRMVSII1.NOM-REP-LEGAL *S** MOVE LINSC03.NUM-ID TO LRMVSII1.IDE-REP-LEGAL *S** END-FIND *S**END-READ *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE BUSCAR-SOCIOS *S**RESET WCONT-SOCIOS *S**MOVE LINSC00.ID-MATRICULA TO WSCP6-MATVIN *S**MOVE '1100' TO WSCP6-VIN *S**RESET WSCP6-CARGO *S**READ LVINCU00 BY SP-MATVINCARG STARTING FROM WSCP6 *S** IF LVINCU00.ID-MATRICULA EQ WSCP6-MATVIN *S** IF ((LVINCU00.ID-VINCULO GE '1100' AND LVINCU00.ID-VINCULO LE '1170') *S** OR (LVINCU00.ID-VINCULO GE '3110' AND LVINCU00.ID-VINCULO LE '3111')) *S** ADD 1 TO WCONT-SOCIOS *S** END-IF *S** ELSE *S** ESCAPE BOTTOM *S** END-IF *S**END-READ *S**MOVE WCONT-SOCIOS TO LRMVSII1.NUM-SOCIOS *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE BUSCAR-PROPIETARIO *S** /* *S** RESET LRMVSII1.MATPROP LRMVSII1.NUMIDPROP LRMVSII1.CAMARAPROP *S** LRMVSII1.NOMPROP LRMVSII1.DIRPROP LRMVSII1.TELPROP *S** LRMVSII1.CELPROP LRMVSII1.MUNPROP LRMVSII1.EMAILPROP *S** LRMVSII1.NITPROP *S** /* *S** READ LPROPE00 BY LPROPE00.ID-MATRICULA-ESTABLE STARTING FROM *S** LINSC00.ID-MATRICULA *S** IF ID-MATRICULA-ESTABLE NE LINSC00.ID-MATRICULA *S** OR LRMVSII1.NOMPROP NE ' ' *S** ESCAPE BOTTOM *S** END-IF *S** COMPRESS LPROPE00.ID-CLASE LPROPE00.NUM-ID TO WSP7 LEAVING NO *S** FIND(1) LINSC03 WITH SP-IDENTIFICACION EQ WSP7 *S** MOVE LINSC03.NOM-INSC1 TO LRMVSII1.NOMPROP *S** MOVE RIGHT JUSTIFIED LINSC03.NUM-ID TO LRMVSII1.NUMIDPROP *S** IF LINSC03.NUM-RUE NE ' ' *S** MOVE LINSC03.NUM-RUE TO LRMVSII1.NITPROP *S** END-IF *S** END-FIND *S** IF LRMVSII1.NOMPROP EQ ' ' *S** FIND(1) LINSC03 WITH ID-MATRICULA EQ ID-MATRICULA-PROP *S** MOVE LCAMCO00.COD-CAMARA TO LRMVSII1.CAMARAPROP *S** MOVE LINSC03.ID-MATRICULA TO LRMVSII1.MATPROP *S** MOVE LINSC03.NOM-INSC1 TO LRMVSII1.NOMPROP *S** MOVE RIGHT JUSTIFIED LINSC03.NUM-ID TO LRMVSII1.NUMIDPROP *S** MOVE LINSC03.NUM-TEL-1 TO LRMVSII1.TELPROP *S** MOVE LINSC03.NUM-CELULAR TO LRMVSII1.CELPROP *S** MOVE LINSC03.ID-MUNIP-COMERCIAL TO LRMVSII1.MUNPROP *S** MOVE LINSC03.NUM-INTERNET-ADRESS TO LRMVSII1.EMAILPROP *S** MOVE LINSC03.NUM-RUE TO LRMVSII1.NITPROP *S** END-FIND *S** END-IF *S**END-READ *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE CALCULA-ESTABLECIMIENTOS *S**RESET WCANTEST *S**READ LPROPE00 WITH SP-MATRICULA-ESTABLECIMIENTO EQ LINSC00.ID-MATRICULA *S** IF LPROPE00.ID-MATRICULA-PROP NE LINSC00.ID-MATRICULA *S** ESCAPE BOTTOM *S** END-IF *S** FIND (1) LINSC02 WITH LINSC02.ID-MATRICULA EQ *S** LPROPE00.ID-MATRICULA-ESTABLE *S** IF NO RECORD FOUND *S** ESCAPE BOTTOM *S** END-NOREC *S** IF LINSC02.CTR-EST-MATRICULA EQ 'MA' *S** ADD 1 TO WCANTEST *S** END-IF *S** END-FIND *S**END-READ *S**MOVE WCANTEST TO LRMVSII1.CNT-ESTABLECIMIENTOS *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE BUSCAR-CASA-PRINCIPAL *S** RESET LRMVSII1.MATPROP LRMVSII1.NUMIDPROP LRMVSII1.CAMARAPROP *S** LRMVSII1.NOMPROP LRMVSII1.DIRPROP LRMVSII1.TELPROP *S** LRMVSII1.CELPROP LRMVSII1.MUNPROP LRMVSII1.EMAILPROP *S** READ LCASAP00 BY LCASAP00.ID-MATRICULA STARTING FROM *S** LINSC00.ID-MATRICULA *S** IF LINSC00.ID-MATRICULA NE LCASAP00.ID-MATRICULA *S** ESCAPE BOTTOM *S** END-IF *S** MOVE LCASAP00.ID-MATRICULA TO LRMVSII1.MATPROP *S** MOVE LCASAP00.COD-CAMARA-PPAL TO LRMVSII1.CAMARAPROP *S** MOVE LCASAP00.NOM-PPAL TO LRMVSII1.NOMPROP *S** MOVE LCASAP00.ID-MUNIP-PPAL TO LRMVSII1.MUNPROP *S** MOVE LCASAP00.DIR-PPAL TO LRMVSII1.DIRPROP *S** MOVE LCASAP00.NUM-TEL-PPAL TO LRMVSII1.TELPROP *S** END-READ *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE LLENAFILLER *S**MOVE '|' TO FILLER-0 FILLER-1 FILLER-2 FILLER-3 FILLER-4 FILLER-5 *S** FILLER-6 FILLER-7 FILLER-8 *S** FILLER-9 FILLER-10 FILLER-11 FILLER-12 FILLER-13 FILLER-14 FILLER-15 *S** FILLER-16 FILLER-17 FILLER-18 FILLER-19 FILLER-20 FILLER-21 FILLER-22 *S** FILLER-23 FILLER-24 FILLER-25 FILLER-26 FILLER-27 FILLER-28 FILLER-29 *S** FILLER-30 FILLER-31 FILLER-32 FILLER-33 FILLER-34 FILLER-35 FILLER-36 *S** FILLER-37 FILLER-38 FILLER-39 FILLER-40 FILLER-41 FILLER-42 FILLER-43 *S** FILLER-44 *S** FILLER-45 FILLER-46 FILLER-47 FILLER-48 FILLER-49 FILLER-50 FILLER-51 *S** FILLER-52 FILLER-53 FILLER-54 FILLER-55 FILLER-56 FILLER-57 FILLER-58 *S** FILLER-59 FILLER-60 FILLER-61 FILLER-62 FILLER-63 FILLER-64 FILLER-65 *S** FILLER-66 FILLER-67 FILLER-68 FILLER-69 FILLER-70 FILLER-71 FILLER-72 *S** FILLER-73 FILLER-74 FILLER-75 FILLER-76 FILLER-77 FILLER-78 FILLER-79 *S** FILLER-80 FILLER-81 FILLER-82 FILLER-83 FILLER-84 FILLER-85 FILLER-86 *S** FILLER-87 FILLER-88 FILLER-89 FILLER-90 FILLER-91 FILLER-92 *S** FILLER-93 FILLER-94 FILLER-95 FILLER-96 FILLER-97 FILLER-98 FILLER-99 *S** FILLER-100 FILLER-101 FILLER-102 FILLER-103 FILLER-104 FILLER-105 *S** FILLER-106 FILLER-107 FILLER-108 FILLER-109 FILLER-110 FILLER-111 *S** FILLER-112 FILLER-113 FILLER-114 FILLER-115 FILLER-116 *S** FILLER-117 FILLER-118 FILLER-119 FILLER-120 FILLER-121 FILLER-122 *S** FILLER-123 FILLER-124 FILLER-125 FILLER-126 FILLER-127 FILLER-128 *S** FILLER-129 FILLER-130 *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE RM-INFORMACION-FINANCIERA *S** MOVE EDITED *DATX (EM=YYYYMMDD) TO WX-FECHA *S** MOVE EDITED *TIMX (EM=HHIISS) TO WX-HORA *S** MOVE '/home/sag/archifin/' TO WPATH *S** COMPRESS WPATH WCAMARA-1 '-sii01-' wx-fecha '-' wx-hora '.txt' *S** INTO WARCHIVO LEAVING NO SPACE *S** DEFINE WORK FILE 29 warchivo *S** /* *S** RESET WLEIDOS WLEIDOS1 WLEIDOS2 WGRABADOS *S** GTX1. *S** READ Lfinan00 by isn *S** ADD 1 TO WLEIDOS *S** ADD 1 TO WLEIDOS1 *S** ADD 1 TO WLEIDOS2 *S** if Wleidos1 gt 20000 *S** CLOSE WORK FILE 29 *S** MOVE EDITED *DATX (EM=YYYYMMDD) TO WX-FECHA *S** MOVE EDITED *TIMX (EM=HHIISS) TO WX-HORA *S** MOVE '/home/sag/archifin/' TO WPATH *S** COMPRESS WPATH WCAMARA-1 *S** '-sii01-' wx-fecha '-' wx-hora '.txt' *S** INTO WARCHIVO LEAVING NO SPACE *S** DEFINE WORK FILE 29 warchivo *S** MOVE 1 TO WLEIDOS1 *S** END-IF *S** IF WLEIDOS2 > 50 *S** END TRANSACTION *S** MOVE 1 TO WLEIDOS2 *S** END-IF *S** /* *S** IF LFINAN00.ID-MATRICULA NE ' ' *S** PERFORM SUMAR-INFO-FINANCIERA *S** END-IF *S** /* *S** END-READ *S** END TRANSACTION *S** CLOSE WORK FILE 29 *S** /* *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE SUMAR-INFO-FINANCIERA *S** /* *S** RESET WX10 *S** /* *S** MOVE LFINAN00.ID-MATRICULA TO WX10-MATRICULA *S** MOVE LFINAN00.ANO-DAT TO WX10-ANODATOS *S** MOVE EDITED LFINAN00.FEC-CREACION-DAT (EM=YYYYMMDD) TO WX10-FECHADATOS *S** /* *S** MOVE 'actcte' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-ACTI-CORRIENTES (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-ACTI-CORRIENTES NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'actfij' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-ACTI-FIJOS (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-ACTI-FIJOS NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'fijnet' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-ACTI-FIJO-NETO (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-ACTI-FIJO-NETO NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'actval' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-VALORACION-ACTI (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-VALORACION-ACTI NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'actotr' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-OTROS-ACTI (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-OTROS-ACTI NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'acttot' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-TOT-ACTI-BRUTOS (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-TOT-ACTI-BRUTOS NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'invent' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-ACTI-INVENTARIO (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-ACTI-INVENTARIO NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'pascte' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-PASI-CORRIENTES (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-PASI-CORRIENTES NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'paslar' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-OBLIGACIONES-LARGOPL *S** (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-OBLIGACIONES-LARGOPL NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'pastot' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-TOT-PASI *S** (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-TOT-PASI NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'patnet' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-PATRIM-LIQ *S** (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-PATRIM-LIQ NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'paspat' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-TOT-PASI-PATRIM *S** (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-TOT-PASI-PATRIM NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'cosven' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-COSTO-VENTAS *S** (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.VR-COSTO-VENTAS NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'utiope' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-UTILI-OPER *S** (EM=9(15).9999) TO WX10-VALOR *S** IF LFINAN00.VR-UTILI-OPER LT 0 *S** MOVE '-' TO WX10-SIGNO *S** ELSE *S** MOVE '+' TO WX10-SIGNO *S** END-IF *S** IF LFINAN00.VR-UTILI-OPER NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'utinet' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-UTILI *S** (EM=9(15).9999) TO WX10-VALOR *S** IF LFINAN00.VR-UTILI LT 0 *S** MOVE '-' TO WX10-SIGNO *S** ELSE *S** MOVE '+' TO WX10-SIGNO *S** END-IF *S** IF LFINAN00.VR-UTILI NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'gasnoope' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-GASTOS-ADMON *S** (EM=9(15).9999) TO WX10-VALOR *S** IF LFINAN00.VR-GASTOS-ADMON LT 0 *S** MOVE '-' TO WX10-SIGNO *S** ELSE *S** MOVE '+' TO WX10-SIGNO *S** END-IF *S** IF LFINAN00.VR-GASTOS-ADMON NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'ingope' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-VENTAS-NETAS *S** (EM=9(15).9999) TO WX10-VALOR *S** IF LFINAN00.VR-VENTAS-NETAS LT 0 *S** MOVE '-' TO WX10-SIGNO *S** ELSE *S** MOVE '+' TO WX10-SIGNO *S** END-IF *S** IF LFINAN00.VR-VENTAS-NETAS NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'ingnoope' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-INGR-NO-OPERACIONAL *S** (EM=9(15).9999) TO WX10-VALOR *S** IF LFINAN00.VR-INGR-NO-OPERACIONAL LT 0 *S** MOVE '-' TO WX10-SIGNO *S** ELSE *S** MOVE '+' TO WX10-SIGNO *S** END-IF *S** IF LFINAN00.VR-INGR-NO-OPERACIONAL NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'cosven' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-COSTO-VENTAS *S** (EM=9(15).9999) TO WX10-VALOR *S** IF LFINAN00.VR-COSTO-VENTAS LT 0 *S** MOVE '-' TO WX10-SIGNO *S** ELSE *S** MOVE '+' TO WX10-SIGNO *S** END-IF *S** IF LFINAN00.VR-COSTO-VENTAS NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'depamoact' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-DEP-AMORT *S** (EM=9(15).9999) TO WX10-VALOR *S** IF LFINAN00.VR-DEP-AMORT LT 0 *S** MOVE '-' TO WX10-SIGNO *S** ELSE *S** MOVE '+' TO WX10-SIGNO *S** END-IF *S** IF LFINAN00.VR-DEP-AMORT NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'gasope' TO WX10-DATO *S** MOVE EDITED LFINAN00.VR-GASTOS-OPERACIONALES *S** (EM=9(15).9999) TO WX10-VALOR *S** IF LFINAN00.VR-GASTOS-OPERACIONALES LT 0 *S** MOVE '-' TO WX10-SIGNO *S** ELSE *S** MOVE '+' TO WX10-SIGNO *S** END-IF *S** IF LFINAN00.VR-GASTOS-OPERACIONALES NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'peroc' TO WX10-DATO *S** MOVE EDITED LFINAN00.NUM-PERS-OCUPADO (EM=9(06)) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LFINAN00.NUM-PERS-OCUPADO NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE RM-INFORMACION-ESTABLECIMIENTOS *S** /* *S** MOVE EDITED *DATX (EM=YYYYMMDD) TO WX-FECHA *S** MOVE EDITED *TIMX (EM=HHIISS) TO WX-HORA *S** MOVE '/home/sag/archifin/' TO WPATH *S** COMPRESS WPATH WCAMARA-1 '-sii01-' wx-fecha '-' wx-hora '.txt' *S** INTO WARCHIVO LEAVING NO SPACE *S** /* *S** DEFINE WORK FILE 29 warchivo *S** /* *S** RESET WLEIDOS WLEIDOS1 WLEIDOS2 WGRABADOS *S** GTX2. *S** READ Lfinan00 by isn *S** ADD 1 TO WLEIDOS *S** ADD 1 TO WLEIDOS1 *S** ADD 1 TO WLEIDOS2 *S** if Wleidos1 gt 20000 *S** CLOSE WORK FILE 29 *S** MOVE EDITED *DATX (EM=YYYYMMDD) TO WX-FECHA *S** MOVE EDITED *TIMX (EM=HHIISS) TO WX-HORA *S** MOVE '/home/sag/archifin/' TO WPATH *S** COMPRESS WPATH WCAMARA-1 *S** '-sii01-' wx-fecha '-' wx-hora '.txt' *S** INTO WARCHIVO LEAVING NO SPACE *S** DEFINE WORK FILE 29 warchivo *S** MOVE 1 TO WLEIDOS1 *S** END-IF *S** IF WLEIDOS2 > 50 *S** END TRANSACTION *S** MOVE 1 TO WLEIDOS2 *S** END-IF *S** /* *S** IF LVLEST00.ID-MATRICULA-ESTABLE NE ' ' *S** PERFORM SUMAR-INFO-ESTABLECIMIENTO *S** END-IF *S** /* *S** END-READ *S** END TRANSACTION *S** CLOSE WORK FILE 29 *S** /* *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE SUMAR-INFO-ESTABLECIMIENTO *S** /* *S** RESET WX10 *S** /* *S** MOVE LVLEST00.ID-MATRICULA-ESTABLE TO WX10-MATRICULA *S** MOVE LVLEST00.ANO-DATOS TO WX10-ANODATOS *S** MOVE EDITED LVLEST00.FEC-CREAC-DATOS (EM=YYYYMMDD) TO WX10-FECHADATOS *S** /* *S** MOVE 'valest' TO WX10-DATO *S** MOVE EDITED LVLEST00.VR-ESTABLE (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LVLEST00.VR-ESTABLE NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'patrim' TO WX10-DATO *S** MOVE EDITED LVLEST00.VR-PATRIM (EM=9(15).9999) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LVLEST00.VR-PATRIM NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'peroc' TO WX10-DATO *S** MOVE EDITED LVLEST00.NUM-PERS-OCUPADO (EM=9(06)) TO WX10-VALOR *S** MOVE '+' TO WX10-SIGNO *S** IF LVLEST00.NUM-PERS-OCUPADO NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE RM-INFORMACION-CAPITALES *S** /* *S** MOVE EDITED *DATX (EM=YYYYMMDD) TO WX-FECHA *S** MOVE EDITED *TIMX (EM=HHIISS) TO WX-HORA *S** MOVE '/home/sag/archicap/' TO WPATH *S** COMPRESS WPATH WCAMARA-1 '-sii01-' wx-fecha '-' wx-hora '.txt' *S** INTO WARCHIVO LEAVING NO SPACE *S** /* *S** DEFINE WORK FILE 29 warchivo *S** /* *S** RESET WLEIDOS WLEIDOS1 WLEIDOS2 WGRABADOS *S** GTX3. *S** READ LCAPIT00 by isn *S** ADD 1 TO WLEIDOS *S** ADD 1 TO WLEIDOS1 *S** ADD 1 TO WLEIDOS2 *S** if Wleidos1 gt 20000 *S** CLOSE WORK FILE 29 *S** MOVE EDITED *DATX (EM=YYYYMMDD) TO WX-FECHA *S** MOVE EDITED *TIMX (EM=HHIISS) TO WX-HORA *S** MOVE '/home/sag/archicap/' TO WPATH *S** COMPRESS WPATH WCAMARA-1 *S** '-sii01-' wx-fecha '-' wx-hora '.txt' *S** INTO WARCHIVO LEAVING NO SPACE *S** DEFINE WORK FILE 29 warchivo *S** MOVE 1 TO WLEIDOS1 *S** END-IF *S** IF WLEIDOS2 > 50 *S** END TRANSACTION *S** MOVE 1 TO WLEIDOS2 *S** END-IF *S** /* *S** IF LCAPIT00.ID-MATRICULA NE ' ' *S** PERFORM SUMAR-INFO-CAPITALES *S** END-IF *S** /* *S** END-READ *S** END TRANSACTION *S** CLOSE WORK FILE 29 *S** /* *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE SUMAR-INFO-CAPITALES *S** /* *S** RESET WX10 *S** /* *S** MOVE LCAPIT00.ID-MATRICULA TO WX10-MATRICULA *S** MOVE LCAPIT00.ANO-DAT TO WX10-ANODATOS *S** MOVE EDITED LCAPIT00.FEC-CREAC-DAT (EM=YYYYMMDD) TO WX10-FECHADATOS *S** /* *S** MOVE 'capaut' TO WX10-DATO *S** MOVE EDITED LCAPIT00.VR-CAPT-AUTORIZADO (EM=9(15).9999) TO WX10-VALOR *S** MOVE EDITED LCAPIT00.CNT-CUOTAS-CAPT-AUTORIZADO (EM=9(15).9999) TO *S** WX10-CUOTAS *S** MOVE '+' TO WX10-SIGNO *S** IF LCAPIT00.VR-CAPT-AUTORIZADO NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'capsus' TO WX10-DATO *S** MOVE EDITED LCAPIT00.VR-CAPT-SUSCRITO (EM=9(15).9999) TO WX10-VALOR *S** MOVE EDITED LCAPIT00.CNT-CUOTAS-CAPT-SUSCRITO (EM=9(15).9999) TO *S** WX10-CUOTAS *S** MOVE '+' TO WX10-SIGNO *S** IF LCAPIT00.VR-CAPT-SUSCRITO NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'cappag' TO WX10-DATO *S** MOVE EDITED LCAPIT00.VR-CAPT-PAGADO (EM=9(15).9999) TO WX10-VALOR *S** MOVE EDITED LCAPIT00.CNT-CUOTAS-CAPT-PAGADO (EM=9(15).9999) TO *S** WX10-CUOTAS *S** MOVE '+' TO WX10-SIGNO *S** IF LCAPIT00.VR-CAPT-PAGADO NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'capsoc' TO WX10-DATO *S** MOVE EDITED LCAPIT00.VR-CAPT-SOCIAL (EM=9(15).9999) TO WX10-VALOR *S** MOVE EDITED LCAPIT00.CNT-CUOTAS-CAPT-SOCIAL (EM=9(15).9999) TO *S** WX10-CUOTAS *S** MOVE '+' TO WX10-SIGNO *S** IF LCAPIT00.VR-CAPT-SOCIAL NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'capsuc' TO WX10-DATO *S** MOVE EDITED LCAPIT00.VR-CAPT-ASIGNADO-SUC (EM=9(15).9999) TO WX10-VALOR *S** MOVE '000000000000000.0000' TO *S** WX10-CUOTAS *S** MOVE '+' TO WX10-SIGNO *S** IF LCAPIT00.VR-CAPT-ASIGNADO-SUC NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'apoact' TO WX10-DATO *S** MOVE EDITED LCAPIT00.VR-APORTES-ACTIV (EM=9(15).9999) TO WX10-VALOR *S** MOVE '000000000000000.0000' TO *S** WX10-CUOTAS *S** MOVE '+' TO WX10-SIGNO *S** IF LCAPIT00.VR-APORTES-ACTIV NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'apodin' TO WX10-DATO *S** MOVE EDITED LCAPIT00.VR-APORTE-DINERO (EM=9(15).9999) TO WX10-VALOR *S** MOVE '000000000000000.0000' TO *S** WX10-CUOTAS *S** MOVE '+' TO WX10-SIGNO *S** IF LCAPIT00.VR-APORTE-DINERO NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'apolab' TO WX10-DATO *S** MOVE EDITED LCAPIT00.VR-APORTE-LABORAL (EM=9(15).9999) TO WX10-VALOR *S** MOVE '000000000000000.0000' TO *S** WX10-CUOTAS *S** MOVE '+' TO WX10-SIGNO *S** IF LCAPIT00.VR-APORTE-LABORAL NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S** MOVE 'apolabadi' TO WX10-DATO *S** MOVE EDITED LCAPIT00.VR-APORTE-LABORAL-AD (EM=9(15).9999) TO WX10-VALOR *S** MOVE '000000000000000.0000' TO *S** WX10-CUOTAS *S** MOVE '+' TO WX10-SIGNO *S** IF LCAPIT00.VR-APORTE-LABORAL-AD NE 0 *S** WRITE WORK FILE 29 WX10 *S** END-IF *S** /* *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE RM-INFORMACION-VINCULOS *S** /* *S** MOVE EDITED *DATX (EM=YYYYMMDD) TO WX-FECHA *S** MOVE EDITED *TIMX (EM=HHIISS) TO WX-HORA *S** MOVE '/home/sag/archivin/' TO WPATH *S** COMPRESS WPATH WCAMARA-1 '-sii01-' wx-fecha '-' wx-hora '.txt' *S** INTO WARCHIVO LEAVING NO SPACE *S** /* *S** DEFINE WORK FILE 31 warchivo *S** /* *S** RESET WLEIDOS WLEIDOS1 WLEIDOS2 WGRABADOS *S** GTX4. *S** READ LVINCU00 by isn *S** ADD 1 TO WLEIDOS *S** ADD 1 TO WLEIDOS1 *S** ADD 1 TO WLEIDOS2 *S** if Wleidos1 gt 20000 *S** CLOSE WORK FILE 31 *S** MOVE EDITED *DATX (EM=YYYYMMDD) TO WX-FECHA *S** MOVE EDITED *TIMX (EM=HHIISS) TO WX-HORA *S** MOVE '/home/sag/archivin/' TO WPATH *S** COMPRESS WPATH WCAMARA-1 *S** '-sii01-' wx-fecha '-' wx-hora '.txt' *S** INTO WARCHIVO LEAVING NO SPACE *S** DEFINE WORK FILE 31 warchivo *S** MOVE 1 TO WLEIDOS1 *S** END-IF *S** IF WLEIDOS2 > 50 *S** END TRANSACTION *S** MOVE 1 TO WLEIDOS2 *S** END-IF *S** /* *S** IF LVINCU00.ID-MATRICULA NE ' ' *S** PERFORM SUMAR-INFO-VINCULOS *S** END-IF *S** /* *S** END-READ *S** END TRANSACTION *S** CLOSE WORK FILE 31 *S** /* *S**END-SUBROUTINE *S**/* *S**DEFINE SUBROUTINE SUMAR-INFO-VINCULOS *S** /* *S** RESET WX11 *S** /* *S** MOVE LVINCU00.ID-MATRICULA TO WX11-MATRICULA *S** MOVE LVINCU00.ID-CLASE TO WX11-IDCLASE *S** MOVE LVINCU00.NUM-ID TO WX11-NUMID *S** MOVE LVINCU00.ID-VINCULO TO WX11-VINCULO *S** MOVE LVINCU00.DES-CARGO TO WX11-CARGO *S** MOVE EDITED LVINCU00.NUM-CUOTAS-CONST (EM=9(15).9999) TO *S** WX11-CUOTAS-CONST *S** MOVE EDITED LVINCU00.NUM-CUOTAS-REF (EM=9(15).9999) TO *S** WX11-CUOTAS-REF *S** MOVE EDITED LVINCU00.VR-CUOTAS-CONST (EM=9(15).9999) TO *S** WX11-VALOR-CONST *S** MOVE EDITED LVINCU00.VR-CUOTAS-REF (EM=9(15).9999) TO *S** WX11-VALOR-REF *S** /* *S** MOVE EDITED LVINCU00.VR-ASOCIATIVAS-TRABAJO (1) (EM=9(15).9999) TO *S** WX11-VALASO-1 *S** MOVE EDITED LVINCU00.VR-ASOCIATIVAS-TRABAJO (2) (EM=9(15).9999) TO *S** WX11-VALASO-2 *S** MOVE EDITED LVINCU00.VR-ASOCIATIVAS-TRABAJO (3) (EM=9(15).9999) TO *S** WX11-VALASO-3 *S** MOVE EDITED LVINCU00.VR-ASOCIATIVAS-TRABAJO (4) (EM=9(15).9999) TO *S** WX11-VALASO-4 *S** /* *S** MOVE EDITED LVINCU00.VR-ASOCIATIVAS-TRABAJO (5) (EM=9(15).9999) TO *S** WX11-VALASO-5 *S** MOVE EDITED LVINCU00.VR-ASOCIATIVAS-TRABAJO (6) (EM=9(15).9999) TO *S** WX11-VALASO-6 *S** MOVE EDITED LVINCU00.VR-ASOCIATIVAS-TRABAJO (7) (EM=9(15).9999) TO *S** WX11-VALASO-7 *S** MOVE EDITED LVINCU00.VR-ASOCIATIVAS-TRABAJO (8) (EM=9(15).9999) TO *S** WX11-VALASO-8 *S** /* *S** MOVE LVINCU00.ID-LIBRO TO WX11-LIBRO *S** MOVE LVINCU00.NUM-REG TO WX11-REGISTRO *S** MOVE EDITED LVINCU00.FEC-REG (EM=YYYYMMDD) TO WX11-FECHA *S** WRITE WORK FILE 31 WX11 *S** /* *S**END-SUBROUTINE *S**/* *S**END *E