$SET DIALECT(RM)
IDENTIFICATION DIVISION.
PROGRAM-ID. "vtboi69".
*
* Programa Contingencia
*
ENVIRONMENT DIVISION.
*--------------------
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
*
DATA DIVISION.
*-------------
*
WORKING-STORAGE SECTION.
01 va-pausa pic X(01).
*
01 va-fecha-act.
05 va-siglo-act PIC 99 VALUE 19.
05 va-fec-act PIC 9(06).
01 va-fecha-actr REDEFINES va-fecha-act PIC 9(08).
*
COPY "ufecsis.cpy" IN "C:\home1\compilacion\parametros".
COPY "vtbor01.cpy" IN "C:\home1\compilacion\parametros".
COPY "vtbor35.cpy" IN "C:\home1\compilacion\parametros".
COPY "vtbor130.cpy" IN "C:\home1\compilacion\parametros".
*
LINKAGE SECTION .
*
COPY "uleeusr.cpy" IN "C:\home1\compilacion\parametros".
*
PROCEDURE DIVISION.
*-------------------------------------------
Principal.
*---------
CALL "ufecsis"
USING ufecsis-parametros
CANCEL "ufecsis"
MOVE "hmeg" TO vtbor01-user.
MOVE ufecsis-parametros TO vtbor01-fecha-actr
va-fecha-actr.
MOVE 6 TO vtbor01-objetivo.
MOVE 1 TO vtbor01-operacion.
CALL "vtbor01"
USING vtbor01-parametros.
CANCEL "vtbor01".
move 0 TO vtbor01-status.
IF vtbor01-status = 1
DISPLAY "User no existe " LINE 23 COL 1 ERASE
ACCEPT va-pausa
STOP RUN
ELSE
MOVE vtbor01-empresa TO vtbor35-empresa
MOVE vtbor01-rut TO vtbor35-rut
MOVE vtbor01-linea-1 TO vtbor35-linea
CALL "vtbor35"
USING vtbor35-parametros
CANCEL "vtbor35"
END-IF.
MOVE "hmeg" TO vtbor130-user-id
MOVE vtbor01-rut TO vtbor130-rut-cajero.
MOVE vtbor01-empresa TO vtbor130-empresa
MOVE vtbor35-linea TO vtbor130-linea.
MOVE vtbor35-nombre-linea TO vtbor130-nombre-linea.
MOVE 0 TO vtbor130-tipo-validacion.
MOVE va-fecha-actr TO vtbor130-fecha-apertura.
MOVE vtbor01-correl-agencia(vtbor130-linea)
TO vtbor130-correl-agencia.
MOVE "vtbor130" TO vtbor130-programa
MOVE vtbor130-parametros TO vtbor130-parametros
CALL "vtbor130"
USING vtbor130-parametros
CANCEL "vtbor130".
*
Terminar.
*--------
EXIT PROGRAM.
STOP RUN.
*-----------------------*
* Fin Programa vtboi69 *
*-----------------------*