file layout

<*
Local File &FILE1;
Local Rowset &RS, &RS1;
Local Record &REC1;
Local boolean &Head;
Local string &HeaderRow;
&FILE1 = GetFile(GetURL(URL.FGP_AM) | "/" | ZIN_ABSENCE_AET.FILE_NAME.Value, "r", "a", %FilePath_Absolute);
&FILE1.SetFileLayout(FileLayout.ZIN_COMP_FL);
&RS = CreateRowset(Record.ZIN_COMP_TAO);
&RS1 = CreateRowset(Record.ZIN_COMP_WRK);
&REC1 = CreateRecord(Record.ZIN_COMP_TAO);
&Head = &FILE1.ReadLine(&HeaderRow);
&RS1 = &FILE1.ReadRowset();
&Count = 0;
While (&RS1 <> Null)
   rem &REC1 = &RS1.GetRow(1).GetRecord(Record.ZIN_COMP_TAO);
   &RS1.CopyTo(&RS, Record.ZIN_COMP_WRK, Record.ZIN_COMP_TAO);
   &REC1 = &RS.GetRow(1).GetRecord(Record.ZIN_COMP_TAO);
   &REC1.PROCESS_INSTANCE.Value = ZIN_ABSENCE_AET.PROCESS_INSTANCE.Value; /*added process instance */
   &REC1.PROCESS_FLAG.Value = "N";
   &REC1.COMMENTS.Value = " ";
   &REC1.Insert();
   &RS1 = &FILE1.ReadRowset();
  
End-While;
*>