Cobol - Problema con archivo .dat

   
Vista:

Problema con archivo .dat

Publicado por Stevepuntocom (22 intervenciones) el 09/06/2009 16:35:15
Hola LWP!
tengo una aplicacion desarrollada en Net Express 3.1 y que esta corriendo sobre windows XP.
tengo un archivo .dat cuya configuracion es la siguiente:
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS nombre-key

funcionaba pero de repente sin haber hecho ningun cambio me esta dando el siguiente error: "NO CURRENT RECORD DEFINED FOR SEQUENTIAL READ"

Pues necesito por favor que alguien me ayude. Gracias de antemano.
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

RE:Problema con archivo .dat

Publicado por SuperIndio (138 intervenciones) el 10/06/2009 03:34:31
Hola Steve

Si estas haciendo un Start el modo de acceso es SECUENTIAL

Ejemplo:
Select GesSrch Assign To Varying SrchName
Organization Is Indexed
Access Mode Is Sequential
Record Key Is GesSrch-Clave-Reg
Lock Mode Is Manual
File Status Is FileStatus.

*---------------------------------------------------------------*
Start-GesSrch.
*---------------------------------------------------------------*
*>-
Start GesSrch Key Greater Than GesSrch-Clave-Reg
Invalid Key Set Is-Not-Found To True
Not Invalid Key Set Is-Sucefully To True
End-Start.
*>-
If Is-Sucefully Then
*>-
Perform Read-GesSrch-Sequential
Else
*>-
Move "10" To FileStatus
Perform Stl-File-Status-Check
If Not Wx-Is-Okey Then
*>-
Move Stl-DesFS To Sl-DesF-Status
Move FileStatus To Sl-File-Status
String "No Existe el Registro "
Delimited By Size Into Sl-Otro-Errores
End-String
Move 01 To Sl-Cod-Retorno
Close GesSrch
Goback
*>-
End-If
*>-
End-If.
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