Hilfe für api RSLVSP benötigt

[BenderD]

eine Kleinigkeit habe ich noch zu meckern:
Knastfrei wäre besser, #&$§ und Co. werden im EBCDIC nicht konsistent übertragen und da kann es passieren, dass das, was mit deutscher CCSID funzt, sich mit anderer CCSID nicht wandeln lässt.
Ansonsten wäre das nicht so völlig uninteressant, weil man mal überlegen könnte, ob man so ein Teil transparent remote (per Java JDBC Bridge) und lokal zugreifen lassen könnte.

D*B

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();