home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AD_LIST.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  1.5 KB  |  78 lines
  1. //
  2. // Module Name: AD_LIST.COD - Menu_Act = 6
  3. // Selectors  : Disp_Pause, Field_list, Flter_Cond, Scope, For_Expr, While_Exp
  4. // Description: List [<parameters>]
  5. // Syntax     : LIST [OFF] [<scope>] [FIELDS <field name list>] 
  6. //                   [<exp list>]
  7. //                   [FOR <expL>] [WHILE <expL>]
  8. //           *:=     [TO [PRINTER]/[FILE <expFN>]]
  9. //
  10. //              LIST FILES [[LIKE] [<path>] <skeleton>] *
  11. //
  12. //              LIST HISTORY [LAST <expN>] *
  13. //
  14. //              LIST MEMORY *
  15. //
  16. //              LIST STATUS *
  17. //
  18. //              LIST STRUCTURE [IN <expWA>] *
  19. //
  20. *-- Desc: List [<parameters>]
  21. CLEAR
  22. //
  23. //
  24. {if Flter_Cond then}
  25. SET FILTER TO {Flter_Cond}
  26. GOTO TOP
  27. {endif}
  28. //
  29. {case Disp_Dest of}
  30. {0: // Printer}
  31. SET PRINT ON
  32. {1: // File}
  33. SET ALTERNATE TO list.prt
  34. SET ALTERNATE ON
  35. {3: // Ask at runtime}
  36. gn_pkey = 0
  37. DO PrintSet
  38. IF gn_pkey <> 27  && esc
  39.    \
  40. {endcase}
  41. //
  42. {if Disp_Pause then}
  43. LIST\
  44. {else}
  45. DISPLAY ALL\
  46. {endif}
  47. {if Field_list then}
  48.  FIELDS {lower(Field_list)}\
  49. {endif}
  50. {if Disp_Off then}
  51.  OFF\
  52. {endif}
  53. {if !Scope && !For_Expr && !While_Exp then} &gc_scope. {endif}\
  54. {if Scope} {upper(Scope)} {endif}\
  55. {if For_Expr} FOR {For_Expr}{endif}\
  56. {if While_Exp} WHILE {While_Exp}{endif}\
  57.  
  58. {case Disp_Dest of}
  59. {0:}
  60. SET PRINT OFF
  61. {1:}
  62. CLOSE ALTERNATE
  63. {2:}
  64. {  if not Disp_Pause then}
  65. WAIT
  66. {  endif}
  67. {3:}
  68.    DO Cleanup
  69. ENDIF
  70. {endcase}
  71. //
  72. {if Flter_Cond then}
  73. SET FILTER TO
  74. {endif}
  75. //
  76. // EOP AD_LIST.COD
  77.  
  78.