View Full Version : source zeilen
Hallo
Wie kann ich mir mit SQL aus einer Sourcedatei die Summe der Sourcezeilen
aller Members ausgeben lassen ?
Vielleicht kann mir wer helfen
Bsp: pgm 1 = 2000 Zeilen
pgm 2 = 1500 Zeilen usw.
Danke
Das geht mit SQL nur sehr aufwändig, da keine Teildateien verarbeitbar sind.
Dazum müsste man ein CLP aufrufen, das per RTVMBRD die Teildatein abarbeitet, einen OVRDBF durchführt und anschließend den SQL durchführt.
Allerdings:
RTVMBRD liefert auch bereits die Anzahl Sätze der Teildatei, die man im CLP dann nur noch addieren muss.
1. Aufruf
RTVMBRD FILE(MYSRCFILE) MBR(*FIRST) RTNMBR(&MBR) NBRCURRCD(&NBR)
Alle weiteren:
RTVMBRD FILE(MYSRCFILE) MBR(&MBR *NEXT) RTNMBR(&MBR) NBRCURRCD(&NBR)
MONMSG CPF0000 GOTO(ENDE)
Wenn es dir nur darum geht, die Anzahl Sätze/Source zu ermitteln, dann kannst du DSPFD *MBRLIST nach *OUTFILE benutzen.
Gruß
DVE
Das hab ich mir gedacht, daß es nur mit ovrdbf funktioniert ! Eigentlich schade, daß SQL keine Mbr verarbeiten kann!
Danke
kuempi von stein
26-02-07, 12:15
Hello,
wenns keine reine SQL-Lösung sein muss, dann geht ja evtl. auch:
DSPFD FILE(QRPGSRC) OUTPUT(*OUTFILE) OUTFILE(QTEMP/KUEMPI) OUTMBR(*FIRST *ADD)
Und die Outfile dann auswerten.
SQL könnte schon mit Member arbeiten (CREATE ALIAS) aber das ist einfach aufwändig...
kuempi
Zusatz: ach ja, lesen müsste man können, haben ja alle schon alles gesagt. Zu langsam mal wieder...
Danke
Werde es mit DSPFD machen
Wofür braucht man sowas? Werden Sie nach Anzahl Zeilen bezahlt?:rolleyes:
Ich glaube, dass war in den 60ern so ;)
kuempi von stein
26-02-07, 15:55
Ich trau mich ja fast gar nicht den Beitrag abzuschicken...
Heutzutage darf man ja nur noch "Personen mit Emigrationshintergrund" sagen zum Beispiel und diese leckeren Teile heissen ja inzwischen "Schaumküsse" oder Dickmanns oder so.....
Aber für mich hört sich das nach Outsourcing an und das Land liegt weit südöstlich von hier...
Hab irgendwie in Erinnerung (als ich das letzte mal den Job verloren habe) dass die da noch so zählen....
Alles andere macht für mich keinen Sinn in diesem Zusammenhang.
So und nun steinigt mich oder der TO erzählt mal mehr vom Hintergrund der Geschichte.
kuempi
das waren noch Zeiten, als man sein Geld noch mit dem kopieren von Zeilen und monolithisieren verdienen konnte...
Ich glaube, dass war in den 60ern so ;)