Hilfe für api RSLVSP benötigt

[Xanas]

Die Verwendung könnte dann so aussehen.

#SQL_init();

#SQL_setCursor('PARTSTA');

query = 'SELECT kern, intbe1 
      + 'FROM partsta '
      + 'WHERE intbe1 like ?';

if #SQL_prepare( query: SQL_OPEN_READ );
  search.intbe1 = '%1502%';

   #SQL_bindParam( 1: %addr( search.intbe1 )
                 : SQL_VARCHAR: %len( search.intbe1 ) );
   if #SQL_open();
     #SQL_bindParam( 1: %addr( result.kern )
                  : SQL_CHAR: %len( result.kern ) );
    #SQL_bindParam( 2: %addr( result.intbe1 )
                  : SQL_CHAR: %len( result.intbe1 ) );
    // Für Faule geht auch das
    //#SQL_bindResultStructure( %addr( result ): %len( result ) );

    dow #SQL_fetch();
        dsply result;
    enddo;

    #SQL_close();

    endif;
endif;

#SQL_free();