>> The battle that is being fought is not for land, or money, or power, but for your eternal soul. Every one
>> of us has an appointment with eternity. The choices we make here in this world determine where we
>> will spend our eternity. >
>
>You used the word "where".....("where we spend our eternity") Kind of got me thinking about where we
> use "where". Continued in Message #1594922


The ultimate SQL SELECT is coming, except that this one won't deal in cyberspace with transient data which can be created, destroyed, re-created, re-destroyed, at will during testing. No, this one acts directly upon us ... and there are no do-overs.

Revelation 14:15-16 - KJV - "15 And another angel came out of the temple, crying with a loud voice to him that sat on the cloud, Thrust in thy sickle, and reap: for the time is come for thee to reap; for the harvest of the earth is ripe.
16 And he that sat on the cloud thrust in his sickle on the earth; and the earth was reaped."

Revelation 14:15-16 - NIV - "15 Then another angel came out of the temple and called in a loud voice to him who was sitting on the cloud, 'Take your sickle and reap, because the time to reap has come, for the harvest of the earth is ripe.'
16 So he who was seated on the cloud swung his sickle over the earth, and the earth was harvested."

Consider:

**********
* This process involves:
* Harvesting of the records in earth (including those records in c_awaiting_salvation (these are
* records which previously existed in earth, but were moved to the other cursor for some reason,
* such as when various processes are run against them from the DEATH() process, where upon entry
* into the DEATH() process, already had their lBornAgain set to .T.).
*****
* Note:  Records without lBornAgain = .T. go into a different cursor after entering the DEATH() process.
*****
    SELECT *, .T. AS lGlorifiedBody, .T. AS lAccessToRiverOfLife, .T. AS lAccessToTreeOfLife, .T. AS lImmortal ;
        FROM earth ;
        WHERE lBornAgain = .T. ;
    UNION ;
    SELECT *, .T. AS lGlorifiedBody, .T. AS lAccessToRiverOfLife, .T. AS lAccessToTreeOfLife, .T. AS lImmortal ;
        FROM c_awaiting_salvation ;    && Note:  No explicit test for lBornAgain as the DEATH() process only populates with lBornAgain = .T. records.
        INTO CURSOR c_saved

**********
* Purge original sources for all records now in c_saved.
*****
    USE IN c_awaiting_salvation

    DELETE ;
        FROM earth ;
        WHERE lBornAgain
    * Note:  Right now, only (NOT lBornAgain) records remain in earth


**********
* Augment the records in c_saved with the previously recorded data from their earthly works.
* Note:  Not every work will be joined, but only those flagged as being based upon God's instructions.
* This will significantly whittle down the number of records included in the tally for many records in c_saved.
*****
    SELECT a.*, SUM(b.nReward) as nReward ;
        FROM c_saved a LEFT OUTER JOIN c:\heaven\recorded_earth_works.dbf b ON a.cName = b.cName ;
        WHERE b.lBasedOnGodsInstructions = .T. ;
        GROUP BY a.cName ;
        INTO CURSOR c_saved_plus_eternal_rewards
    * Right now, we have a cursor which identifies the sum total of the eternal reward for all in c_saved.
    * For some records this can be a large value.  Others will be closer to 0.


**********
* Populate Heaven with those new records
*****
    SELECT heaven
    APPEND FROM c_saved_plus_eternal_rewards
    USE IN c_saved_plus_eternal_rewards
    * Processing of harvested earth records is complete.
    * Note:  There are many more columns in heaven than earth, and these will be populated appropriately.


**********
* Note:  It's hard-coded that various processes from goD must be executed against records in earth before continuing.
*****
* This process iterates until gnGodsAnger reaches 0, which is determined externally, hence the global variable.
* Note:  The pour_out_wrath() method will spawn many sub-functions which each conduct various operations
* against the earth table itself, as well as records in earth.  By the time this process completes, much will have
* been changed in earth, as well as the records within.  Those records which do not make it through the process
* will be moved to the c_awaiting_judgment cursor.
*****
    SELECT earth
    lnIteration = 1
    DO WHILE gnGodsAnger > 0
        goD.pour_out_wrath(lnIteration)    && Will delete various records at each pass based on iteration
        lnIteration = lnIteration + 1
    ENDDO
    * When we get here, very few records exist in earth, as most have been moved into c_awaiting_judgment.
    * The next process will take input from records in both sources:  earth, c_awaiting_judgment.


**********
* The program ends, and control is returned to master.
* The next process, JUDGMENT(), begins.  See REVELATION.PRG for step-by-step instructions.
*****
    RETURN TO MASTER