ING_DB
This commit is contained in:
Oliver Lehmann
parent
b4fa1794df
commit
aa78a39513
|
|
@ -0,0 +1,41 @@
|
|||
char *m_view;
|
||||
char *m_korr;
|
||||
|
||||
f_view(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (MMshell(m_view, 0, 0, "./view"))
|
||||
MMerror(" view nicht ausfuehrbar ");
|
||||
}
|
||||
|
||||
f_korr(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (MMshell(m_korr, 0, 0, "./korr"))
|
||||
MMerror(" korr nicht ausfuehrbar ");
|
||||
}
|
||||
|
||||
main()
|
||||
{
|
||||
register char *form;
|
||||
char *frame;
|
||||
extern char *MMalloc();
|
||||
|
||||
MMinit_form(1);
|
||||
|
||||
frame = (char *) 0;
|
||||
form = MMalloc(&frame, 4, 5, 71, (char *) 0);
|
||||
MMout_field(form, "----------------------------------------------------- D E M O F O R M");
|
||||
|
||||
m_view = form = MMalloc(&frame, 8, 5, 21, (char *) 0);
|
||||
MMmen_field(form, f_view, (int (*)()) 0, " ANSICHT DER DB DT");
|
||||
|
||||
m_korr = form = MMalloc(&frame, 10, 5, 21, (char *) 0);
|
||||
MMmen_field(form, f_korr, (int (*)()) 0, " KORREKTUR DER DB DT");
|
||||
|
||||
MMform(frame);
|
||||
|
||||
MMfree(&frame);
|
||||
MMexit_form(1);
|
||||
return (0);
|
||||
}
|
||||
|
|
@ -0,0 +1,63 @@
|
|||
char *m_erfind;
|
||||
char *m_lieferung;
|
||||
char *m_personal;
|
||||
char *m_teile;
|
||||
|
||||
f_erfind(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (MMshell(m_erfind, 0, 0, "./k_erfind"))
|
||||
MMerror(" k_erfind nicht ausfuehrbar ");
|
||||
}
|
||||
|
||||
f_lieferung(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (MMshell(m_lieferung, 0, 0, "./k_lieferung"))
|
||||
MMerror(" k_lieferung nicht ausfuehrbar ");
|
||||
}
|
||||
|
||||
f_personal(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (MMshell(m_personal, 0, 0, "./k_personal"))
|
||||
MMerror(" k_personal nicht ausfuehrbar ");
|
||||
}
|
||||
|
||||
f_teile(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (MMshell(m_teile, 0, 0, "./k_teile"))
|
||||
MMerror(" k_teile nicht ausfuehrbar ");
|
||||
}
|
||||
|
||||
main()
|
||||
{
|
||||
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, "------------------------------------------------- K O R R E K T U R E N");
|
||||
|
||||
m_erfind = form = MMalloc(&frame, 8, 5, 11, (char *) 0);
|
||||
MMmen_field(form, f_erfind, (int (*)()) 0, " ERFIND");
|
||||
|
||||
m_lieferung = form = MMalloc(&frame, 10, 5, 11, (char *) 0);
|
||||
MMmen_field(form, f_lieferung, (int (*)()) 0, " LIEFERUNG");
|
||||
|
||||
m_personal = form = MMalloc(&frame, 12, 5, 11, (char *) 0);
|
||||
MMmen_field(form, f_personal, (int (*)()) 0, " PERSONAL");
|
||||
|
||||
m_teile = form = MMalloc(&frame, 14, 5, 11, (char *) 0);
|
||||
MMmen_field(form, f_teile, (int (*)()) 0, " TEILE");
|
||||
|
||||
MMform(frame);
|
||||
|
||||
MMfree(&frame);
|
||||
MMexit_form(1);
|
||||
return (0);
|
||||
}
|
||||
|
|
@ -0,0 +1,165 @@
|
|||
## shared dt
|
||||
|
||||
# define NF ((int (*)()) 0) /* null function */
|
||||
# define N 16
|
||||
|
||||
# define SATZ 4
|
||||
int satz;
|
||||
|
||||
/* vars of relation personal */
|
||||
# define NUM 4
|
||||
## i2 num;
|
||||
|
||||
# define NAME 20
|
||||
## char name[21];
|
||||
|
||||
# define GEHALT 6
|
||||
## i2 gehalt;
|
||||
|
||||
# define LEITER 6
|
||||
## i2 leiter;
|
||||
|
||||
# define GEBDAT 6
|
||||
## i2 gebdat;
|
||||
|
||||
# define EINSTDAT 8
|
||||
## i2 einstdat;
|
||||
|
||||
|
||||
f_retrieve(frame)
|
||||
register char *frame;
|
||||
{
|
||||
register int cnt;
|
||||
|
||||
MMerror(" RECHERCHE LAEUFT ");
|
||||
## use (shared personal)
|
||||
satz = cnt = 0;
|
||||
## retrieve personal
|
||||
## (
|
||||
## num = $num,
|
||||
## name = $name,
|
||||
## gehalt = $gehalt,
|
||||
## leiter = $leiter,
|
||||
## gebdat = $gebdat,
|
||||
## einstdat = $einstdat
|
||||
## )
|
||||
## {
|
||||
if (cnt == N)
|
||||
{
|
||||
if (MMnext())
|
||||
## endretrieve
|
||||
cnt = 0;
|
||||
}
|
||||
satz++;
|
||||
MMset_value(frame, &satz, cnt);
|
||||
MMset_value(frame, &num, cnt);
|
||||
MMset_value(frame, name, cnt);
|
||||
MMset_value(frame, &gehalt, cnt);
|
||||
MMset_value(frame, &leiter, cnt);
|
||||
MMset_value(frame, &gebdat, cnt);
|
||||
MMset_value(frame, &einstdat, cnt);
|
||||
if (++cnt == N)
|
||||
{
|
||||
MMvalue(frame);
|
||||
MMclr_value(frame);
|
||||
}
|
||||
## }
|
||||
## commit
|
||||
|
||||
MMerror(" RECHERCHE BEENDET ");
|
||||
if (cnt < N)
|
||||
{
|
||||
MMvalue(frame);
|
||||
MMclr_value(frame);
|
||||
}
|
||||
}
|
||||
|
||||
amx(argc, argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
{
|
||||
register int i;
|
||||
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, 4, 1, 4, (char *) 0);
|
||||
MMout_field(form, "SATZ");
|
||||
|
||||
form = MMalloc(&frame, 4, 8, 3, (char *) 0);
|
||||
MMout_field(form, "NUM");
|
||||
|
||||
form = MMalloc(&frame, 4, 29, 4, (char *) 0);
|
||||
MMout_field(form, "NAME");
|
||||
|
||||
form = MMalloc(&frame, 4, 35, 6, (char *) 0);
|
||||
MMout_field(form, "GEHALT");
|
||||
|
||||
form = MMalloc(&frame, 4, 43, 6, (char *) 0);
|
||||
MMout_field(form, "LEITER");
|
||||
|
||||
form = MMalloc(&frame, 4, 51, 6, (char *) 0);
|
||||
MMout_field(form, "GEBDAT");
|
||||
|
||||
form = MMalloc(&frame, 4, 59, 8, (char *) 0);
|
||||
MMout_field(form, "EINSTDAT");
|
||||
|
||||
form = MMalloc(&frame, 5, 7, 60, (char *) 0);
|
||||
MMout_field(form, "------------------------------------------------------------");
|
||||
|
||||
for (i = 6; i < 6 + N; i++)
|
||||
{
|
||||
form = MMalloc(&frame, i, 1, SATZ, (char *) 0);
|
||||
MMval_field(form, NF);
|
||||
MMvari2(form, &satz, "%4d");
|
||||
|
||||
form = MMalloc(&frame, i, 7, NUM, (char *) 0);
|
||||
MMval_field(form, NF);
|
||||
MMvari2(form, &num, "%4d");
|
||||
|
||||
form = MMalloc(&frame, i, 13, NAME, (char *) 0);
|
||||
MMval_field(form, NF);
|
||||
MMvarc(form, name, "%20s");
|
||||
|
||||
form = MMalloc(&frame, i, 35, GEHALT, (char *) 0);
|
||||
MMval_field(form, NF);
|
||||
MMvari2(form, &gehalt, "%6d");
|
||||
|
||||
form = MMalloc(&frame, i, 43, LEITER, (char *) 0);
|
||||
MMval_field(form, NF);
|
||||
MMvari2(form, &leiter, "%6d");
|
||||
|
||||
form = MMalloc(&frame, i, 51, GEBDAT, (char *) 0);
|
||||
MMval_field(form, NF);
|
||||
MMvari2(form, &gebdat, "%6d");
|
||||
|
||||
form = MMalloc(&frame, i, 59, EINSTDAT, (char *) 0);
|
||||
MMval_field(form, NF);
|
||||
MMvari2(form, &einstdat, "%8d");
|
||||
}
|
||||
|
||||
form = MMalloc(&frame, i, 7, 60, (char *) 0);
|
||||
MMout_field(form, "------------------------------------------------------------");
|
||||
|
||||
form = MMalloc(&frame, 24, 2, 6, (char *) 0);
|
||||
MMout_field(form, "SAETZE");
|
||||
|
||||
form = MMalloc(&frame, 24, 13, 10, (char *) 0);
|
||||
MMmen_field(form, f_retrieve, NF, " ANZEIGEN ");
|
||||
|
||||
## open personal
|
||||
|
||||
MMform(frame);
|
||||
|
||||
## close personal
|
||||
|
||||
MMfree(&frame);
|
||||
MMexit_form(1);
|
||||
return (0);
|
||||
}
|
||||
|
|
@ -0,0 +1,63 @@
|
|||
char *m_erfind;
|
||||
char *m_lieferung;
|
||||
char *m_personal;
|
||||
char *m_teile;
|
||||
|
||||
f_erfind(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (MMshell(m_erfind, 0, 0, "./v_erfind"))
|
||||
MMerror(" v_erfind nicht ausfuehrbar ");
|
||||
}
|
||||
|
||||
f_lieferung(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (MMshell(m_lieferung, 0, 0, "./v_lieferung"))
|
||||
MMerror(" v_lieferung nicht ausfuehrbar ");
|
||||
}
|
||||
|
||||
f_personal(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (MMshell(m_personal, 0, 0, "./v_personal"))
|
||||
MMerror(" v_personal nicht ausfuehrbar ");
|
||||
}
|
||||
|
||||
f_teile(frame)
|
||||
register char *frame;
|
||||
{
|
||||
if (MMshell(m_teile, 0, 0, "./v_teile"))
|
||||
MMerror(" v_teile nicht ausfuehrbar ");
|
||||
}
|
||||
|
||||
main()
|
||||
{
|
||||
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, "----------------------------------------------------- A N S I C H T E N");
|
||||
|
||||
m_erfind = form = MMalloc(&frame, 8, 5, 11, (char *) 0);
|
||||
MMmen_field(form, f_erfind, (int (*)()) 0, " ERFIND");
|
||||
|
||||
m_lieferung = form = MMalloc(&frame, 10, 5, 11, (char *) 0);
|
||||
MMmen_field(form, f_lieferung, (int (*)()) 0, " LIEFERUNG");
|
||||
|
||||
m_personal = form = MMalloc(&frame, 12, 5, 11, (char *) 0);
|
||||
MMmen_field(form, f_personal, (int (*)()) 0, " PERSONAL");
|
||||
|
||||
m_teile = form = MMalloc(&frame, 14, 5, 11, (char *) 0);
|
||||
MMmen_field(form, f_teile, (int (*)()) 0, " TEILE");
|
||||
|
||||
MMform(frame);
|
||||
|
||||
MMfree(&frame);
|
||||
MMexit_form(1);
|
||||
return (0);
|
||||
}
|
||||
Loading…
Reference in New Issue