// Add a record to a customer data file
ScreenToFile()
IF HAdd(CUSTOMER) = False THEN
	Error("Unable to add the customer")
END

// Create the CUSTOMER data file
HCreation(CUSTOMER)
// Assign the automatic identifier
CUSTOMER.CUSTOMERID = 1001
// Add a record into the Customer file 
// without calculating the automatic identifier
// The first 1000 records are reserved
IF HAdd(CLIENT, hSetIDAuto) = False THEN
	Error("Unable to add the customer")
	// Find out the error details by checking 
	// HErrorDuplicates, HErrorIntegrity
	// HErrorLock
END
// Create alias
HAlias(CUSTOMER, CUSTOMERALIAS)
HCreation(CUSTOMERALIAS)
// Add records into the CUSTOMERALIAS alias 
// (the automatic identifier will be set to 1)
IF HAdd(CUSTOMERALIAS) = False THEN
   	Error("Unable to add the customer")
   	// Find out the error details by checking 
	// HErrorDuplicates, HErrorIntegrity
   	// HErrorLock
END

// Other additions
...

// Copy the customers from CUSTOMERALIAS to CUSTOMER
i is int = 1
HRead(CUSTOMERALIAS, i)
// Copy the record 
// as long as records are still found in the alias
// and as long as the identifier does not exceed 1000
WHILE NOT HOut(CUSTOMERALIAS) AND CUSTOMERALIAS.CustomerID < 1001
   	// Copy the ALIASCLIENT record into the CLIENT data file
   	HCopyRecord(CLIENT, ALIASCLIENT, hCopyAutoID)
   	// Add the record
   	IF HAdd(CLIENT, hSetIDAuto) = False THEN
		Error("Unable to add the customer")
		// Find out the error details by checking 
		// HErrorDuplicates, HErrorIntegrity
		// HErrorLock
	END
   	// Next record of the alias
   	i++
   	HRead(CUSTOMERALIAS, i)
END