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