Res : Array : TaskResult : [Request] = <> ..
Info : Array : Integer : [Request] = <> ..

Request : Array : TaskRequest = <
                                  < Rq : Query_string.1, Port_name : 'Task_1' >
                                  < Rq : Query_string.2, Port_name : 'Task_2' >
                                  < Rq : Query_string.3, Port_name : 'Task_3' >
                                >

Do & Task >Res.i< Request.i
Where i = 1 to Request._

Do while !AllValues( Res )
 Read Info.1 Request.1.Port_name [ !Res.1 ]
 Read Info.2 Request.2.Port_name [ !Res.2 ]
 Read Info.3 Request.3.Port_name [ !Res.3 ]

 Say "\v\v\v" 'T1: ' Info.1 '%',
              'T2: ' Info.2 '%',
              'T3: ' Info.3 '%'
;