MINICERN/packlib/zebra/mq/mzmaps.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:11:42  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:20  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       SUBROUTINE MZMAPS
  14
  15 C-    Print the map of divisions in the current store
  16
  17 #include "zebra/zunit.inc"
  18 #include "zebra/mqsys.inc"
  19 C--------------    End CDE                             --------------
  20
  21 #include "zebra/q_jbit.inc"
  22 #include "zebra/q_jbyt.inc"
  23
  24
  25       IF (JQSTOR.LT.0)             RETURN
  26       IF (JQSTOR.GT.NQSTOR)        RETURN
  27
  28       WRITE (IQLOG,9021) JQSTOR,NQSNAM(1),NQSNAM(2)
  29  9021 FORMAT (1X/'   Map of store',I3,1X,2A4/3X,24('-')/
  30      F1X/3X,'Division',40X,'Number of times'
  31      F/14X,'Kind',16X,'Max-size',16X,'Garb-coll.'
  32      F/12X,'Mode    Position      used   allowed',
  33      F3X,'Wiped  user  auto Pushd Redcd'/1X)
  34
  35       JDIV = 1
  36    32 IF (JDIV.EQ.JQDVLL+1)  JDIV=JQDVSY
  37
  38       MODE = JBIT (IQMODE(KQT+JDIV), 1)
  39       KIND = JBYT (IQKIND(KQT+JDIV),21,4)
  40       LSTA = LQSTA(KQT+JDIV)
  41       LEND = LQEND(KQT+JDIV)
  42       NINI = NQDINI(KQT+JDIV)
  43       NMAX = NQDMAX(KQT+JDIV)
  44       NAM1 = IQDN1(KQT+JDIV)
  45       NAM2 = IQDN2(KQT+JDIV)
  46
  47       NSIZ = NQDSIZ(KQT+JDIV)
  48       NWIP = NQDWIP(KQT+JDIV)
  49       NGAU = NQDGAU(KQT+JDIV)
  50       NGAF = NQDGAF(KQT+JDIV)
  51       NPSH = NQDPSH(KQT+JDIV)
  52       NRED = NQDRED(KQT+JDIV)
  53
  54       NWIP = MIN(NWIP,9999999)
  55       NGAU = MIN(NGAU,99999)
  56       NGAF = MIN(NGAF,99999)
  57       NPSH = MIN(NPSH,99999)
  58       NRED = MIN(NRED,99999)
  59
  60       NSIZ = MAX (NSIZ,LEND-LSTA)
  61       NQDSIZ(KQT+JDIV) = NSIZ
  62
  63       JPOS = LSTA
  64       IF (MODE.NE.0) JPOS=LEND
  65
  66       WRITE (IQLOG,9032) JDIV,NAM1,NAM2,MODE,KIND
  67      +,                  JPOS,NSIZ,NMAX
  68      +,                  NWIP,NGAU,NGAF,NPSH,NRED
  69  9032 FORMAT (3X,I2,1X,2A4,2I2,3I10,I8,4I6)
  70
  71       JDIV = JDIV + 1
  72       IF (JDIV.LE.20)              GO TO 32
  73       RETURN
  74       END
  75 *      ==================================================
  76 #include "zebra/qcardl.inc"