Télécharger ccdonchi.procedur

Retour à la liste

Numérotation des lignes :

  1. * CCDONCHI PROCEDUR AURI 98/12/29 21:16:08 3419
  2. DEBPROC CCDONCHI DOMHYB*TABLE TYPG*MOT TB1*OBJET ;
  3. 'SI' ('NON' ( 'EGA' ( TB1. 'CLASSE' ) 'DONCHI2 ' )) ;
  4. MESS ' on attend un objet de CLASSE DONCHI2 ' ;
  5. QUITTER CCDONCHI ;
  6. FINSI ;
  7. TBTT= OBJET DONCHI2 ;
  8. CTOTT= TB1%ACCES GTOT ;
  9. CLOGCT= TB1%ACCES GLOGC ;
  10. CTOT= CTOTT- CTOTT ;
  11. CLOGC= CLOGCT - CLOGCT ;
  12. LICOMP= 'EXTR' CTOTT 'COMP' ;
  13. NBCOMP= DIME LICOMP ;
  14. REPE BOU1 NBCOMP ;
  15. MO1= EXTR LICOMP &BOU1 ;
  16. CTOT1= EXCO CTOTT MO1 MO1 ;
  17. CLOGC1= EXCO CLOGCT MO1 MO1 ;
  18. CTOT2= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CTOT1 ;
  19. CLOGC2= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CLOGC1 ;
  20. CTOT= CTOT+ CTOT2 ;
  21. CLOGC= CLOGC+ CLOGC2 ;
  22. FIN BOU1 ;
  23. ILFION=FAUX ;
  24. ILTEMP=FAUX ;
  25. ILNTY4=FAUX ;
  26. ILCLIM=FAUX ;
  27. 'SI' ('EXIS' TB1 'FIONI') ;
  28. CFIONT= TB1%ACCES GFIONI ;
  29. CFION= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' 'SCAL' 0 CFIONT ;
  30. ILFION= VRAI ;
  31. 'FINS' ;
  32. 'SI' ('EXIS' TB1 'NTY4') ;
  33. CNTY4T= TB1%ACCES GNTY4 ;
  34. CNTY4= CNTY4T - CNTY4T ;
  35. ILNTY4= VRAI ;
  36. LICOM4= 'EXTR' CNTY4T 'COMP' ;
  37. NBCOM4= DIME LICOM4 ;
  38. REPE BOU3 NBCOM4 ;
  39. MO1= EXTR LICOM4 &BOU3 ;
  40. CNTY41= EXCO CNTY4T MO1 MO1 ;
  41. CNTY42= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CNTY41 ;
  42. CNTY4= CNTY4+ CNTY42 ;
  43. FIN BOU3 ;
  44. 'FINS' ;
  45. 'SI' ('EXIS' TB1 'TEMPE') ;
  46. CTEMPT= TB1%ACCES GTEMPE ;
  47. CTEMP= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' 'SCAL' 0 CTEMPT ;
  48. ILTEMP= VRAI ;
  49. 'FINS' ;
  50. 'SI' ('EXIS' TB1 'CLIM') ;
  51. CCLIMT= TB1%ACCES GCLIM ;
  52. CCLIM= CCLIMT - CCLIMT ;
  53. ILCLIM= VRAI ;
  54. LICLIM= 'EXTR' CCLIMT 'COMP' ;
  55. NBCLIM= DIME LICLIM ;
  56. REPE BOU4 NBCLIM ;
  57. MO1= EXTR LICLIM &BOU4 ;
  58. CCLIM1= EXCO CCLIMT MO1 MO1 ;
  59. CCLIM2= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CCLIM1 ;
  60. CCLIM= CCLIM+ CCLIM2 ;
  61. FIN BOU4 ;
  62. 'FINS' ;
  63. *
  64. REPE BOUINF ;
  65. ARGU TB2/OBJET ;
  66. 'SI' ('NON' ( 'EXIS' TB2 )) ;
  67. QUITTER BOUINF ;
  68. FINSI ;
  69. 'SI' ('NON' ( 'EGA' ( TB2. 'CLASSE' ) 'DONCHI2 ' )) ;
  70. MESS ' on attendait un objet de CLASSE DONCHI2 ' ;
  71. QUITTER BOUINF ;
  72. FINSI ;
  73. CTOTT= TB2%ACCES GTOT ;
  74. CLOGCT= TB2%ACCES GLOGC ;
  75. REPE BOU2 NBCOMP ;
  76. MO1= EXTR LICOMP &BOU2 ;
  77. CTOT1= EXCO CTOTT MO1 MO1 ;
  78. CTOT3= EXCO CTOT MO1 MO1 ;
  79. CLOGC1= EXCO CLOGCT MO1 MO1 ;
  80. CLOGC3= EXCO CLOGC MO1 MO1 ;
  81. CTOT2= KCHT DOMHYB SCAL TYPG COMP MO1 0 CTOT3 CTOT1 ;
  82. CLOGC2= KCHT DOMHYB SCAL TYPG COMP MO1 0 CLOGC3 CLOGC1 ;
  83. CTOT= CTOT+ CTOT2 - CTOT3 ;
  84. CLOGC= CLOGC+ CLOGC2 - CLOGC3 ;
  85. FIN BOU2 ;
  86. 'SI' ILFION ;
  87. 'SI' ('EXIS' TB2 'FIONI') ;
  88. CFIONT= TB2%ACCES GFIONI ;
  89. CFION2='KCHT' DOMHYB 'SCAL' TYPG 'COMP' 'SCAL' 0 CFION CFIONT ;
  90. CFION= CFION2 ;
  91. 'SINON';
  92. ILFION= FAUX ;
  93. 'MESS' 'Il manque la force ionique dans l OBJET ' (&BOUINF+1)
  94. ' on ne la prendra pas en compte' ;
  95. 'FINS' ;
  96. 'SINON' ;
  97. 'SI' ('EXIS' TB2 'FIONI') ;
  98. 'MESS' 'Il manque la force ionique dans l OBJET 1'
  99. ' on ne la prendra pas en compte' ;
  100. 'FINS' ;
  101. 'FINS' ;
  102. 'SI' ILTEMP ;
  103. 'SI' ('EXIS' TB2 'TEMPE') ;
  104. CTEMPT= TB2%ACCES GTEMPE ;
  105. CTEMP2='KCHT' DOMHYB 'SCAL' TYPG 'COMP' 'SCAL' 0 CTEMP CTEMPT ;
  106. CTEMP= CTEMP2 ;
  107. 'SINON';
  108. ILTEMP= FAUX ;
  109. 'MESS' 'Il manque la température dans l OBJET ' (&BOUINF+1)
  110. ' on ne la prendra pas en compte' ;
  111. 'FINS' ;
  112. 'SINON';
  113. 'SI' ('EXIS' TB2 'TEMPE') ;
  114. 'MESS' 'Il manque la température dans l OBJET 1 '
  115. ' on ne la prendra pas en compte' ;
  116. 'FINS' ;
  117. 'FINS' ;
  118. 'SI' ILNTY4 ;
  119. 'SI' ('EXIS' TB2 'NTY4') ;
  120. CNTY4T= TB2%ACCES GNTY4 ;
  121. REPE BOU5 NBCOM4 ;
  122. MO1= EXTR LICOM4 &BOU5 ;
  123. CNTY41= EXCO CNTY4T MO1 MO1 ;
  124. CNTY43= EXCO CNTY4 MO1 MO1 ;
  125. CNTY42= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CNTY43 CNTY41 ;
  126. CNTY4= CNTY4+ CNTY42 - CNTY43 ;
  127. FIN BOU5 ;
  128. 'SINON';
  129. ILNTY4= FAUX ;
  130. 'MESS' 'Il manque l indice NTY4 dans l OBJET ' (&BOUINF+1)
  131. ' on ne le prendra pas en compte' ;
  132. 'FINS' ;
  133. 'SINON';
  134. 'SI' ('EXIS' TB2 'NTY4') ;
  135. 'MESS' 'Il manque l indice NTY4 dans l OBJET 1 '
  136. ' on ne le prendra pas en compte' ;
  137. 'FINS' ;
  138. 'FINS' ;
  139. 'SI' ILCLIM ;
  140. 'SI' ('EXIS' TB2 'CLIM') ;
  141. CCLIMT= TB2%ACCES GCLIM ;
  142. REPE BOU6 NBCLIM ;
  143. MO1= EXTR LICLIM &BOU6 ;
  144. CCLIM1= EXCO CCLIMT MO1 MO1 ;
  145. CCLIM3= EXCO CCLIM MO1 MO1 ;
  146. CCLIM2= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CCLIM3 CCLIM1 ;
  147. CCLIM= CCLIM+ CCLIM2 - CCLIM3 ;
  148. FIN BOU6 ;
  149. 'SINON';
  150. ILCLIM= FAUX ;
  151. 'MESS' 'Il manque l indice CLIM dans l OBJET ' (&BOUINF+1)
  152. ' on ne le prendra pas en compte' ;
  153. 'FINS' ;
  154. 'SINON';
  155. 'SI' ('EXIS' TB2 'CLIM') ;
  156. 'MESS' 'Il manque l indice CLIM dans l OBJET 1 '
  157. ' on ne le prendra pas en compte' ;
  158. 'FINS' ;
  159. 'FINS' ;
  160. FIN BOUINF ;
  161. TBTT%GTOT CTOT ;
  162. TBTT%GLOGC CLOGC ;
  163. 'SI' ILFION ;
  164. TBTT%GFIONI CFION ;
  165. 'FINS';
  166. 'SI' ILTEMP ;
  167. TBTT%GTEMPE CTEMP ;
  168. 'FINS';
  169. 'SI' ILNTY4 ;
  170. TBTT%GNTY4 CNTY4 ;
  171. 'FINS';
  172. 'SI' ILCLIM ;
  173. TBTT%GCLIM CCLIM ;
  174. 'FINS';
  175. FINP TBTT ;
  176.  
  177.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales