ING_DB
This commit is contained in:
Oliver Lehmann
parent
26685366db
commit
9820589c06
|
|
@ -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
|
||||
|
||||
Loading…
Reference in New Issue