home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / fish / 911-930 / ff925 / donsgenies / frenchgenies.lha / Rexx / IdentifieBoîte.pprx < prev    next >
Text File  |  1993-08-03  |  1KB  |  49 lines
  1. /*
  2. @BIdentifieBoîte @P @I Ecrit et © par Don Cox
  3. @IN'est pas du Domaine Publique. Tous Droits Réservés.
  4. Traduit et modifié par Fabien Larini le 22/07/93.
  5.  
  6. Ce Génie affiche le nom, le numéro et la donnée utilisateur de la boîte sélectionnée.
  7. */
  8.  
  9. /*BoxIdentify*/
  10. /* Get name and number of box. The user data will only be present if it has been put in the box by a genie.
  11. Written by Don Cox */
  12.  
  13. trace n
  14. signal on error
  15. signal on syntax
  16.  
  17. address command
  18. call SafeEndEdit.rexx()
  19. address command
  20. call SafeEndEdit.rexx()
  21.  
  22. box=ppm_ClickOnBox("Clickez dans la Boîte à Identifier")
  23. if box=0 then exit_msg("Pas de Boîte Sélectionnée")
  24. boxname = ppm_GetBoxName(box)
  25. if boxname = "" then boxname = "(Sans Nom)"
  26. thisbox = ppm_BoxNum(box)
  27. udata = ppm_GetBoxUserData(box)
  28. if udata = 0 then udata = "Pas de"
  29.  
  30. call exit_msg("Nom: "boxname"   Numéro: "box"  Donnée Utilisateur: "udata))
  31.  
  32. end
  33.  
  34. error:
  35. syntax:
  36.     do
  37.     exit_msg("Arrêt du Génie dû à l'erreur: "errortext(rc))
  38.     end
  39.  
  40. exit_msg:
  41.     do
  42.     parse arg message
  43.     if message ~= "" then
  44.     call ppm_Inform(1,message,)
  45.     call ppm_ClearStatus()
  46.     call ppm_AutoUpdate(1)
  47.     exit
  48.     end
  49.