If Pos('\TOOLKT20',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then tooldrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\TOOLKT20',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
If Pos('\IBMC',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then csetdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\IBMC',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
If Pos('\IBMWF',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then workdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\IBMWF',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
If tooldrive = '' & csetdrive = '' & workdrive = '' Then Do
Say "No Toolkit, WorkFrame/2, or C Set/2 found, terminating."
Call Endit
End
iconfile = 'GROUP.ICO'
iconparm = ''
If Stream(iconfile,'C','QUERY EXISTS') = '' Then Do
Call SysCreateObject 'WPFolder','PM Development Tools','<TOOLKIT_FOLDER>','OBJECTID=<TOOLKIT_TOOLS>;ICONFILE='||tooldrive||'\TOOLKT20\ICON\FXICON.ICO','R'