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