I have two pick lists first project and second workpackage

when i select the project, and in the second picklist all the work packages which belong to that project will get populated. but i want to add a condition to the workpackage, show only those workpackages with rec_type = 'C'


the following three lines belong to the array where it is putting all the work packages in the second picklist:


***********************************************
acuser(wCnt,1) = workpkg_no
acuser(wCnt,2) = workpkg.wp_descrip
acUser(wCnt,3) = project_no
***********************************************


The following is the entire code:
*************

IF TYPE("acuser") = "U" OR TYPE("acUserProj") = "U"
WAIT WINDOW "Gathering user profile..." NOWAIT
PUBLIC ARRAY acuser(1,2),acuserProj(1,2)


SELECT PROJECT
SET ORDER TO project_no


SELECT workpkg
SET ORDER TO wpkg_no


SELECT userproj
SET ORDER TO USERID
SET RELATION TO project_no INTO PROJECT ADDITIVE
SET RELATION TO workpkg_no INTO workpkg additive


mProject_no = "~!"
STORE 1 TO pCnt,wCnt
DIMENSION acuserProj(pCnt,2),acuser(wCnt,3)
acuserProj(1,1) = ""
acuserProj(1,2) = "(None)"
acuser(1,1) = ""
acuser(1,2) = "(None)"
acuser(1,3) = "none"
IF SEEK(gUser)
SCAN WHILE USERID = gUser
IF project_no <> mProject_no
mProject_no = project_no
pCnt = pCnt + 1
DIMENSION acuserProj(pCnt,2)
acuserProj(pCnt,1) = project_no
acuserProj(pCnt,2) = PROJECT.pjct_name
ENDIF
wCnt = wCnt + 1
DIMENSION acuser(wCnt,3)
acuser(wCnt,1) = workpkg_no
acuser(wCnt,2) = workpkg.wp_descrip
acUser(wCnt,3) = project_no
ENDSCAN
ENDIF

WAIT CLEAR
elapsed = seconds() - start

ENDIF


***********************End**************

Thank you Very much.