home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBCALC.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  2.4 KB  |  114 lines
  1. <<* SSBCALC.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3.  
  4. <<#
  5. procedure GenCalcDisp
  6. begin
  7.   forecolor := 32000  <<*For GenColorAtr() procedure*>>
  8.   backcolor := 32000
  9.   if ismultipage
  10.     genln( 'DO CASE' )
  11.     forall pages
  12.       if fldtotal > 0
  13.         genln( 'CASE pageno=',pagcount )
  14.         forall fields
  15.           pushmargin( 1 )
  16.           GenColorAtr
  17.           genln( rtrim( getFIELD( AutoMem ) ) )
  18.           popmargin
  19.         endfor
  20.       endif
  21.     endfor
  22.     genln( 'ENDCASE' )
  23.   else <<*Single page format*>>
  24.     select page 1
  25.     forall fields
  26.       GenColorAtr
  27.       genln( rtrim( getFIELD( AutoMem ) ) )
  28.     endfor
  29.   endif
  30. end <<*GenCalcDisp*>>
  31.  
  32.  
  33. procedure GenCalcThem
  34. begin
  35.   select all fields                       <<*!*>>
  36.   select fields on (fldtyp $ 'CDLN')      <<*!*>>
  37.   forall fields
  38.     if fldcal     <<*!*>>
  39.       if AutoMem
  40.         genln( 'STORE ',fixautomem(fldcal),' TO ',fixareafldnam )
  41.       else
  42.         genln( 'REPLACE ',fldnam,' WITH ',fixautomem(fldcal) )
  43.       endif
  44.     endif
  45.   endfor
  46. end <<*GenCalcThem*>>
  47.  
  48.  
  49. procedure GenCalcBody
  50. begin
  51.   select on databases,fields,pages
  52.   select fields on fldcal and (fldtyp $ 'CDLN')
  53.   if fldtotal > 0
  54.     genln( '* ---Calculate values.' )
  55.     GenCalcThem
  56.     select fields on fldcal     <<*!*>>
  57.     GenCalcDisp
  58.     genln( 'CLEAR GETS' )
  59.   endif
  60.   select all fields  <<*clear field FILTER*>>
  61. end GenCalcBody
  62.  
  63.  
  64. procedure GenCalcFlds
  65. begin
  66.   select on databases,fields,pages
  67.   select all pages
  68.   select all fields   <<*clear field FILTER*>>
  69.   select fields on (fldals <> 'M')
  70.   GenCalcBody
  71. end GenCalcFlds
  72.  
  73.  
  74. procedure GenCalcMems
  75. begin
  76.   select all
  77.   select on databases,fields,pages
  78.   select fields on (fldals = 'M')
  79.   GenCalcBody
  80. end GenCalcMems
  81.  
  82.  
  83. procedure GenMemInit
  84. begin
  85.   select all
  86.   select field on fldini and (fldtyp $ 'CDLN') and (fldals = 'M')
  87.   if fldtotal > 0
  88.     genln( '* ---Initialize memory variables.' )
  89.     forall fields
  90.       genln( 'STORE ',fldini,' TO ',fldnam )
  91.     endfor
  92.     genln( '*' )
  93.   endif
  94.   select all
  95. end <<*GenMemInit*>>
  96.  
  97.  
  98. procedure GenMemCalc
  99. begin
  100.   select all
  101.   select fields on fldcal and (fldtyp $ 'CDLN') and (fldals = 'M')
  102.   if fldtotal > 0
  103.     genln( '* ---Calculate memory variables.' )
  104.     forall fields
  105.       genln( 'STORE ',fldcal,' TO ',fldnam )
  106.     endfor
  107.     genln( '*' )
  108.   endif
  109.   select all
  110. end <<*GenMemCalc*>>
  111. #>>
  112.  
  113. <<* EOF: SSBCALC.INC *>>
  114.