Subroutine Example

In the subroutine Start_Key, a form name is passed into the Dialog_Box function.

Subroutine Start_Key(Form_Name)                                                 
Begin Condition                                                                 
Pre:                                                                            
Post:                                                                           
End Condition                                                                   
Declare Function Dialog_Box                                                     
Form_Name = 'Main Topic'                                                        
retval = Dialog_Box('CATEGORY_LISTING', @Window, Form_Name)                     
Return