home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / MSADISP.INC < prev    next >
Encoding:
Text File  |  1988-05-06  |  934 b   |  43 lines
  1. <<* MSADISP.INC *>>
  2.  
  3. <<procedure GenDisplayBody>>
  4. <<integer pancol>>
  5. <<string  strg>>
  6. <<begin>>
  7.   <<InitBrowse>>
  8. PARAMETER row,listRECS
  9. IF listRECS > 1
  10.    * ---Display heading when listing the entire page.
  11.    <<GenColor( 1,'STATUS' )>>
  12.    @ rowTOP-1,0
  13.    @ rowTOP-1,0 SAY "Record#  "
  14.    DO CASE
  15.   <<select field 1>>
  16.   <<for pancol := 1 to panmax>>
  17.    CASE pancol = {pancol}
  18.     <<strg :=BrowseHeading>>
  19.       ?? {"}{strg}{"}
  20.   <<endfor>>
  21.    ENDCASE
  22.    * ---Clear the window area.
  23.    <<GenColor( 1,'WINDOW' )>>
  24.    Scroll rowTOP,0,rowBOTTOM+1,79,rowBOTTOM+1-rowTOP
  25. ENDIF
  26. * ---Display the records.
  27. SET HEADING OFF
  28. <<GenColor( 0,'WINDOW' )>>
  29. @ row-1,0 SAY ""
  30. DO CASE
  31.   <<select field 1>>
  32.   <<for pancol := 1 to panmax>>
  33. CASE pancol = {pancol}
  34.     <<strg :=BrowseList>>
  35.    LIST NEXT listRECS {strg}    
  36.   <<endfor>>
  37. ENDCASE
  38. SET HEADING ON
  39. <<end>> <<*GenDisplayBody*>>
  40.  
  41. <<* EOF: MSADISP.INC *>>
  42.  
  43.