Sample Program to Create Tagged PDF

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