Page History

/* Verifies the structure of the ORDERS table (including the bang file and dictionary file) 
and the data portion of the INVOICES table,
 in the volume DATAVOL.  
If errors are found in ORDERS, testing continues on DATA.INVOICES.  
SYSLHVERIFY and SYSLHGROUP are not cleared.
Detailed group information is saved in the SYSLHGROUP table. */
 
declare subroutine verify_lh
declare function get_status
TableList = "ORDERS":@FM:"DATA.INVOICES"
Verify_LH("DATAVOL", TableList, 1, 1, 1)
If Get_Status(ErrCodes) Then
  GoSub ErrorHandling
End
return 0
ErrorHandling:
  * process errors here
return