Posted by 
Read an History file with a Live key
Use the program EB.READ.HISTORY.REC to read the history file. You take the live key, and the program will return the last History record as well as fills the Record from History.
Example :
CALL EB.READ.HISTORY.REC(FN.EFG.FUTURES$HIS, RECORD.ID, R.EFG.FUTURES$HIS, '')
Note: after this call, RECORD.ID will contain the last History Key (XXXXXXXXX;YY)