home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AS_TPOST.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  604 b   |  27 lines
  1. //
  2. // Module Name: AS_TPOST.COD
  3. // Selectors  : Postn_Menu, Seek_Cond, Goto_Reco, Locate_for, Locate_whl
  4. // Description: Record positioning (Ask at runtime)
  5. //
  6. // No positioning menu
  7. {if Postn_Menu == 0}
  8. { if Seek_Cond}
  9. SEEK {Seek_Cond}
  10. { endif}
  11. { if Goto_Reco}
  12. GOTO {Goto_Reco}
  13. { endif}
  14. { if Locate_Scp || Locate_for || Locate_whl then}
  15. LOCATE\
  16. {   if Locate_Scp} {Locate_Scp}{endif}\
  17. {   if Locate_for} FOR {Locate_for}{endif}\
  18. {   if Locate_whl} WHILE {Locate_whl}{endif}\
  19.  
  20. { endif}
  21. {endif}
  22. // DO positioning menu
  23. {if Postn_Menu == 1}
  24. Do Position
  25. {endif}
  26. // EOP AS_TPOST.COD
  27.