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