Dec 222017
 
Source routines from DBMS Magazine.
File DBMS9001.ZIP from The Programmer’s Corner in
Category Files from Magazines
Source routines from DBMS Magazine.
File Name File Size Zip Size Zip Type
APT-L-1.TXT 2324 640 deflated
APT-L-2.TXT 5432 1210 deflated
BACKDOOR.PRG 1878 830 deflated
DBSTRUPO.COM 9913 6130 deflated
DBSTRUPO.DOC 10621 4259 deflated
JAN-90.TXT 1150 402 deflated
PER-L-1.TXT 3918 1181 deflated
PER-L-SA.TXT 2641 741 deflated
PER-L-SB.TXT 290 201 deflated
PER-L-SC.TXT 1598 630 deflated
PER-L-SD.TXT 556 289 deflated
PROCPBLC.PRG 934 460 deflated
PROPOPS.TEM 1357 590 deflated
PROPOPS.TLB 3753 1440 deflated
PROWINDO.TEM 2964 1037 deflated
PROWINDO.TLB 13914 3746 deflated

Download File DBMS9001.ZIP Here

Contents of the APT-L-1.TXT file


*** Listings for AN APT SOLUTION by Kevin Strehlo, p. 28.

/************************************************************************/
/* Procedure: Save_entrplnt.fpl */
/* Written: September 6 1989 by GG */
/* */
/* This procedure will save each modified row in the plant group */
/* provided it has been properly filled in. Changes of a plant name */
/* are handled by passing the "savedvalue" to the stored procedure for */
/* the update of the old name. */
/************************************************************************/

create apt proc Save_entrplnt() as
begin
useform EntrPlants_1
/*----------------------------------------------------------------------*/
/* First make sure that every field in the row has a non NULL value. */
/*----------------------------------------------------------------------*/
foreach rowitem in plant_group
begin
if ((rowitem.plant is NOT NULL) or (rowitem.project is NOT NULL) or
(rowitem.location is NOT NULL)) and
((rowitem.plant is NULL) or (rowitem.project is NULL) or
(rowitem.location is NULL))
begin
print "You have not properly filled 1 or more rows on the form"
return
end
end
/*----------------------------------------------------------------------*/
/* Now do the save, but only save those rows that have been modified. */
/*----------------------------------------------------------------------*/
foreach rowitem in plant_group
begin
if (rowitem.plant:modified) or (rowitem.location:modified) or
(rowitem.project:modified)
begin
submit
sqlbegin
save_plant {sqlexpr(rowitem.plant:value)},
{sqlexpr(rowitem.location:value)},
{sqlexpr(rowitem.project:value)},
{sqlexpr(rowitem.plant:savedvalue)}
sqlend

rowitem.plant:modified = FALSE
rowitem.project:modified = FALSE
rowitem.location:modified = FALSE
end
end
return
end


 December 22, 2017  Add comments

Leave a Reply