tengo algo similar pero horizontal, usó una variable tipo text con el atributo Allow xHTML y luego por código llenó la variable, ejemplo:
CLEAR(Loc:Pg)
p_web.ssv('Loc:Pg','')
CASE Bil3:BillofLadingStatus
OF 'P'
Loc:Pg = (p_web.AsciiToUTF('<<ol class="progtrckr if-large" data-progtrckr-steps="5"><13,10>'&|
' <<li class="progtrckr-done">IN-TRANSIT TO US TERMINAL<</li><13,10>'&|
' <<li class="progtrckr-todo">RECEIVED AT US TERMINAL<</li><13,10>'&|
' <<li class="progtrckr-todo">CONTAINER UNLOADED<</li><13,10>'&|
' <<li class="progtrckr-todo">IN-TRANSIT<</li><13,10>'&|
' <<li class="progtrckr-todo">DELIVERED<</li><13,10>'&|
'<</ol><13,10>'))
OF 'W'
Loc:Pg = (p_web.AsciiToUTF('<<ol class="progtrckr if-large" data-progtrckr-steps="5"><13,10>'&|
' <<li class="progtrckr-done">IN-TRANSIT TO US TERMINAL<</li><13,10>'&|
' <<li class="progtrckr-done">RECEIVED AT US TERMINAL<</li><13,10>'&|
' <<li class="progtrckr-todo">CONTAINER UNLOADED<</li><13,10>'&|
' <<li class="progtrckr-todo">IN-TRANSIT<</li><13,10>'&|
' <<li class="progtrckr-todo">DELIVERED<</li><13,10>'&|
'<</ol><13,10>'))
END