/*******************************************************************
* ARexx Script: Locate_CloneEntry.rexx                             *
* ---------------------------------------------------------------- *
* Examine the current active entry and make a duplicate copy of it.*
*******************************************************************/

options results

/* Make sure there is an active entry */
getactive
active = result

if (active < 1) then
	exit(5)

/* get all the data */
getfield 1
LastName = result

getfield 2
FirstName = result

getfield 3
Street = result

getfield 4
Suburb = result

getfield 5
PostCode = result

getfield 6
Phone1 = result

getfield 7
Phone2 = result

getfield 8
Phone3 = result

getfield 9
Phone4 = result

getfield 10
Notes = result

/* deactivate list for new entry */
'active noactive'

/* insert new entry */
'putfield 1 value='LastName
'putfield 2 value='FirstName
'putfield 3 value='Street
'putfield 4 value='Suburb
'putfield 5 value='PostCode

phoneactive 1
'putfield 6 value='Phone1
phoneactive 2
'putfield 6 value='Phone2
phoneactive 3
'putfield 6 value='Phone3
phoneactive 4
'putfield 6 value='Phone4

phoneactive 1

'putfield 7 'Notes

/* We should have a duplicate entry now */