home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / infoserv / www / ncsa / tools / gsql / sample.proc.Z / sample.proc
Encoding:
Text File  |  1994-06-26  |  1.9 KB  |  52 lines
  1. # --------------------------------------------
  2. # A simple PROC file
  3. # Jason Ng, NCSA Dec 1993
  4. # Detailed description found in proc-fmt.html.
  5. # --------------------------------------------
  6.  
  7. HEADING   <H2> A Simple GSQL Proc File example </H2>;
  8. TEXT <IMG SRC=http://base.ncsa.uiuc.edu:1234/strip.gif>;
  9.  
  10. SUB user WHERELIST AS helpdeskdb..user.logon like '$';
  11. SHOW user TITLE "Ticket User<p>" FIELD;
  12.  
  13. SUB subject WHERELIST AS upper(helpdeskdb..ticket.subject) like upper('%$%');
  14. SHOW subject TITLE "Ticket subject<p>" FIELD;
  15. TEXT (eg, try <i> meeting </i> );
  16.  
  17.  
  18. SUB in_mthopen WHERELIST AS convert(char(13),helpdeskdb..ticket.open_date,1) 
  19.             like '$/%';
  20. SHOW  in_mthopen TITLE "for which month?<p>" PULLDOWN
  21.          , 01,02,03,04,05,06,07,08,09,10,11,12;
  22.  
  23. #------------------------------------------------------- 
  24.  
  25. SUB rticket     SELECTLIST AS helpdeskdb..ticket.ticket;
  26. SUB rrecipient  SELECTLIST AS helpdeskdb..recipient.recipient_name;
  27. SUB rsubject    SELECTLIST AS helpdeskdb..ticket.subject;
  28. SUB ruser       SELECTLIST AS helpdeskdb..user.logon;
  29. SUB ropen_date  SELECTLIST AS convert(char(12),helpdeskdb..ticket.open_date,1);
  30. SUB ropen_name  SELECTLIST AS 
  31.             ( clientdb..client.last_name+','+clientdb..client.first_name);
  32.  
  33. SUB  _displaylist    SELECTLIST AS $;
  34. SHOW _displaylist    TITLE  "Select field(s) to see:" SCROLL 
  35.       rsubject,  rticket, rrecipient, ruser, ropen_date, ropen_name;
  36.  
  37. #------------------------------------------------------- 
  38.  
  39. SQLPROG  /afs/ncsa.uiuc.edu/.u9/likkai/sybase/src/sqlmain;
  40.  
  41. FROMLIST  helpdeskdb..ticket , helpdeskdb..user, helpdeskdb..recipient, 
  42.            clientdb..client;
  43. WHERELIST helpdeskdb..ticket.uid = helpdeskdb..user.uid and 
  44.              helpdeskdb..ticket.opened_by = clientdb..client.client_id and 
  45.              helpdeskdb..ticket.recipient_id = helpdeskdb..recipient.recipient_id;
  46.  
  47. DEFINE  LOGIN whoever;
  48. DEFINE  PASSWORD whatever;
  49. DEFINE  SYBASE_ENV SYBASE=/usr/local/sybase;
  50.  
  51.  
  52.