source zeilen

[jppgmr]

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

[Fuerchau]

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)

[DVE]

Wenn es dir nur darum geht, die Anzahl Sätze/Source zu ermitteln, dann kannst du DSPFD *MBRLIST nach *OUTFILE benutzen.
Gruß
DVE

[jppgmr]

Das hab ich mir gedacht, daß es nur mit ovrdbf funktioniert ! Eigentlich schade, daß SQL keine Mbr verarbeiten kann!

Danke

[kuempi von stein]

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...

[jppgmr]

Danke

Werde es mit DSPFD machen

[mwithake]

Wofür braucht man sowas? Werden Sie nach Anzahl Zeilen bezahlt?

[Fuerchau]

Ich glaube, dass war in den 60ern so

[kuempi von stein]

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

[BenderD]

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

[holgerscherer]

das waren noch Zeiten, als man sein Geld noch mit dem kopieren von Zeilen und monolithisieren verdienen konnte...

Dieter, das ist auch heute noch stellenweise so. Habe erst neulichst bei einem gesehen, der (nicht nach Zeilen, aber nach Stunden bezahlt) einen Code zusammenkopiert hat, dass Du noch mehr Locken bekommst

Subroutinen ist was für Mädchen, wir kopieren alte RPG3-MOVEs zigfach...

-h (Seufz)