diff --git a/WEGA/contrib/ingres/dbs/ing_src/teil3/report b/WEGA/contrib/ingres/dbs/ing_src/teil3/report new file mode 100644 index 0000000..aff6604 --- /dev/null +++ b/WEGA/contrib/ingres/dbs/ing_src/teil3/report @@ -0,0 +1,554 @@ +.de xx +UNIX +.. +.de yy +ING_DB +.. +.de vv +ING_DB 6.3/3 +.. +.pl 72 +.ds RH \f3REPORT\f1 +.ds RF \f3\*(xx\f1 +.ds LH Beispiele +.ds LF \*(vv +.ds CH - % - +.bp +.NH 2 +.ft B +Report-Generator * +.ft R +.LP +.sp 10 +.NH 3 +.ft B +Arbeitslisten +.ft R +.LP +Unter dem Begriff Arbeitslisten sollen +Druckbilder verstanden werden, die ein bescheidenes +Mass an Daten ben\o'o"'tigen, die aber f\o'u"'r die manuelle +Erstellung von \o'U"'bersichten eine grosse Hilfe sind, +wenn sie sich relativ schnell erzeugen lassen. +H\o'a"'ufig trifft man diese Situation auch dann an, +wenn bestimmte Unterlagen zur \o'U"'bernahme +von Daten auf einen Rechner notwendig sind und die +Erstellung entsprechender Prim\o'a"'rbelege nicht lohnt +bzw. zu aufwendig ist. +.LP +Folgende Relationen sollen +verwendet werden: +.DS L + + +Relation: fbbz +--------- K 1630 / EVK Olbernhau +Besitzer: ing_db +Tupellaenge: 43 +Verfallsdatum: Mon Jan 1 00:00:00 1990 +Tupelanzahl: 23 +Speicherstruktur: HEAP +Pages: 1 + 2 +Relationentyp: Nutzerrelation + + Domaenname Typ Laenge Schluessel +-------------------------------------------- + bn i 2 + stbn i 4 + knr i 2 + bez c 35 +-------------------------------------------- +.DE +.sp 2 +.DS L + + +Relation: kbz +--------- K 1630 / EVK Olbernhau +Besitzer: ing_db +Tupellaenge: 54 +Verfallsdatum: Mon Jan 1 00:00:00 1990 +Tupelanzahl: 23 +Speicherstruktur: HEAP +Pages: 1 + 16 +Relationentyp: Nutzerrelation + + Domaenname Typ Laenge Schluessel +-------------------------------------------- + knr i 2 + kbez c 15 + bn i 2 + bez c 35 +-------------------------------------------- +.DE +.LP +Aus beiden Relationen kann mit retrieve eine neue +Relation +.ft B +listk +.ft R +erzeugt und mittels replace und +modify so umgestaltet werden , dass sie als +Ausgangsrelation f\o'u"'r nachfolgende Aufgaben dient. +Die Arbeitsliste, die mit dem Programm +erzeugt wird, ist nach Betrieben und Kreisen geordnet. +Die Kopfinformationen k\o'o"'nnen bei +Bedarf gegebenenfalls auch mit dem Editor in die +vorbereiteten Felder von listk_o eingetragen +werden, sofern sich hierbei eine h\o'a"'ufige \o'A"'nderung +notwendig macht. +.LP +.nf +------------------------------------------------------------ +define report krbbz + with columns 122 + all lines 66 + lines 58 + big + define hn = 1 + define bn = 2 + define bez = 3 + + define #hn = integer 2 + define #bn = integer 2 + define #bez = char 35 + +as +proc 1 + set var 0 = 37 + repeat 8 + col var 0 ':' + set var 0 = var 0 + 12 + endr + new line +return + +on pagebegin do + 'ARBEITSLISTEN NACH KREISEN GEORDNET' + col 45 + date + col 80 + '* NUR FUER DEN DIENSTGEBRAUCH *' + new line 2 + col 3 + 'BETRIEBSBEZEICHNUNG' + col 37 + ': PLAN :ARB.-AUFTR.: IST ' + ': PLAN : V. IST :' + col 109 + ':' + col 121 + ':' + new line + col 10 + '** KREISBEZEICHNUNG' + col 37 + ': BM : BM : MON ' + ': KUM. BM : KUM. BM :' + col 109 + ':' + col 121 + ':' + new line + '-' 121 +endo + +for all do + for one do + if value 2 <> 99 then + integer length 2 value 2 + col 3 + else + col 10 + endi + char value 3 + call 1 + '-' 121 + new line + if groupend 1 then + call 1 + col 37 + '-' 85 + new line + endi + endo +enda + +call 1 +new line +col 37 +'=' 85 +; +------------------------------------------------------------ +.fi +.LP +Die entstehende Liste ist ein Ausschnitt und soll +nur den prinzipiellen Aufbau darstellen. +.DS L + +ARBEITSLISTEN NACH KREISEN GEORDNET DATUM: ===> + + BETRIEBSBEZEICHNUNG : PLAN :ARB.-AUFTR.: + ** KREISBEZEICHNUNG : BM : BM : +------------------------------------------------------------- +7 HOLZWAREN GROSSHARTMANSDORF : : : +------------------------------------------------------------- + ** BRAND-ERBISDORF : : : +------------------------------------------------------------- +17 RAUM- U. TAFELSCHMUCK GAHLENZ : : : +------------------------------------------------------------- +21 WERK-KUNST GRUENHAINICHEN : : : +------------------------------------------------------------- + ** FLOEHA : : : + . + . + . + +------------------------------------------------------------- +25 KOMBINAT EVK OLBERNHAU : : : + + ==================== ===> +.DE +.LP +.NH 3 +.ft B +Softwarekatalog +.ft R +.LP +In der Datenbank +.ft B +hardsoft +.ft R +gibt es die beiden Relationen +.ft B +anschrift +.ft R +und +.ft B +soft1: +.ft R +.DS L + + +Relation: anschrift +--------- K 1630 / EVK Olbernhau +Besitzer: ing_db +Tupellaenge: 200 +Verfallsdatum: Mon Jan 1 00:00:00 1990 +Tupelanzahl: 165 +Speicherstruktur: compressed HEAP +Pages: 1 + 37 +Relationentyp: Nutzerrelation + + Domaenname Typ Laenge Schluessel +-------------------------------------------- + bn i 4 + ans1 c 40 + ans2 c 40 + ans3 c 30 + ort c 30 + plz c 5 + kubez c 48 + beznr c 3 +-------------------------------------------- +.DE +.DS L + + +Relation: soft1 +--------- K 1630 / EVK Olbernhau +Besitzer: ing_db +Tupellaenge: 159 +Verfallsdatum: Mon Jan 1 00:00:00 1990 +Tupelanzahl: 186 +Speicherstruktur: HEAP +Pages: 1 + 61 +Relationentyp: Nutzerrelation + + Domaenname Typ Laenge Schluessel +-------------------------------------------- + bnr i 4 + lnr i 2 + titel c 10 + aufg i 2 + deskr c 65 + rtyp c 8 + bsyst c 8 + prspr c 8 + dbspr c 8 + pfterm i 2 + nutzbg i 2 + ppznr c 13 + regnr c 19 + aufw i 2 + projzt i 2 + nnkost i 2 + nutz i 2 +-------------------------------------------- +.DE +.LP +Aus einer \o'u"'bergeordneten Shell-Prozedur wird +die Prozedur +.ft B +cal_sachg +.ft R +gerufen. Diese Prozedur verwendet zwei Files zur +direkten Steuerung von \*(yy. Sofern keine C-Statements +f\o'u"'r eine Komandofolge gebraucht werden und das +entsprechende Menue relativ selten benutzt wird, +ist das ein sehr eleganter Weg zur Ablaufsteuerung. +Die beiden Files +.ft B +sachg_in1 +.ft R +und +.ft B +sachg_in2 +.ft R +fungieren als Eingabefiles f\o'u"'r \*(yy. +.nf + + +------------------------------------------------------------- + +quel hardsoft < sachg_in1 +rd hardsoft sachg +mv desc sachg_d +quel hardsoft < sachg_in2 +rg -dsachg_d -isachg_r -fsachg_f -osachg_o + +------------------------------------------------------------- +.fi +.LP +Zuerst das File sachg_in1 - aus den Relationen +.ft B +anschrift +.ft R +und +.ft B +soft1 +.ft R +sollen einige Spalten herausgezogen werden, in eine +tempor\o'a"'re Relation +.ft B +sachg +.ft R +gespeichert und nach der +Betriebsnummer und Aufgabe - als Gruppierungsbegriffe - +sortiert werden. Mit +.ft B +copy into +.ft R +wird anschliessend ein \*(xx-File erzeugt. +Da in der Shell-Prozedur noch ein Deskription File zu erzeugen ist, +muss das destroy-Kommando in einem zweiten Eingabefile stehen. +.nf + +------------------------------------------------------------- + +range of a is anschrift +range of s is soft1 +retrieve into sachg (s.bnr, a.kubez, s.titel, s.aufg) \e + where s.bnr=a.bn +\\p\\g +modify sachg() to heapsort on bnr, aufg +\\p\\g +copy sachg() into "/mnt/ing_db/work/kag/sachg_f" +\\p\\g +\\q + +------------------------------------------------------------ +.fi +.LP +Das Eingabefile +.ft B +sachg_in2 +.ft R +hat lediglich die Aufgabe, die Relation +.ft B +sachg +.ft R +wieder zu l\o'o'schen, +da sie bei einem weiteren Lauf zu diesem Menue st\o'o"'rt. +.nf + +------------------------------------------------------------ + +destroy sachg +\\p\\g +\\q +--------------------------------------------------------------- +.fi +.LP +Das Report Programm listet betriebsweise aus, welche Software +nach Aufgaben geordnet verf\o'u"'gbar ist. Der Programmtitel soll +in der entsprechenden Spalte erscheinen, wobei nur dann eine +neue Zeile eingerichtet werden darf, wenn mehrere Titel zu einem +Sachgebiet (Aufgabe) auftreten. Die Kurzbezeichnung zum +Betrieb ist auf zwei Zeilen zu verteilen. +.nf +-------------------------------------------------------------- + +report sachg_r +with + columns 130 + lines 57 + all lines 66 + big + + /* Prozeduren */ + define position = 1 + define b_spalte = 2 + + /* Variable */ + define v_pos = 1 + + /* Domaenen */ + define s_bnr = 1 + define s_kubez = 2 + define s_titel = 3 + define s_aufg = 4 + + define #s_bnr = integer 4 + define #s_kubez = char 48 + define #s_titel = char 10 + define #s_aufg = integer 2 + +as + +on pagebegin do + 'ARBEITSKREIS >>>COMPUTEREINSATZ IN DER SBW<<<' + 'BEZIRKSGELEITETE INDUSTRIE' + \\115 date \n2 + '*' 7 + ' SOFTWARE NACH SACHGEBIETEN ' + '*' 7 + \\114 'Seite: ' integer @3 page + \\n + 'BETRIEB' \en + \\10 + 'GRUMI ' + 'INVEST ' + 'MATERIAL ' + 'AKR ' + 'LEISTUNG ' + 'WAREN ' + 'KOSTEN ' + 'FINANZEN ' + 'NUTZEN ' + 'BES./ANAL ' + 'BERICHTSW.' + 'SONSTIGES ' \en + \\10 + ':=========' 12 \en2 +end + +proc position + if #s_aufg > 0 then + set $v_pos = #s_aufg + else + set $v_pos = 12 + end if + set $v_pos *= 10 + col $v_pos + char @10 #s_titel +return + +proc b_spalte + \\10 ':' + \\20 ':' + \\30 ':' + \\40 ':' + \\50 ':' + \\60 ':' + \\70 ':' + \\80 ':' + \\90 ':' + \\100 ':' + \\110 ':' + \\120 ':' +return + +on batchline do call b_spalte end + +for all do + for one do + if groupbegin s_bnr then + \\n + char batch 24 @48 #s_kubez + \\n2 + end if + if ! groupend s_aufg then + \\n + end if + call position + if groupend s_aufg then + \\n + \\10 + ':..............' 12 + \\n + if line > 56 then \en4 end if + end if + end one +end all +; + + +------------------------------------------------------------ +.fi +.LP +Die Druckliste ist etwa 127 Zeichen breit, um einen Einblick zur +Gestaltung zu geben, wurde bei Spalte 60 abgebrochen. +Es werden nur 40 Originaldruckzeilen gezeigt. Da das File +.ft B +sachg_o +.ft R +im ASCII-Format vorliegt, ist die Aufbereitung mit dem Editor +m\o'u"'helos m\o'o"'glich, ebenso wie das Einf\o'u"'gen in den +Quelltext dieses Kapitels. +.bp +.nf + +------------------------------------------------------------- + +ARBEITSKREIS >>>COMPUTEREINSATZ IN DER SBW<<< BEZIRKSGELEITET + +****** SOFTWARE NACH SACHGEBIETEN ****** +BETRIEB + GRUMI INVEST MATERIAL AKR LEISTUNG WA + :=========:=========:=========:=========:=========:= + +KOMBINAT ERZGEBIRGISCHE +VOLKSKUNST OLBERNHAU : : : : + + AKR + :=========:=========:=========:=========:=========:= + +KOMBINAT ELEKTROGERAETE +FUERSTENWALDE : : : : + + GRUMI + BILANZ + DPA + HOLZERF + MFOKO + MP1801V + MWA146 + MWKBIL AKR SORTPLA RE + :.........:.........:.........:.........:.........:. + +VEB ELSTERMODE +ELSTERWERDA : : : : + + LISTEW1 LEIRE + :.........:.........:.........:.........:.........:. + +INGENEURBUERO +U.RATIONALIS.COTTBUS : : : : + + MARKE + :.........:.........:.........:.........:.........:. + +------------------------------------------------------------ +.fi +