Business Phone I-Desc

This Uni-Basic subroutine returns the 'business' phone number for the input ID when the address type is defined as 'home' but the phone number given is listed as 'business'. You will need to supply the ID (the PERSON file is used). Although short, it shows a good example of the CASE statement. This program was developed for Benefactor Release 4.2. Finally, it is used in conjunction with an I-Descriptor, which is included as part of the source code.