Begin
     select EMP_COUNT, COM_PHONE, COM_CANCEL_DATE, COM_ADDRESS, COM_EMAIL, COM_POBOX, DATE_CREATED, 
     COM_STATUS , COM_NATIONALITY, COM_TYPE, COM_NAME, OFF_OFFICE_CODE,EXPIRY_DATE,ISSUE_DATE,TRA_TRANSACTION_NO,
     PERMIT_NO 
     
     Into :MOL_COMPANIESES.EMP_COUNT, :MOL_COMPANIESES.COM_PHONE, :MOL_COMPANIESES.COM_CANCEL_DATE,
     :MOL_COMPANIESES.COM_ADDRESS,
     :MOL_COMPANIESES.COM_EMAIL, :MOL_COMPANIESES.COM_POBOX, :MOL_COMPANIESES.DATE_CREATED,
     :MOL_COMPANIESES.COM_STATUS, :MOL_COMPANIESES.COM_NATIONALITY, :MOL_COMPANIESES.COM_TYPE,
      :MOL_COMPANIESES.COM_NAME, :MOL_COMPANIESES.OFF_OFFICE_CODE,:MOL_PERMISSIONSES.EXPIRY_DATE,
      :MOL_PERMISSIONSES.ISSUE_DATE,:MOL_PERMISSIONSES.TRA_TRANSACTION_NO,
     :MOL_PERMISSIONSES.PERMIT_NO 
      
from MOL_COMPANIESES,MOL_PERMISSIONSES
where MOL_COMPANIESES.COM_CODE = :MOL_COMPANIESES.COM_CODE and 
MOL_PERMISSIONSES.PERMIT_NO = :MOL_PERMISSIONSES.PERMIT_NO and 
MOL_COMPANIESES.PER_PERMIT_NO =  MOL_PERMISSIONSES.PERMIT_NO;

End;