Sample Program to Create Tagged PDF
Specifying Heading
The following program describes tagged content with heading:
begin_tag_heading
print 'SAMPLE HEADING‘ (+2,{C_MenuName})
end_tag_heading
The following program is an example of content tagging with paragraph:
begin_tag_paragraph
print $test_val (+1,1)
print $test_val1 (+1,1)
print $test_val2 (+1,1)
print $test_val3 (+1,1)
print $test_val4 (+1,1)
print $test_val5 (+1,1)
end_tag_paragraph
Consider this sample program:
begin-procedure Report ! Main report processing
uppercase $test
let #counter =#counter + 1
begin_tag_table
begin_table_tr
begin_tag_table_head
print 'TableHeader1' (#counter,{C_MenuName})
end_tag_table_head
begin_tag_table_head
print 'TableHeader2' (#counter,50)
end_tag_table_head
end_table_tr
begin-SELECT
MENUNAME &menuname
begin_table_tr
move &MenuName to $Field
let #counter =#counter + 1
begin_table_td
print 'TESTDATA1' (#counter,{C_MenuName})
end_table_td
begin_table_td
print 'TESTDATA2' (,50)
end_table_td
end_table_tr
FROM PSMENUDEFN
WHERE PSMENUDEFN.MENUNAME like 'A%'
ORDER BY PSMENUDEFN.MENUNAME
end-SELECT
end_tag_table
end-procedure
The following example describes a Tagged List in a PDF repor:.
begin_tag_list
begin_tag_list_index
begin_tag_list_label
print $Header4a_lbl (12, {colII}) Bold
end_tag_list_label
begin_tag_list_lbody
print $Header4a_lbody (12, {colII_LBody}) Bold
end_tag_list_lbody
end_tag_list_index
!Print $Header5a (13,{colII}) Bold
begin_tag_list_index
begin_tag_list_label
Print $Header5a_lbl (13,{colII}) Bold
end_tag_list_label
begin_tag_list_lbody
Print $Header5a_lbody (13,{colII_LBody}) Bold
end_tag_list_lbody
end_tag_list_index
begin_tag_list_index
begin_tag_list_label
Print $Header6a_lbl (14,{colII}) Bold
end_tag_list_label
begin_tag_list_lbody
Print $Header6a_lbody (14,{colII_LBody}) Bold
end_tag_list_lbody
end_tag_list_index
begin_tag_list_index
begin_tag_list_label
Print $Header6b_lbl (15, {colII}) Bold
end_tag_list_label
begin_tag_list_lbody
Print $Header6b_lbody (15, {colII_LBody}) Bold
end_tag_list_lbody
end_tag_list_index
begin_tag_list_index
begin_tag_list_label
Print $Header8a_lbl (16,{colII}) Bold
end_tag_list_label
begin_tag_list_lbody
Print $Header8a_lbody (16,{colII_LBody}) Bold
end_tag_list_lbody
end_tag_list_index
The following is an example for generating alternate text for a figure:
Begin-Program
Let #Image_Length = 6
Let #Image_Height = 8
Print 'Look at this flower: ' (2,2)
begin_tag_alt_text_figure ‘Fig:Rose-flower’
Print-Image Flower (+2,5)
Image-Size=(#Image_Length,#Image_Height)
Let #Curr_Line_Adj = #Image_Height +3
end_tag_alt_text_figure
Print 'Isn''t it lovely?' (+#Curr_Line_Adj,2)
End-Program