Cobol Foro - Ver Mensaje Individual

fastpho · 21.08.2026 18:08

Buenas gente ....
Empece instalando wampserver para trabajar con el php haber como era el tema...
Y comence a leer un poco de php y el ejemplo que habia, resulta que hice una pruebas con un archivo de similares caracteristicas al del ejemplo "granos.dat" pero creado con pwcobol version 5 ,
lo que hace la rutina es buscar por indice o variable llamada $clave al principio todo bien encontraba el registro , resulta que a medida que hacia diferentes busquedas de acuerdo al indice del registro aumentaba su valor me daba como que el registro no existia.....
Jorgeanna me podrias mirar el codigo que puse haber en donde esta el problema

Código PHP:

<HTML>
<HEAD>
<TITLE> Pruebas en PHP </TITLE>
<LINK REL="stylesheet" TYPE="text/css" HREF="estilo.css">
</HEAD>
 
<BODY>
 
<H1>lectura de archivo cobol</H1>
<form method='post' >
   <p><input name='numero' type='text' /></p>
   <p><input type='submit' value='enviar'></p>
</form>
<?php
    require("RmFile.php"); 
    require("wenteje.php"); 
   
  // $datos= "Datos";
  // $clave="0001";
    
   echo ("esta es la clave ") . $_POST['numero'];
   $clave = $_POST['numero'];
    
   echo ("--------");
   
   
   //------------------------WEMAES.DAT--------------------    
        $iFile = new RmFile("RUBROS.DNX",wenteje::lectura(),".");
    // muestra un determinado registro
         if ($iFile->find($clave,0)){ 
            if ($reg = $iFile->next()){ 
        //  var_dump($reg);
                print_r($reg);
                echo "-------------lo encontro...................";
//              if ($reg["wmid"]->Value == "10"){
            }else{
                echo "no en el next";
            }
        }else{
        echo "no en el find";
        }
        echo "---------------------------------- MUESTRA TODO EL REGISTRO --------------------";
        // muestra todo el registro completo 
    if ($iFile->find($clave,0)){
        while ($reg = $iFile->next())
            
        print_r($reg);
        echo "----------------------------------";
         
        //endwhile;
    }
    
 
?>
 
</BODY>
</HTML>

Likes