Télécharger oooval.eso

Retour à la liste

oooval
C OOOVAL    SOURCE    PV090527  26/04/25    21:15:05     12524          
      INTEGER FUNCTION OOOVAL (ITYP,NVAL)
C-------------------------------------------------------------------
C
C                     FOURNITURE D'INFORMATION GEMAT
C
C
C
C           1- ITYP = TYPE D'INFORMATION
C
C                   --->MACRO , (GO,STATS,STATM,GESTMEM,PLACE)
C
C           2- NVAL = CODE INFORMATION POUR CHAQUE TYPE
C
C                 GO--->MACRO , (ESOPE,BUFFER,QBLOCSDISQUE,
C                         DIMBLOC,NUMVERSION,DATEVERSION,DUMP,MAP,
C                         MIDDE)
C
C           STATS(M)--->MACRO , (ACTUEL,DEF,ACTACTIF,MAXACTIF,DEPLACES,
C                         VIDES,RAPPEL,LUACT,ECRIS,LUS,DESCR)
C
C           GESTMEM --->MACRO , (QBESOINPLACE,NTROUSBALAYES,QRAZ,
C                             NXFNG,NXFND,NXFNINI,QXFNRAZ)
C
C             PLACE --->MACRO , (DISPDYN,DISPFIXE,POTENTIELDISPDYN,
C                                MAXDISPDYN,FILESBUF,FILES)
C
C PROGRAMMEUR : MOUGIN
C       MODIF : 17/01/89    UTILISER LE  OOOMWD  SIMPLIFIE
C       MODIF : 09/05/89    PASSER A LA VERSION 9.1
C       H_MULLEMAN
C       MODIF : 15/02/90    PASSER A LA VERSION 9.2
C       MODIF : 15/09/91    PASSER A LA VERSION 10.0
C
C-----------------------------------------------------------------------
C
%INC IOOADR
%INC IOOADZ
%INC IOODES
%INC IOOSGM
%INC IOOPTRK
C-------- LISTE DES INFORMATIONS DELIVREES PAR OOOVAL
C
C
C    1- TYPE
C
      MACRO , (GO,STATS,STATM,GESTMEM,PLACE)
C
C    2- NUMERO D'INFORMATION PAR TYPE
C         GO
      MACRO , (ESOPE,BUFFER,QBLOCSDISQUE,DIMBLOC,
     *         NUMVERSION,DATEVERSION,DUMP,MAP,MIDDE)
C         STATS,STATM,GESTMEM: VOIR IOOADR
C         PLACE
      MACRO , (DISPDYN,DISPFIXE,POTENTIELDISPDYN,MAXDISPDYN,FILESBUF,
     *         FILES)
C
      CHARACTER*8 LPARM
      DATA LMAX /999999999/
C
C******
C
      CASE ,ITYP
C
         WHEN , GO
C
C******
C
            CASE , NVAL
C
               WHEN , ESOPE
                  OOOVAL=MZLEN(IZA)
               WHEN , BUFFER
                  OOOVAL=MZLB
               WHEN , QBLOCSDISQUE
                  IF (MZPTRK.EQ.0) THEN
                     OOOVAL=0
                  ELSE
                     PTRK  =MZPTRK
                     OOOVAL=NNTRK
                  ENDIF
               WHEN , DIMBLOC
                  IF (MZPTRK.EQ.0) THEN
                     OOOVAL=0
                  ELSE
                     PTRK  =MZPTRK
                     OOOVAL=LLTRK
                  ENDIF
               WHEN , NUMVERSION
                     OOOVAL =010
               WHEN , DATEVERSION
                     OOOVAL =0426
               WHEN , DUMP
                  CALL OOOPRM (LRET,'DUMP',LPARM,LLPARM,IDMP)
                  IF (LRET.EQ.2) THEN
                     OOOVAL=1
                  ELSE
                     OOOVAL=0
                  ENDIF
               WHEN , MAP
                  CALL OOOPRM (LRET,'MAP',LPARM,LLPARM,OOOVAL)
               WHEN , MIDDE
                  OOOVAL=MZNDEX
               ENDCASE
C
          WHEN , STATS
C
             IF (NVAL.LT.0 .OR. NVAL.GT.MZNSTATS) THEN
                OOOVAL=0
             ELSE
                OOOVAL=MZJSS(NVAL)
             ENDIF
C
          WHEN , STATM
C
             IF (NVAL.LT.0 .OR. NVAL.GT.MZNSTATS) THEN
                OOOVAL=0
             ELSE
                OOOVAL=MZJSM(NVAL)
             ENDIF
C
          WHEN , GESTMEM
C
             IF (NVAL.LT.0 .OR. NVAL.GT.MZNMM) THEN
                OOOVAL=0
             ELSE
                OOOVAL=MZJMM(NVAL)
             ENDIF
C
          WHEN , PLACE
C
C*****
C
             CASE , NVAL
C
                WHEN , DISPDYN
                   OOOVAL = MZLTROU(IZA,ZMEMDYN)
                WHEN , DISPFIXE
                   OOOVAL = MZLTROU(IZA,ZMEMFIX)
                WHEN , POTENTIELDISPDYN
                   OOOVAL = MZQCHN(LRU)
     *                     +MZQCHN(MRU)
     *                     +MZQCHN(CLRU)
     *                     +MZQCHN(CMRU)
     *                     +MZQCHN(OLIN)
     *                     +MZQCHN(OLNOMOD)
     *                     +MZQCHN(OLMOD)
     *                     +MZQCHN(OMNOMOD)
     *                     +MZQCHN(OMMOD)
     *                     +MZLTROU(IZA,ZMEMDYN)
                WHEN , MAXDISPDYN
                   CALL OOOMWD (LRET,LMAX)
                   OOOVAL = MZLTROU(IZA,ZMEMDYN)-(MSLCZ)
     *                      -(MZNDEX*MDLDE)-(MSLSM)
                WHEN , FILESBUF
                   OOOVAL = MZQCHN(OLIN)
     *                     +MZQCHN(OLNOMOD)
     *                     +MZQCHN(OLMOD)
     *                     +MZQCHN(OMNOMOD)
     *                     +MZQCHN(OMMOD)
                WHEN , FILES
                   OOOVAL = MZQCHN(LRU)
     *                     +MZQCHN(MRU)
     *                     +MZQCHN(CLRU)
     *                     +MZQCHN(CMRU)
C
                ENDCASE
C
          ENDCASE
C
                                                       RETURN
      END
 
 
 

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