Data insert and update record sets in d365fo x++

 class Wre_InsertRecordSet_UpdateRecordSet

{

          static  void    Main(Args   _args)

    {

        Wre_PurchPurchaseTable              insertRecordSetTable;

        PurchTable                          purchTable;

        PurchLine                           purchline;

        InventDim                           inventDim;

          delete_from insertRecordSetTable;

          insert_recordset insertRecordSetTable

                        (

                        PurchId,

                        PurchName,

                        InventLocationId,

                        InventSiteId

                       )

                      select  PurchId,PurchName  from purchTable

                        join    purchLine

                            where   purchline.PurchId      ==  purchTable.PurchId

                        join  InventLocationId,InventSiteId from  inventDim

                            where   inventdim.inventDimId  ==  purchline.InventDimId;

            update_recordset insertRecordSetTable

                         setting InvoiceAccount =   purchTable.InvoiceAccount

                         join  purchTable

            where   purchTable.PurchId  ==   insertRecordSetTable.PurchId;

                Info("Records inserted");

    }

  }