Daten variabel dem richtigen Feld zuordnen

[Joe]

Hallo.
Alle Feldnamen aus Datei1 ermitteln und prüfen, ob diese in Datei2 vorkommen. (Über QADBIFLD o. entsprechende View mit Berechtigung) Bei Änderung 1. ein Rpg erstellen, das aufgrund der gefundenen Felder einen Create-Table macht und 2. ein RPG-Programm das genauso dynamisch zur Laufzeit ein Programm erstellt mit den entspr.CASE-Anweisungen, dieses komnpiliert und ausführt.
Aber: ist der Aufwand gerechtfertigt, und was machen andere Programme, die auf Datei2 zugreifen. Diese müssten doch alle zum Zeitpunkt der Dateiänderung kompiliert werden. Oder ist das eine reine SQL Umgebung?

Gruß Joe

[Fertig]

Das ist schon richtig.

Aber hauptsächlich ist das für Übertragung nach Excel oder interaktives Query gedacht.

Man bräuchte halt nicht immer hinterherprogrammieren, wenn neue Merkmale für Artikel angelegt werden.

Ich werde mal versuchen automatisch die SQL-Source zu schreiben.

[B.Hauser]

Warum der Aufwand?

Du must das SQL Script für die erste Erstellung (manuell) eintippen, z.B. in STRSQL, in System i Navigator - Eine Prozedur ausführen oder in eine Quellen-Teildatei eintragen.

Sobald die View (oder Tabelle) einmal erstellt ist kann mit dem Sysem i Navigator - Datenbank die Quelle (IFS-Datei oder Quellen-Teildatei) erzeugt werden. Alternativ kann man auch das API QSQGNDDL verwenden, um den SQL Code zu erzeugen und speichern.

Ein in einer Teildatei oder IFS-Datei hinterlegter SQL-Code kann mit dem CL-Befehl RUNSQLSTM ausgeführt werden.

Ändert sich also die View, d.h. es werden neue Merkmale hinzugefügt, wird halt das Skript um die neuen Merkmale erweitert, die View gelöscht (kann ebenfalls in dem SQL Skript hinterlegt werden) und erneut erstellt.

Birgitta

[Fertig]

Das Script um die neuen Merkmale erweitern müßte ich dann aber manuell machen, oder?

Deswegen will ich täglich automatisch den Merkmalsstamm lesen und damit das SQL bei Bedarf erweitern.

[alfredo]

Wenn ich richtig gelesen habe, geht es hauptsächlich nur um eine EXCEL-Tabelle.
Da wäre die billigste Lösung eigentlich eine simple PIVOT-Tabelle

lg
alfredo

[Logic IT-Services]

Angenommen die Datei hat 3 Spalten: Artikel-Nr. ArtNr, Merkmal MRK, Wert Wert.
Dann könnte die View etwa so aussehen:

Create View MySchema/MyView
as Select ArtNr, Max(Case When MRK = 'LAENGE' Then Wert Else '' End) as Laenge,
Max(Case When MRK = 'BREITE' Then Wert Else '' End) as Breite, ...
From MySchema/MyTable
Group By ArtNr;


Wie Birgitta vorgeschlagen. Was musst du tun um das zu automatisieren?

Erstelle einen Array mit den vorhandenen Merkmalen (%Scan Merkmal: vorhanden ja = nix tun, nicht vorhanden = in's nächste freie Element einfügen (Blank-Scan).

Aufgrund des Arrays, SQL-Statements wie oben erstellen. Betrifft jetzt nur die Selects, der Rest bleibt ja immer gleich.

Automatisiert und ohne Handarbeit

[bwachs]

So kann man es auch machen :

COBOL


identification division.
program-id. PREPART.
environment division.
configuration section.
special-names.
decimal-point is comma.
data division.
working-storage section.
EXEC SQL
include SQLCA
END-EXEC.
01 DEFINITIONEN.
* PREPARE-String
05 EXECSTRING pic x(99).
* Hier kommen die Felder aus der Datei 1 (Num. Felder GEZONT
* definieren !)
05 VARNAME pic x(10)
value "LAENGE ".
05 WERT pic s9(9)
value 1200.
05 ARTNR pic s9(15)
value 4711.
/
************************************************** ***************
* Haupsteuerung
************************************************** ***************
procedure division.
steuerung.
perform init.
* Hier muss eine Schleife 'rein, die die Datei 1 abarbeitet und
* bei Gruppenwechsel der Artikelnummer einen Satz mit der neuen
* Artikelnummer (ohne die anderen Feldwerte) in die Datei 2
* schreibt und ggf. den Update für alle Felder der Datei2 durch-
* führt.
* Zusammenbasteln des PREPARE-Strings für alle Felder der Datei 2
string "update ARTIKEL set " delimited by size,
VARNAME delimited by size,
" = " delimited by size,
WERT delimited by size,
" where ARTNR = " delimited by size,
ARTNR delimited by size,
into EXECSTRING
end-string.
EXEC SQL
prepare SETFLD from :EXECSTRING
END-EXEC.
EXEC SQL
execute SETFLD
END-EXEC.
goback.
init.
initialize SQLCODE,
SQLSTATE.
DDS


A UNIQUE
A R ARTIKELREC
A*
A ARTNR 15P 0
A LAENGE 9P 0
A BREITE 7P 0
A HOEHE 5P 0
A*
A K ARTNR
Hth

Bernd

[Fertig]

Cobol kann ich leider nicht.

Ich habe den Vorschlag von Birgitta umgesetzt:


PGM
/* SQL-Statement für View löschen */
CLRPFM FILE(OWAPF558)
/* View löschen */
DLTF FILE(CCMPDTAP/OWALF558)
MONMSG MSGID(CPF2105)
/* SQL-Statement für View schreiben */
CALL PGM(OWAPG558)
/* View erstellen */
OVRPRTF FILE(QSYSPRT) OUTQ(LOESCH) SPLFOWN(*JOBGRPPRF)
RUNSQLSTM SRCFILE(OWAPF558) SRCMBR(OWAPF558) +
COMMIT(*NONE)
ENDPGM

Mit RPG lese ich den Merkmalsstamm und baue folgende SQL-Source zusammen:



CREATE VIEW CCMPDTAP/OWALF558 AS SELECT
SUBSTR(OJKYHJ, 18, 8) AS ARTNR,
MAX(CASE WHEN FCKYHJ = 'LAENGE' THEN FSN1HJ ELSE 0 END) AS LAENGE,
MAX(CASE WHEN FCKYHJ = 'BREITE' THEN FSN1HJ ELSE 0 END) AS BREITE,
MAX(CASE WHEN FCKYHJ = 'DICKE ' THEN FSN1HJ ELSE 0 END) AS DICKE ,
MAX(CASE WHEN FCKYHJ = 'BAUSTO' THEN FSA1HJ ELSE '' END) AS BAUSTO,
...
MAX(CASE WHEN FCKYHJ = 'NADELA' THEN FSA1HJ ELSE '' END) AS NADELA
FROM CASPDTAP/CATPF0HJ
GROUP BY OJKYHJ;


Das funktioniert so wie es soll!
Danke:)