Hilfe für api RSLVSP benötigt

[Xanas]

So hat super funktioniert, bei der Entscheidung wegen der Objektart hab ich mich jetzt vor erst mal auf die Nameskonventionen unser Firmer verlassen, aber mit den SystemPointern klappt wie erwartet.

Gibts eigentlich ein öffendliches Interesse an an so einem Serviceprogramm?

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

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

[Xanas]

Jaja die Kleinigkeit würde ich auch nicht mehr machen, aber die Kollegen wollten Serviceprogramm Funktionen sofort erkennen und so sind wir, unwissend wie wir waren, auf das Knast-Zeichen gekommen.

Gibt's denn irgend ein SVN oder so was, wo AS/400 Knechte, so was als Open Source ablegen könnten. Natürlich würde ich dann vorher noch eine Knastfreie Version erstellen. Und noch andere offensichtliche Klopper ausräumen.

[BenderD]

SourceForge

was den Knast angeht, da habe ich auch meine Zeit für gebraucht...

Jaja die Kleinigkeit würde ich auch nicht mehr machen, aber die Kollegen wollten Serviceprogramm Funktionen sofort erkennen und so sind wir, unwissend wie wir waren, auf das Knast-Zeichen gekommen.

Gibt's denn irgend ein SVN oder so was, wo AS/400 Knechte, so was als Open Source ablegen könnten. Natürlich würde ich dann vorher noch eine Knastfreie Version erstellen. Und noch andere offensichtliche Klopper ausräumen.

[Xanas]

SourceForge

Bohhhhr da muss man ja 200 Zeichen Registration Description für ein Projekt
in Englisch eintippen. Was soll man da alles schreiben. Naja ich mach das erstmal fertig und dann schau ich mal wo ich das Veröffentliche.