Arts2 {

StringCreate(s)

StringSet(iy_unit, "  Global value of iy_unit")

# Create a custom ArrayOfAgenda
ArrayOfAgendaCreate(myagendaarray)

# Test appending to the array
ArrayOfAgendaAppend(myagendaarray)
{
    StringSet(s, "  First agenda in array")
    Print(s, 0)
    Print(iy_unit, 0)
    Print(agenda_array_index, 0)
}

ArrayOfAgendaAppend(myagendaarray)
{
    StringSet(s, "  Second agenda in array")
    Print(s, 0)
    Print(iy_unit, 0)
    Print(agenda_array_index, 0)
}


# Create new agenda
AgendaCreate(myagenda)
AgendaSet(myagenda)
{
    StringSet(s, "  Third agenda in array")
    Print(s, 0)
    Print(iy_unit, 0)
    Print(agenda_array_index, 0)
}

# Append new agenda to custom array
Append(myagendaarray, myagenda)

# Copy agenda array to WSV
Copy(test_agenda_array, myagendaarray)


# Append another agenda directly to WSV
AgendaSet(myagenda)
{
    StringSet(s, "  Forth agenda in array")
    Print(s, 0)
    Print(iy_unit, 0)
    Print(agenda_array_index, 0)
}

Append(test_agenda_array, myagenda)


# Execute agenda array manually
IndexSet(agenda_array_index, 0)
ArrayOfAgendaExecute(agendas=test_agenda_array)
IndexSet(agenda_array_index, 1)
ArrayOfAgendaExecute(agendas=test_agenda_array)
IndexSet(agenda_array_index, 2)
ArrayOfAgendaExecute(agendas=test_agenda_array)
IndexSet(agenda_array_index, 3)
ArrayOfAgendaExecute(agendas=test_agenda_array)

# Execute test_agenda_array through WSM
TestArrayOfAgenda(index=0)
TestArrayOfAgenda(index=1)
TestArrayOfAgenda(index=2)
TestArrayOfAgenda(index=3)

}