Cobol - ayuda para grabar los registros en powercobol.

   
Vista:

ayuda para grabar los registros en powercobol.

Publicado por Emundo pctrto@hotmail.com (5 intervenciones) el 20/03/2011 17:39:28
Tengo problemas , con un archivo indexado. La rutina k he creado no registra los datos ingresados al Archivo. Es la siguiente , todo esto esta programado en power cobol.
Funciona pero despues los leo en otra rutina con un open Input , y un read , y no aparece nada, la verdad es k ya no se como hacer , si alguien me puede orintar estaria agradecido.

Esto esta en el Openend.

OPEN INPUT ELECTRONICA.
IF STAAGE = "35"
CALL DISPLAYMESSAGE OF INGRESO
USING "Registro se va a crear."
CLOSE ELECTRONICA
OPEN OUTPUT ELECTRONICA
ELSE
CLOSE ELECTRONICA
OPEN I-O ELECTRONICA
CALL DISPLAYMESSAGE OF INGRESO
USING "Agregando registros".
**************************************************************************

Esto esta en la Procedure.
IDENTIFICATION DIVISION.
PROGRAM-ID. "GRABAREG" IS COMMON.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SW2 PIC 9.
01 SW3 PIC 9.
PROCEDURE DIVISION.


MOVE ZEROS TO CONT.
MOVE CONT2 TO POW-NUMERIC OF PIC30.
PERFORM REGISTRO.
CALL DISPLAYMESSAGE OF INGRESO
USING "TERMINO".
CALL SETFOCUS OF GRABAR.


REGISTRO.
ADD 1 TO CONT.
MOVE POW-NUMERIC OF RUT TO FRUT.
MOVE POW-TEXT OF DIGITO TO FDIGITO.
MOVE POW-TEXT OF FOLIO TO FFOLIO.
MOVE POW-TEXT OF NOMBRE TO FNOMBRE.
MOVE POW-TEXT OF DIRECCION TO FDIRECCION.
MOVE POW-TEXT OF NUMERO TO FNUMERO.
MOVE POW-TEXT OF POBLACION TO FPOBLACION.
MOVE POW-TEXT OF CIUDAD TO FCIUDAD.
MOVE POW-TEXT OF TIPO TO FTIPO.
MOVE POW-TEXT OF MARCA TO FMARCA.
MOVE POW-TEXT OF MODELO TO FMODELO.
MOVE POW-TEXT OF SERIE TO FSERIE.
MOVE POW-NUMERIC OF VDIA TO VVDIA.
MOVE POW-NUMERIC OF VMES TO VVMES.
MOVE POW-NUMERIC OF VAÑO TO VVAÑO.
MOVE POW-NUMERIC OF RDIA TO RRDIA.
MOVE POW-NUMERIC OF RMES TO RRMES.
MOVE POW-NUMERIC OF RAÑO TO RRAÑO.
MOVE POW-NUMERIC OF TREPSTO TO FTREPSTO.
MOVE POW-NUMERIC OF MOBRA TO FMOBRA.
MOVE POW-NUMERIC OF TREPARC TO FTREPARC.
CALL "OPCIONGRABAR".

END PROGRAM "GRABAREG".
******************************************************************************

IDENTIFICATION DIVISION.
PROGRAM-ID. "OPCIONGRABAR" IS COMMON.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STYLO PIC S9(08) COMP-5.
01 MENSAJE PIC X(07) VALUE IS "Mensaje".
PROCEDURE DIVISION.
INICIO SECTION.
COMPUTE STYLO = POW-DMYESNO + POW-DMICONINFORMATION.
CALL DISPLAYMESSAGE OF INGRESO
USING "¿Desea Guardad Informe ?" MENSAJE STYLO.
EVALUATE RETURN-CODE
WHEN POW-DMRYES
CALL DISPLAYMESSAGE OF INGRESO
USING "Informe se ha Guardado "
WRITE REG-ELECTR
WHEN POW-DMRNO
CALL DISPLAYMESSAGE OF INGRESO
USING "Informe no ha sido Guardado".

END PROGRAM "OPCIONGRABAR".
****************************************
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda para grabar los registros en powercobol.

Publicado por Armando Perez Garcia (2 intervenciones) el 30/04/2011 06:45:41
Bueno por lo que veo en primera instancia es, que cada que abres el archivo de output, este es destruido y esa es la razon que no vez que el archivo contenga algo, que acabas de grabar, nunca lo vas a ver. debes checar antes de abrir el archivo si ya esta creado, si es asi entonces solo abrelo de i-o y entoces si veras tus datos que grabaste en seciones anteriores.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar