ING_DB
This commit is contained in:
Oliver Lehmann
parent
8f08fcb401
commit
215c12bf4f
|
|
@ -0,0 +1,230 @@
|
|||
## shared dt
|
||||
|
||||
# define NF ((int (*)()) 0) /* null function */
|
||||
# define FIELD 22
|
||||
|
||||
int key = 1;
|
||||
char *text = " KEIN AKTUELLER SATZ VORHANDEN ";
|
||||
|
||||
/* vars of relation erfind */
|
||||
# define ERFINDUNG 36
|
||||
## char erfindung[37];
|
||||
char v_erf[ERFINDUNG + 1];
|
||||
|
||||
# define ERFINDER 20
|
||||
## char erfinder[21];
|
||||
char v_erfinder[ERFINDER + 1];
|
||||
|
||||
# define JAHR 9
|
||||
## char jahr[10];
|
||||
char v_jahr[JAHR + 1];
|
||||
|
||||
# define LAND 12
|
||||
## char land[13];
|
||||
char v_land[LAND + 1];
|
||||
|
||||
|
||||
f_init(frame)
|
||||
register char *frame;
|
||||
{
|
||||
erfinder[0] = 0;
|
||||
jahr[0] = 0;
|
||||
land[0] = 0;
|
||||
MMclr_value(frame);
|
||||
MMvalue(frame);
|
||||
}
|
||||
|
||||
f_retrieve(frame)
|
||||
register char *frame;
|
||||
{
|
||||
register int cnt;
|
||||
|
||||
key++;
|
||||
f_init(frame);
|
||||
cnt = 0;
|
||||
|
||||
## use (shared erfind)
|
||||
## retrieve erfind $erfindung == erfindung
|
||||
## (
|
||||
## erfindung = $erfindung,
|
||||
## erfinder = $erfinder,
|
||||
## jahr = $jahr,
|
||||
## land = $land
|
||||
## )
|
||||
## {
|
||||
cnt++;
|
||||
key = 0;
|
||||
MMset_value(frame, erfindung, 0);
|
||||
MMset_value(frame, erfinder, 0);
|
||||
MMset_value(frame, jahr, 0);
|
||||
MMset_value(frame, land, 0);
|
||||
MMvalue(frame);
|
||||
## endretrieve
|
||||
## }
|
||||
## commit
|
||||
|
||||
if (!cnt)
|
||||
MMerror(" SATZ NICHT VORHANDEN ");
|
||||
}
|
||||
|
||||
f_append(frame)
|
||||
register char *frame;
|
||||
{
|
||||
register int cnt;
|
||||
|
||||
## use (exclusive erfind)
|
||||
cnt = 0;
|
||||
## retrieve erfind $erfindung == erfindung
|
||||
## {
|
||||
cnt++;
|
||||
## endretrieve
|
||||
## }
|
||||
if (!cnt)
|
||||
{
|
||||
key = 0;
|
||||
## append erfind
|
||||
## (
|
||||
## $erfindung = erfindung,
|
||||
## $erfinder = erfinder,
|
||||
## $jahr = jahr,
|
||||
## $land = land
|
||||
## )
|
||||
## commit
|
||||
}
|
||||
|
||||
MMerror(cnt? " SATZ VORHANDEN ": " SATZ ANGEFUEGT ");
|
||||
}
|
||||
|
||||
f_delete(frame)
|
||||
register char *frame;
|
||||
{
|
||||
register int cnt;
|
||||
|
||||
if (key)
|
||||
{
|
||||
MMerror(text);
|
||||
return;
|
||||
}
|
||||
|
||||
## use (exclusive erfind)
|
||||
## retrieve erfind $erfindung == erfindung
|
||||
## {
|
||||
cnt++;
|
||||
## delete
|
||||
## endretrieve
|
||||
## }
|
||||
## commit
|
||||
|
||||
MMerror(cnt? " SATZ GELOESCHT ": " SATZ NICHT GELOESCHT ");
|
||||
key++;
|
||||
f_init(frame);
|
||||
}
|
||||
|
||||
f_replace(frame)
|
||||
register char *frame;
|
||||
{
|
||||
register int cnt;
|
||||
if (key)
|
||||
{
|
||||
MMerror(text);
|
||||
return;
|
||||
}
|
||||
|
||||
## use (exclusive erfind)
|
||||
cnt = 0;
|
||||
## retrieve erfind $erfindung == erfindung
|
||||
## {
|
||||
cnt++;
|
||||
## replace
|
||||
## (
|
||||
## $erfinder = erfinder,
|
||||
## $jahr = jahr,
|
||||
## $land = land
|
||||
## )
|
||||
## endretrieve
|
||||
## }
|
||||
## commit
|
||||
|
||||
MMerror(cnt? " SATZ ERSETZT ": " SATZ NICHT ERSETZT ");
|
||||
}
|
||||
|
||||
amx(argc, argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
{
|
||||
register char *form;
|
||||
char *frame;
|
||||
extern char *MMalloc();
|
||||
|
||||
|
||||
MMinit_form(1);
|
||||
|
||||
frame = (char *) 0;
|
||||
form = MMalloc(&frame, 2, 1, 71, (char *) 0);
|
||||
MMout_field(form, "----------------------------------------------------------- E R F I N D");
|
||||
|
||||
form = MMalloc(&frame, 3, 1, 9, (char *) 0);
|
||||
MMout_field(form, "ERFINDUNG");
|
||||
|
||||
form = MMalloc(&frame, 3, FIELD, ERFINDUNG, v_erf);
|
||||
MMval_field(form, NF);
|
||||
MMvarc(form, erfindung, (char *) 0);
|
||||
form = MMalloc(&frame, 3, FIELD, ERFINDUNG, v_erf);
|
||||
MMin_field(form, NF, NF, 0);
|
||||
MMvarc(form, erfindung, (char *) 0);
|
||||
|
||||
form = MMalloc(&frame, 5, 1, 8, (char *) 0);
|
||||
MMout_field(form, "ERFINDER");
|
||||
|
||||
form = MMalloc(&frame, 5, FIELD, ERFINDER, v_erfinder);
|
||||
MMval_field(form, NF);
|
||||
MMvarc(form, erfinder, (char *) 0);
|
||||
form = MMalloc(&frame, 5, FIELD, ERFINDER, v_erfinder);
|
||||
MMin_field(form, NF, NF, 0);
|
||||
MMvarc(form, erfinder, (char *) 0);
|
||||
|
||||
form = MMalloc(&frame, 6, 1, 4, (char *) 0);
|
||||
MMout_field(form, "JAHR");
|
||||
|
||||
form = MMalloc(&frame, 6, FIELD, JAHR, v_jahr);
|
||||
MMval_field(form, NF);
|
||||
MMvarc(form, jahr, (char *) 0);
|
||||
form = MMalloc(&frame, 6, FIELD, JAHR, v_jahr);
|
||||
MMin_field(form, NF, NF, 0);
|
||||
MMvarc(form, jahr, (char *) 0);
|
||||
|
||||
form = MMalloc(&frame, 7, 1, 4, (char *) 0);
|
||||
MMout_field(form, "LAND");
|
||||
|
||||
form = MMalloc(&frame, 7, FIELD, LAND, v_land);
|
||||
MMval_field(form, NF);
|
||||
MMvarc(form, land, (char *) 0);
|
||||
form = MMalloc(&frame, 7, FIELD, LAND, v_land);
|
||||
MMin_field(form, NF, NF, 0);
|
||||
MMvarc(form, land, (char *) 0);
|
||||
|
||||
form = MMalloc(&frame, 24, 2, 4, (char *) 0);
|
||||
MMout_field(form, "SATZ");
|
||||
|
||||
form = MMalloc(&frame, 24, 13, 10, (char *) 0);
|
||||
MMmen_field(form, f_retrieve, NF, " ANZEIGEN ");
|
||||
|
||||
form = MMalloc(&frame, 24, 28, 10, (char *) 0);
|
||||
MMmen_field(form, f_append, NF, " ANFUEGEN ");
|
||||
|
||||
form = MMalloc(&frame, 24, 43, 10, (char *) 0);
|
||||
MMmen_field(form, f_delete, NF, " LOESCHEN ");
|
||||
|
||||
form = MMalloc(&frame, 24, 58, 10, (char *) 0);
|
||||
MMmen_field(form, f_replace, NF, " ERSETZEN ");
|
||||
|
||||
## open erfind
|
||||
|
||||
MMform(frame);
|
||||
|
||||
## close erfind
|
||||
|
||||
MMfree(&frame);
|
||||
MMexit_form(1);
|
||||
return (0);
|
||||
}
|
||||
|
|
@ -0,0 +1,317 @@
|
|||
## shared dt
|
||||
|
||||
# define NF ((int (*)()) 0) /* null function */
|
||||
# define FIELD 22
|
||||
|
||||
int key = 1;
|
||||
char *text = " KEIN AKTUELLER SATZ VORHANDEN ";
|
||||
|
||||
/* vars of relation personal */
|
||||
# define NUM 4
|
||||
## i2 num;
|
||||
|
||||
# define NAME 20
|
||||
## char name[21];
|
||||
char v_name[NAME + 1];
|
||||
|
||||
# define GEHALT 4
|
||||
## i2 gehalt;
|
||||
char v_gehalt[GEHALT + 1];
|
||||
|
||||
# define LEITER 4
|
||||
## i2 leiter;
|
||||
char v_leiter[LEITER + 1];
|
||||
|
||||
# define GEBDAT 4
|
||||
## i2 gebdat;
|
||||
char v_gebdat[GEBDAT + 1];
|
||||
|
||||
# define EINSTDAT 4
|
||||
## i2 einstdat;
|
||||
char v_einstdat[EINSTDAT + 1];
|
||||
|
||||
|
||||
f_init(frame)
|
||||
register char *frame;
|
||||
{
|
||||
name[0] = 0;
|
||||
gehalt = 0;
|
||||
leiter = 0;
|
||||
gebdat = 0;
|
||||
einstdat = 0;
|
||||
MMclr_value(frame);
|
||||
MMvalue(frame);
|
||||
}
|
||||
|
||||
f_num(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (num <= 0 || num > 9999)
|
||||
{
|
||||
MMerror(" NUM FALSCH ");
|
||||
return (0);
|
||||
}
|
||||
return (1);
|
||||
}
|
||||
|
||||
f_gehalt(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (gehalt <= 0 || gehalt > 9999)
|
||||
{
|
||||
MMerror(" GEHALT FALSCH ");
|
||||
return (0);
|
||||
}
|
||||
return (1);
|
||||
}
|
||||
|
||||
f_leiter(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (leiter < 0 || leiter > 9999)
|
||||
{
|
||||
MMerror(" LEITER FALSCH ");
|
||||
return (0);
|
||||
}
|
||||
return (1);
|
||||
}
|
||||
|
||||
f_gebdat(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (gebdat <= 0 || gebdat > 9999)
|
||||
{
|
||||
MMerror(" GEBDAT FALSCH ");
|
||||
return (0);
|
||||
}
|
||||
return (1);
|
||||
}
|
||||
|
||||
f_einstdat(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (einstdat <= 0 || einstdat > 9999)
|
||||
{
|
||||
MMerror(" EINSTDAT FALSCH ");
|
||||
return (0);
|
||||
}
|
||||
return (1);
|
||||
}
|
||||
|
||||
f_retrieve(frame)
|
||||
register char *frame;
|
||||
{
|
||||
register int cnt;
|
||||
|
||||
key++;
|
||||
f_init(frame);
|
||||
cnt = 0;
|
||||
|
||||
## use (shared personal)
|
||||
## retrieve personal $num == num
|
||||
## (
|
||||
## name = $name,
|
||||
## gehalt = $gehalt,
|
||||
## leiter = $leiter,
|
||||
## gebdat = $gebdat,
|
||||
## einstdat = $einstdat
|
||||
## )
|
||||
## {
|
||||
cnt++;
|
||||
key = 0;
|
||||
MMset_value(frame, name, 0);
|
||||
MMset_value(frame, &gehalt, 0);
|
||||
MMset_value(frame, &leiter, 0);
|
||||
MMset_value(frame, &gebdat, 0);
|
||||
MMset_value(frame, &einstdat, 0);
|
||||
MMvalue(frame);
|
||||
## endretrieve
|
||||
## }
|
||||
## commit
|
||||
|
||||
if (!cnt)
|
||||
MMerror(" SATZ NICHT VORHANDEN ");
|
||||
}
|
||||
|
||||
f_append(frame)
|
||||
register char *frame;
|
||||
{
|
||||
register int cnt;
|
||||
|
||||
## use (exclusive personal)
|
||||
cnt = 0;
|
||||
## retrieve personal $num == num
|
||||
## {
|
||||
cnt++;
|
||||
## endretrieve
|
||||
## }
|
||||
if (!cnt)
|
||||
{
|
||||
key = 0;
|
||||
## append personal
|
||||
## (
|
||||
## $num = num,
|
||||
## $name = name,
|
||||
## $gehalt = gehalt,
|
||||
## $leiter = leiter,
|
||||
## $gebdat = gebdat,
|
||||
## $einstdat = einstdat
|
||||
## )
|
||||
## commit
|
||||
}
|
||||
|
||||
MMerror(cnt? " SATZ VORHANDEN ": " SATZ ANGEFUEGT ");
|
||||
}
|
||||
|
||||
f_delete(frame)
|
||||
register char *frame;
|
||||
{
|
||||
register int cnt;
|
||||
|
||||
if (key)
|
||||
{
|
||||
MMerror(text);
|
||||
return;
|
||||
}
|
||||
|
||||
## use (exclusive personal)
|
||||
## retrieve personal $num == num
|
||||
## {
|
||||
cnt++;
|
||||
## delete
|
||||
## endretrieve
|
||||
## }
|
||||
## commit
|
||||
|
||||
MMerror(cnt? " SATZ GELOESCHT ": " SATZ NICHT GELOESCHT ");
|
||||
key++;
|
||||
f_init(frame);
|
||||
}
|
||||
|
||||
f_replace(frame)
|
||||
register char *frame;
|
||||
{
|
||||
register int cnt;
|
||||
if (key)
|
||||
{
|
||||
MMerror(text);
|
||||
return;
|
||||
}
|
||||
|
||||
## use (exclusive personal)
|
||||
cnt = 0;
|
||||
## retrieve personal $num == num
|
||||
## {
|
||||
cnt++;
|
||||
## replace
|
||||
## (
|
||||
## $name = name,
|
||||
## $gehalt = gehalt,
|
||||
## $leiter = leiter,
|
||||
## $gebdat = gebdat,
|
||||
## $einstdat = einstdat
|
||||
## )
|
||||
## endretrieve
|
||||
## }
|
||||
## commit
|
||||
|
||||
MMerror(cnt? " SATZ ERSETZT ": " SATZ NICHT ERSETZT ");
|
||||
}
|
||||
|
||||
amx(argc, argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
{
|
||||
register char *form;
|
||||
char *frame;
|
||||
extern char *MMalloc();
|
||||
|
||||
|
||||
MMinit_form(1);
|
||||
|
||||
frame = (char *) 0;
|
||||
form = MMalloc(&frame, 2, 1, 71, (char *) 0);
|
||||
MMout_field(form, "------------------------------------------------------- P E R S O N A L");
|
||||
|
||||
form = MMalloc(&frame, 3, 1, 3, (char *) 0);
|
||||
MMout_field(form, "NUM");
|
||||
|
||||
form = MMalloc(&frame, 3, FIELD, NUM, (char *) 0);
|
||||
MMin_field(form, f_num, NF, 0);
|
||||
MMvari2(form, &num, "%d");
|
||||
|
||||
form = MMalloc(&frame, 5, 1, 4, (char *) 0);
|
||||
MMout_field(form, "NAME");
|
||||
|
||||
form = MMalloc(&frame, 5, FIELD, NAME, v_name);
|
||||
MMval_field(form, NF);
|
||||
MMvarc(form, name, (char *) 0);
|
||||
form = MMalloc(&frame, 5, FIELD, NAME, v_name);
|
||||
MMin_field(form, NF, NF, 0);
|
||||
MMvarc(form, name, (char *) 0);
|
||||
|
||||
form = MMalloc(&frame, 6, 1, 6, (char *) 0);
|
||||
MMout_field(form, "GEHALT");
|
||||
|
||||
form = MMalloc(&frame, 6, FIELD, GEHALT, v_gehalt);
|
||||
MMval_field(form, NF);
|
||||
MMvari2(form, &gehalt, "%d");
|
||||
form = MMalloc(&frame, 6, FIELD, GEHALT, v_gehalt);
|
||||
MMin_field(form, f_gehalt, NF, 0);
|
||||
MMvari2(form, &gehalt, "%d");
|
||||
|
||||
form = MMalloc(&frame, 7, 1, 6, (char *) 0);
|
||||
MMout_field(form, "LEITER");
|
||||
|
||||
form = MMalloc(&frame, 7, FIELD, LEITER, v_leiter);
|
||||
MMval_field(form, NF);
|
||||
MMvari2(form, &leiter, "%d");
|
||||
form = MMalloc(&frame, 7, FIELD, LEITER, v_leiter);
|
||||
MMin_field(form, f_leiter, NF, 0);
|
||||
MMvari2(form, &leiter, "%d");
|
||||
|
||||
form = MMalloc(&frame, 8, 1, 6, (char *) 0);
|
||||
MMout_field(form, "GEBDAT");
|
||||
|
||||
form = MMalloc(&frame, 8, FIELD, GEBDAT, v_gebdat);
|
||||
MMval_field(form, NF);
|
||||
MMvari2(form, &gebdat, "%d");
|
||||
form = MMalloc(&frame, 8, FIELD, GEBDAT, v_gebdat);
|
||||
MMin_field(form, f_gebdat, NF, 0);
|
||||
MMvari2(form, &gebdat, "%d");
|
||||
|
||||
form = MMalloc(&frame, 9, 1, 3, (char *) 0);
|
||||
MMout_field(form, "EINSTDAT");
|
||||
|
||||
form = MMalloc(&frame, 9, FIELD, EINSTDAT, v_einstdat);
|
||||
MMval_field(form, NF);
|
||||
MMvari2(form, &einstdat, "%d");
|
||||
form = MMalloc(&frame, 9, FIELD, EINSTDAT, v_einstdat);
|
||||
MMin_field(form, f_einstdat, NF, 0);
|
||||
MMvari2(form, &einstdat, "%d");
|
||||
|
||||
form = MMalloc(&frame, 24, 2, 4, (char *) 0);
|
||||
MMout_field(form, "SATZ");
|
||||
|
||||
form = MMalloc(&frame, 24, 13, 10, (char *) 0);
|
||||
MMmen_field(form, f_retrieve, NF, " ANZEIGEN ");
|
||||
|
||||
form = MMalloc(&frame, 24, 28, 10, (char *) 0);
|
||||
MMmen_field(form, f_append, NF, " ANFUEGEN ");
|
||||
|
||||
form = MMalloc(&frame, 24, 43, 10, (char *) 0);
|
||||
MMmen_field(form, f_delete, NF, " LOESCHEN ");
|
||||
|
||||
form = MMalloc(&frame, 24, 58, 10, (char *) 0);
|
||||
MMmen_field(form, f_replace, NF, " ERSETZEN ");
|
||||
|
||||
## open personal
|
||||
|
||||
MMform(frame);
|
||||
|
||||
## close personal
|
||||
|
||||
MMfree(&frame);
|
||||
MMexit_form(1);
|
||||
return (0);
|
||||
}
|
||||
Loading…
Reference in New Issue