/* Sélection des composants du type sélectionné ou spécifié
   © R.Florac, Chez Corbin, 19 mars 1998, v1.00 */

options results     /* indispensable pour récupérer le résultat des macros */

signal on error     /* pour l'interception des erreurs */
signal on syntax

'FIRSTSEL'; objet = result
if objet = 0 then do
    'COMPOSANT=ASK("Quel est le nom du"+CHR(10)+"composant recherché ?")'
    part=result
    if part="" then exit
end
else do
    'COMPOSANT=PARTNAME(FIRSTSEL)'
    part=result
    if part="" then exit
end
'SECURITY(OBJECTS(-1)+10):I=0:WHILE(I=IF(I+1<=OBJECTS(-1),FINDPART(I+1,COMPOSANT),0),MARK(I))'

exit

/* Traitement des erreurs, interruption du programme */
syntax:
erreur=RC
'MESSAGE("Script SelectParts"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit

error:
'MESSAGE("Script SelectParts"+CHR(10)+"Erreur en ligne 'SIGL'")'
exit