Proc SubParts()
ClearAll
Clear
@11,10??"Please enter Part Number "
Accept "A15"
Picture "*!"
To Part
Message " Searching for Part #: ",Part
EMPTY "Sub_Tmp"
Query

 Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
     | Check       | Check ..~Part..      | Check  | Check  | Check  | Check  | 

 Sub | Sub 5  | 
     | Check  | 

Endquery


Do_It!

If Not (IsEmpty("Answer"))
      Then ADD "Answer" "sub_tmp" Empty "Answer"
   EndIf
ClearImage
Message "Pass #2"

Query

 Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
     | Check       | Check       | Check ..~Part.. | Check  | Check  | Check  | 

 Sub | Sub 5  | 
     | Check  | 

Endquery


Do_It!

If Not (IsEmpty("Answer"))
      Then ADD "Answer" "sub_tmp" Empty "Answer"
   EndIf
ClearImage

Message "Pass #3"
Query

 Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
     | Check       | Check       | Check  | Check ..~Part.. | Check  | Check  | 

 Sub | Sub 5  | 
     | Check  | 

Endquery


Do_It!

If Not (IsEmpty("Answer"))
      Then ADD "Answer" "sub_tmp" Empty "Answer"
   EndIf
ClearImage

Message "Pass #4"
Query

 Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
     | Check       | Check       | Check  | Check  | Check ..~Part..  | Check  | 

 Sub | Sub 5  | 
     | Check  | 

Endquery


Do_It!

If Not (IsEmpty("Answer"))
      Then ADD "Answer" "sub_tmp" Empty "Answer"
   EndIf
ClearImage
Message "Pass #5"
Query

 Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
     | Check       | Check       | Check  | Check  | Check  | Check ..~Part.. | 

 Sub | Sub 5  | 
     | Check  | 

Endquery


Do_It!

If Not (IsEmpty("Answer"))
      Then ADD "Answer" "sub_tmp" Empty "Answer"
   EndIf
ClearImage
Message "Final Pass..."
Query

 Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
     | Check       | Check       | Check  | Check  | Check  | Check  | 

 Sub | Sub 5  | 
     | Check ..~Part.. | 

Endquery
Do_It!
If Not (IsEmpty("Answer"))
      Then ADD "Answer" "sub_tmp" Empty "Answer"
   EndIf

If (IsEmpty("Sub_Tmp"))
   Then Message "No Records Exist...." Sleep 2000 Main_Men()
   Else View "Sub_Tmp" PickForm 1
       
       Wait Table
          Message "Press F2 or ESC when done viewing.."
          Until "F2","ESC"
EndIf
ClearImage
Clear
Empty "Sub_Tmp"
Main_Men()
EndProc
;**************************************************************************
