Create Flex - As Mika GmbH · Starten Sie FTP mit dem Kommando ftp iSeries Geben Sie einen...
Transcript of Create Flex - As Mika GmbH · Starten Sie FTP mit dem Kommando ftp iSeries Geben Sie einen...
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 1 von 32 AS-MIKA GMBH ___________________________________________________________________________
Kapitel 1 Überblick CRTFLXAPP
CRTFLXAPP
Erstellt auf dem System i eine Flex Rich Internet Application
und legt die Sourcedateien im IFS ab
© 2013 ASMIKA GmbH Am Nordhang 12 D-42551 Velbert www.asmika.de [email protected]
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 2 von 32 AS-MIKA GMBH ___________________________________________________________________________
Inhaltsverzeichnis
KAPITEL 1 ÜBERBLICK CRTFLXAPP.......................................................................................................... 1
CRTFLXAPP ..................................................................................................................................................... 1
KAPITEL 2 INSTALLATION ............................................................................................................................ 3
DOWNLOAD AUS DEM INTERNET ......................................................................................................................... 3 Installation auf dem Server............................................................................................................................ 3 Alternative Installation .................................................................................................................................. 4
............................................................................................................................................................................ 4
KAPITEL 3 LIZENZIERUNG............................................................................................................................ 5
INSTALLATIONSPROGRAMM ................................................................................................................................ 5
KAPITEL 4 BEFEHL CRTFLXAPP MIT BEDIENERFÜHRUNG............................................................... 6
Aufrufvariante Befehl CRTFLXAPP.............................................................................................................. 6 Application als Source auf dem System i ......................................................................................................11 Import der Sourcedateien als Projekt ...........................................................................................................12 import ...........................................................................................................................................................14 Starten Sie den Import Assistenten ...............................................................................................................15 import vom Dateisystem ( IFS Ordner /a) ....................................................................................................16 Projektauswahl .............................................................................................................................................17 Projekt bearbeiten ........................................................................................................................................18
KAPITEL 5 BEISPIEL EINER IMPORTIERTEN ANWENDUNG .............................................................19
TITLE WINDOW MIT GRIDANZEIGE UND *TOP BUTTONAUSRICHTUNG.............................................................19 TITLE WINDOW MIT GRIDANZEIGE UND *LEFT BUTTONAUSRICHTUNG............................................................21
KAPITEL 6 ZUSÄTZLICHE BEFEHLE ZUR ANWEDUNGSENTWICKLUNG......................................23
BEFEHL CRTSQLPRC.......................................................................................................................................23 Beispiel Befehl CRTSQLPRC .......................................................................................................................25
BEFEHL CRTPHPF ............................................................................................................................................29 Beispiel Befehl CRTPHPF............................................................................................................................31
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 3 von 32 AS-MIKA GMBH ___________________________________________________________________________
Kapitel 2 Installation
Download aus dem Internet Bitte laden Sie von unserer Website www.asmika.de die Bibliothek mit den Serverprogrammen mit Namen ASMTOOL.SAV. Die Datei wird als ZIP File zur Verfügung gestellt. Nach erfolgreichem Download entpacken Sie die ZIP Datei auf ihrem PC.
Installation auf dem Server
FTP Installation Bibliothek ASMSPL
� Anmelden am System � Erstellen Sie eine Savefile in der Bibliothek QGPL � CRTSAVF QGPL/ASMTOOL � Starten Sie auf dem PC die DOS-Befehlseingabe � Wechseln Sie in das Verzeichnis in dem sich die ASCII Datei ASMSPL.SAV befindet � cd c:\verzeichnisname � Starten Sie FTP mit dem Kommando � ftp iSeries � Geben Sie einen Benutzernamen und das Kennwort ein � Wechseln Sie in den Binarymode mit dem Kommando � bin � Wechseln Sie in das Verzeichnis QGPL mit dem Kommando � cd qgpl � Anschließend übertragen Sie die ASCCI Datei in die Savefile mit dem Kommando � put ASMTOOL.sav
� Beenden Sie die FTP Sitzung mit dem Kommando � quit
� Anschließend erstellen Sie die Bibliothek ASMTOOL auf dem iSeries Server mit dem
Kommando � RSTLIB SAVLIB(ASMTOOL) DEV(*SAVF) SAVF(QGPL/ASMTOOL)
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 4 von 32 AS-MIKA GMBH ___________________________________________________________________________
Alternative Installation
Die Firma bug bustersoftware engineering bietet auf ihrer Website ein Freewaretool mit dem man eine einfache Installation von Savefiles auf der iSeries durchführen kann. Sie finden das Tool unter www.bugbusters.net Installieren Sie das Tool INSTALL AID. Damit können Sie sehr einfach eine Installation unserer Software durchführen wenn Ihnen die FTP Anweisungen nicht so vertraut sind. Beispiel für INSTALL AID und Installation der Savefile asmtool
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 5 von 32 AS-MIKA GMBH ___________________________________________________________________________
Kapitel 3 Lizenzierung
Installationsprogramm Für die Lizenzierung verwenden Sie das Installationsprogramm. Sie starten das Installationsprogramm mit ADDLIBLE ASMTOOL CALL INSTALL
Um den Lizenzcode zu warten, wählen Sie mit der Option 1=Lizenzeingabe die Zeile der Anwendung CRTFLXAPP aus.
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 6 von 32 AS-MIKA GMBH ___________________________________________________________________________
Kapitel 4 Befehl CRTFLXAPP mit Bedienerführung
Aufrufvariante Befehl CRTFLXAPP
Erklärungen: Save to root IFS Folder Gibt den IFS Ordner an unter dem die Sourcen gespeichert werden. Server url Aufruf der Serverurl IFS Folder for PHP Script IFS Folder mit dem aufzurufenden PHP Script. Physical File Name der physischen Datei. Aus der Dateibeschreibung werden die Feldnamen für die Anwendung ermittelt.
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 7 von 32 AS-MIKA GMBH ___________________________________________________________________________
Library for File Bibliothek der Datei Logical File with Key Logische oder den Namen der physischen Datei mit den Schlüsselfeldinformationen. Name/Title for Application Beschreibungsname der zu erstellenden Applikation Verwenden Sie keine Leerstellen und Sonderzeichen in dem Text. Align Buttonlist Ausrichtung der Button Bearbeitungsliste *TOP Die Buttonliste wird oberhalb der Gridatenanzeige positioniert. Dabei kann der Parameter Buttonsize verwendet werden. *LEFT Die Buttonliste wird links neben dem Datagrid als separater Bereich angezeigt Buttonsize *DEFAULT Button der Auswahlleisten im Standardformat *ICON Button werden als Icon dargestellt Create Filter Window Option Optional kann ein Filter Window generiert werden.
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 8 von 32 AS-MIKA GMBH ___________________________________________________________________________
Field 1 - 7 for Filteroption Feldnamen für das Filter Window Es erfolgt keine Prüfung auf den Feldnamen Geben Sie die korrekten Feldnamen an Type for Maint. TitleWindow Typ des Start Windows *DEFAULT Es wird das standard Title Window benutzt *EVENTS Es wird ein resizefähiges Title Window erstellt Maint-Window width Breite des Windows an Maint-Window height Höhe des Windows
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 9 von 32 AS-MIKA GMBH ___________________________________________________________________________
Create Detail View Table Gibt an ob ein Detail View erstellt wird Detail View Physical File Name Name der physischen Datenbanktabelle mit den Detaildaten Logical Detail File with Keys Logische Datei oder physische Datei mit den Keyfeldinformationen Gridfield 01-06 for List Detail Geben Sie den Feldnamen der Headerdatei an um auf den Detailsatz zu verweisen. Es können bis zu 6 Felder angegeben werden
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 10 von 32 AS-MIKA GMBH ___________________________________________________________________________
Create Detail Filter Window *YES Es wird ein Window mit der optionalen Suchfunktion erstellt. *NO Es wird kein Window erstellt Searchfield Detail Table Feldname um in einer Spalte zu suchen. Es können vom Programm maximal 6 Suchfelder angegeben werden.
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 11 von 32 AS-MIKA GMBH ___________________________________________________________________________
Application als Source auf dem System i
In unserem Beispiel werden auf dem IFS Ordner "/a" die erstellten Souren abgelegt. Alle benötigten Dateien befinden sich in dem Ordner "MaintFilepEvents"
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 12 von 32 AS-MIKA GMBH ___________________________________________________________________________
Import der Sourcedateien als Projekt
Starten Sie die Eclipse Entwicklungsumgebung des Adobe Flash Builders und importieren Sie das Projekt in ihren /src Ordner
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 13 von 32 AS-MIKA GMBH ___________________________________________________________________________
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 14 von 32 AS-MIKA GMBH ___________________________________________________________________________
import
Markieren Sie den "/src" Ordner und importieren das Projekt
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 15 von 32 AS-MIKA GMBH ___________________________________________________________________________
Starten Sie den Import Assistenten
Wählen Sie die Option Dateisystem
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 16 von 32 AS-MIKA GMBH ___________________________________________________________________________
import vom Dateisystem ( IFS Ordner /a)
Markieren Sie den Ordner des IFS
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 17 von 32 AS-MIKA GMBH ___________________________________________________________________________
Projektauswahl
Markieren Sie den Projektordner. In unserem Beispiel ist das der Ordner "MaintFilepEvents" Achten Sie darauf das der Zielordner "samplecode/src" ausgewählt ist. Mit dem Button Fertigstellen wird das Projekt in ihre Oberfläche eingefügt.
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 18 von 32 AS-MIKA GMBH ___________________________________________________________________________
Projekt bearbeiten
Nach erfolgtem Import kann das Projekt mit der Flash Builder Entwicklungsumgebung bearbeitet werden
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 19 von 32 AS-MIKA GMBH ___________________________________________________________________________
Kapitel 5 Beispiel einer importierten Anwendung
Title Window mit Gridanzeige und *TOP Buttonausrichtung
Wartungsbildschirm
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 20 von 32 AS-MIKA GMBH ___________________________________________________________________________
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 21 von 32 AS-MIKA GMBH ___________________________________________________________________________
Title Window mit Gridanzeige und *LEFT Buttonausrichtung Beispiel der generierten Applikation mit Ausrichtung der Auswahlbuttonleiste im separaten linken Bereich.
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 22 von 32 AS-MIKA GMBH ___________________________________________________________________________
Filteroption Detailview Die Filterboxen werden automatisch erstellt wenn die Feldnamen " Sortfield Detail Table" von 1 - 6 angegeben werden.
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 23 von 32 AS-MIKA GMBH ___________________________________________________________________________
Kapitel 6 Zusätzliche Befehle zur Anwedungsentwicklung
Befehl CRTSQLPRC Mit dem Befehl erstellen Sie eine SQL Stored Procedure als SQL Source in einer Teildatei auf dem System i.
Logische Datei mit Keys Name der logischen Datei mit den
Schlüsselfeldinformationen Bibliothek der Datei Bibliothek der Datei Speichern in Sourcedatei Name der Sourcedatei in der die Teildatei gespeichert werden soll. Bibliothek der Sourcedatei Name der Bibliothek in der die Sourcedatei gespeichert ist
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 24 von 32 AS-MIKA GMBH ___________________________________________________________________________
Name Sourcemember Name der Teildatei mit den SQL
Scriptanweisungen Abhängige physische Datei Name der physischen Tabelle mit den
Feldbeschreibungen Source Member löschen Gibt an ob die Teildatei gelöscht werden soll
*YES = Die Teildatei wird vor der Erstellung entfernt.
*NO = Die Teildatei wird nicht entfernt Check Key Fields *YES = Für die Schlüsselfelder werden Prüfungen
auf den Inhalt durchgeführt *NO= Keine Prüfung auf die Schlüsselfelder Run SQL Statement *YES = Bei der Erstellung wird im Anschluss der
Befehl RUNSQLSTM ausgeführt.
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 25 von 32 AS-MIKA GMBH ___________________________________________________________________________
Beispiel Befehl CRTSQLPRC
Befehl CRTSQLPRC mit Tabelle A_IMG01P CRTSQLPRC FROMLF(A_IMG01P)FROMDTALIB(MK)TOSRCLIB(MK)
TOMBR(PRCTEST)FROMPF(A_IMG01PL)
Ergebnis als SQL Procedure --§ SQL erstellt www.asmika.de
--§ Version
--§ erstellt am 2013-02-13
--§ Datenbank MK/A_IMG01P
--§ System i Release V6R1M000
--§ Dokumentation
--§
--§-----------------------------------
--Drop procedure MK/prc_A_IMG01P;
Create procedure MK/prc_A_IMG01P (
INOUT IO_CODE CHAR(5) ,
INOUT IO_MSG CHAR(132) ,
IN ADBACTION CHAR(3 ) ,
IN I_A_STATUS CHAR(2) ,
IN I_A_COMPANY CHAR(10) ,
IN I_A_CLIENT CHAR(10) ,
IN I_A_MATERIAL CHAR(20) ,
IN I_A_DESC01 CHAR(60) ,
IN I_A_DESC02 CHAR(60) ,
IN I_A_DESC03 CHAR(60) ,
IN I_A_PRDCLS CHAR(25) ,
IN I_A_SALEPRD CHAR(15) ,
IN I_A_SALEFROM DATE ,
IN I_A_SALETO DATE ,
IN I_A_REMARK CHAR(250) ,
IN I_A_HISTORY CHAR(250) ,
IN I_A_DATE DATE ,
IN I_A_TIME TIME ,
IN I_A_JOBUSR CHAR(30) )
LANGUAGE SQL
SPECIFIC MK/prc_A_IMG01P
NOT DETERMINISTIC
MODIFIES SQL DATA
CALLED ON NULL INPUT
SET OPTION ALWBLK = *ALLREAD , DBGVIEW = *SOURCE ,
ALWCPYDTA = *OPTIMIZE ,
COMMIT = *NONE ,
-- V6 CLOSQLCSR = *ENDMOD ,
DECRESULT = (31, 31, 00) ,
DFTRDBCOL = *NONE ,
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 26 von 32 AS-MIKA GMBH ___________________________________________________________________________
DYNDFTCOL = *NO ,
DYNUSRPRF = *USER ,
SRTSEQ = *HEX
Begin
DECLARE ASQLMSG CHAR(32740) ;
DECLARE SQLCODE INTEGER ;
DECLARE SQLSTATE CHAR(5) ;
-- DECLARE IOchkCode CHAR(10) ;
-- DECLARE IOchkMsg CHAR(132) ;
declare continue Handler for SQLEXCEPTION
Begin
GET DIAGNOSTICS EXCEPTION 1 ASQLMSG = MESSAGE_TEXT ;
set IO_CODE = '9977' ;
set IO_Msg =ASQLMSG ;
Return -1;
End;
declare continue Handler for SQLWARNING
Begin
GET DIAGNOSTICS EXCEPTION 1 ASQLMSG = MESSAGE_TEXT ;
set IO_Code=SQLCODE ;
set IO_Msg =ASQLMSG ;
Return 0 ;
End;
declare continue Handler for NOT FOUND
Begin
GET DIAGNOSTICS EXCEPTION 1 ASQLMSG = MESSAGE_TEXT ;
set IO_Code=SQLCODE ;
set IO_Msg =ASQLMSG ;
Return -1;
End;
-----------------------------------------
-- check aDBAction --
-----------------------------------------
if ( aDbaction <> 'DLT' and
aDbaction <> 'NEW' and
aDbaction <> 'CPY' and
aDbaction <> 'CHG' ) Then
set io_code = '9999' ;
set io_Msg = 'aDbAction code invalid only DLT,NEW,CPY,CHG allowed
return -1 ;
End if ;
-----------------------------------------
-- check with a procedure (check pgm) --
-----------------------------------------
-- set IOchkCode = 'check';
-- set IOchkMsg = '-----';
-- call lib/prc (IOchkCode, IOchkMsg) ;
-- if ( IOchkCode <> '0000') Then
-- set io_code = IOchkCode ;
-- set io_Msg = IOchkMsg ;
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 27 von 32 AS-MIKA GMBH ___________________________________________________________________________
-- Return -1;
-- End if;
-------------------------------
--
-------------------------------
IF ( ADBACTION = 'NEW' or ADBACTION = 'CPY' ) Then
insert into A_IMG01PL(
A_STATUS ,
A_COMPANY ,
A_CLIENT ,
A_MATERIAL ,
A_DESC01 ,
A_DESC02 ,
A_DESC03 ,
A_PRDCLS ,
A_SALEPRD ,
A_SALEFROM ,
A_SALETO ,
A_REMARK ,
A_HISTORY ,
A_DATE ,
A_TIME ,
A_JOBUSR )
values (
I_A_STATUS ,
I_A_COMPANY ,
I_A_CLIENT ,
I_A_MATERIAL ,
I_A_DESC01 ,
I_A_DESC02 ,
I_A_DESC03 ,
I_A_PRDCLS ,
I_A_SALEPRD ,
I_A_SALEFROM ,
I_A_SALETO ,
I_A_REMARK ,
I_A_HISTORY ,
I_A_DATE ,
I_A_TIME ,
I_A_JOBUSR ) ;
END IF ;
--
-------------------------------
-- upddate statement
-------------------------------
IF ( ADBACTION = 'CHG' ) Then
update A_IMG01PL
Set
A_STATUS = I_A_STATUS ,
A_COMPANY = I_A_COMPANY ,
A_CLIENT = I_A_CLIENT ,
A_MATERIAL = I_A_MATERIAL ,
A_DESC01 = I_A_DESC01 ,
A_DESC02 = I_A_DESC02 ,
A_DESC03 = I_A_DESC03 ,
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 28 von 32 AS-MIKA GMBH ___________________________________________________________________________
A_PRDCLS = I_A_PRDCLS ,
A_SALEPRD = I_A_SALEPRD ,
A_SALEFROM = I_A_SALEFROM ,
A_SALETO = I_A_SALETO ,
A_REMARK = I_A_REMARK ,
A_HISTORY = I_A_HISTORY ,
A_DATE = I_A_DATE ,
A_TIME = I_A_TIME ,
A_JOBUSR = I_A_JOBUSR
END IF ;
--
-------------------------------
-- delete statement
-------------------------------
IF ( ADBACTION = 'DLT' ) Then
delete from A_IMG01PL
END IF ;
--
GET DIAGNOSTICS EXCEPTION 1 ASQLMSG = MESSAGE_TEXT ;
SET IO_CODE=SQLCODE ;
SET IO_MSG =ASQLMSG ;
RETURN 0 ;
END ;
COMMENT ON SPECIFIC PROCEDURE MK/prc_A_IMG01P
IS 'SQL Procedure MK/prc_A_IMG01P' ;
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 29 von 32 AS-MIKA GMBH ___________________________________________________________________________
Befehl CRTPHPF Mit dem Befehl wird der Aufruf einer SQL Stored Procedure in PHP Syntax erstellt.
Create von Source Datei Name der Sourcedatei Bibliothek der Sourcedatei Name der Bibliothek Name Sourcemember Name der Teildatei mit der SQL Stored Procedure PHP Functionname Name der PHP Function Speichern IFS Folder Name des IFS Ordner in dem die PHP Scriptdatei
gespeichert werden soll. Name der PHP Datei im IFS IFS Dateiname Error als XML String *YES = der Returnstring wird im XML Format
ausgegeben
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 30 von 32 AS-MIKA GMBH ___________________________________________________________________________
IFS Datei löschen Vor der Erstellung wird die Datei im IFS gelöscht.
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 31 von 32 AS-MIKA GMBH ___________________________________________________________________________
Beispiel Befehl CRTPHPF
CRTPHPF SRCLIB(MK) SRCMBR(PRCTEST) FUNCNAME(saveDataForIMG01P)
TOIFSFLR(' /asmtool/test') TOIFSFILE(phpscript.php) DLTIFS(*YES)
Ergebnis als PHP Script <?php
//=================================================
//
//
//
//
//=================================================
function SQLcall_saveDataForIMG01P( $INARY )
{
$pr_call = "call mk/prc_a_img01p ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,
?, ?, ?, ?, ?, ?)";
$stmt = db2_prepare($this->conn, $pr_call);
if(!$stmt ) {
die( "Error by prepare ". db2_stmt_error());
}
$IO_CODE = "x" ;
$IO_MSG = "x" ;
$ADBACTION = $INARY['ADBACTION'];
$I_A_STATUS = $INARY['I_A_STATUS'];
$I_A_COMPANY = $INARY['I_A_COMPANY'];
$I_A_CLIENT = $INARY['I_A_CLIENT'];
$I_A_MATERIAL = $INARY['I_A_MATERIAL'];
$I_A_DESC01 = $INARY['I_A_DESC01'];
$I_A_DESC02 = $INARY['I_A_DESC02'];
$I_A_DESC03 = $INARY['I_A_DESC03'];
$I_A_PRDCLS = $INARY['I_A_PRDCLS'];
$I_A_SALEPRD = $INARY['I_A_SALEPRD'];
$I_A_SALEFROM = $INARY['I_A_SALEFROM'];
$I_A_SALETO = $INARY['I_A_SALETO'];
$I_A_REMARK = $INARY['I_A_REMARK'];
$I_A_HISTORY = $INARY['I_A_HISTORY'];
$I_A_DATE = $INARY['I_A_DATE'];
$I_A_TIME = $INARY['I_A_TIME'];
$I_A_JOBUSR = $INARY['I_A_JOBUSR'];
//print_r ($INARY) ;
db2_bind_param ($stmt, 1, "IO_CODE", DB2_PARAM_INOUT);
db2_bind_param ($stmt, 2, "IO_MSG", DB2_PARAM_INOUT);
db2_bind_param ($stmt, 3, "ADBACTION", DB2_PARAM_IN);
db2_bind_param ($stmt, 4, "I_A_STATUS", DB2_PARAM_IN);
db2_bind_param ($stmt, 5, "I_A_COMPANY", DB2_PARAM_IN);
db2_bind_param ($stmt, 6, "I_A_CLIENT", DB2_PARAM_IN);
db2_bind_param ($stmt, 7, "I_A_MATERIAL", DB2_PARAM_IN);
db2_bind_param ($stmt, 8, "I_A_DESC01", DB2_PARAM_IN);
___________________________________________________________________________ CRTFLXAPP ___________________________________________________________________________
___________________________________________________________________________ Seite 32 von 32 AS-MIKA GMBH ___________________________________________________________________________
db2_bind_param ($stmt, 9, "I_A_DESC02", DB2_PARAM_IN);
db2_bind_param ($stmt, 10, "I_A_DESC03", DB2_PARAM_IN);
db2_bind_param ($stmt, 11, "I_A_PRDCLS", DB2_PARAM_IN);
db2_bind_param ($stmt, 12, "I_A_SALEPRD", DB2_PARAM_IN);
db2_bind_param ($stmt, 13, "I_A_SALEFROM", DB2_PARAM_IN);
db2_bind_param ($stmt, 14, "I_A_SALETO", DB2_PARAM_IN);
db2_bind_param ($stmt, 15, "I_A_REMARK", DB2_PARAM_IN);
db2_bind_param ($stmt, 16, "I_A_HISTORY", DB2_PARAM_IN);
db2_bind_param ($stmt, 17, "I_A_DATE", DB2_PARAM_IN);
db2_bind_param ($stmt, 18, "I_A_TIME", DB2_PARAM_IN);
db2_bind_param ($stmt, 19, "I_A_JOBUSR", DB2_PARAM_IN);
$result = db2_execute($stmt);
if (!$result ) {
die ("Execute failed:".db2_stmt_error($stmt) );
}
$aReturnVal = "<ERROR><ID>".$IO_CODE."</ID>"."<ERRMSG>".$IO_MSG."</ERRMSG>
</ERROR>" ;
return $aReturnVal ;
}