MINICERN/packlib/zebra/mqv/zvfpri.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE ZVFPRI
  11
  12 C-    Print pending header lines for ZVERIF
  13
  14 #include "zebra/zmach.inc"
  15 #include "zebra/zstate.inc"
  16 #include "zebra/zunit.inc"
  17 #include "zebra/mqsys.inc"
  18 #include "zebra/mzcn.inc"
  19 #include "zebra/zvfaut.inc"
  20 #include "zebra/zvfwkc.inc"
  21 C--------------    END CDE                             --------------
  22       DIMENSION    MBKDES(9)
  23       EQUIVALENCE (MBKDES(1),LBKLS)
  24       CHARACTER    CHWK*12
  25
  26 C--                Print main header line
  27
  28       IF (IFLHD.EQ.0)  THEN
  29           IFLHD = 7
  30           N = LNBLNK (TEXTHD)
  31           WRITE (IQLOG,9011) TEXTHD(1:N)
  32           IF (IQVSTA.NE.0) WRITE (IQLOG,9012) IQVID
  33         ENDIF
  34
  35  9011 FORMAT (1X/' ZVERIF.  called, ',A)
  36  9012 FORMAT (10X,'Verify ID =',I4,I10)
  37
  38       IF (JVMODE.LT.0)             RETURN
  39
  40 C--                Print store header line
  41
  42       IF (IFLST.EQ.0)  THEN
  43           IFLST = 7
  44           WRITE (IQLOG,9014) JQSTOR,(NQSNAM(J),J=1,2)
  45         ENDIF
  46
  47  9014 FORMAT (1X/' ZVERIF.  Doing store',I3,', id= ',2A4)
  48
  49       IF (JVMODE.EQ.0)             RETURN
  50
  51 C----              Link areas / banks
  52
  53       LFAILS = JQSTOR
  54       LFAILD = JQDIVI
  55       IF (JVMODE.GE.2)             GO TO 31
  56
  57 C--                Doing link area
  58
  59       IF (IFLLA.NE.0)              RETURN
  60       IFLLA = 7
  61       IF (LATMP.EQ.0)  THEN
  62           CHWK = ', permanent '
  63         ELSE
  64           CHWK = ', temporary '
  65         ENDIF
  66       WRITE (IQLOG,9024) JQSTOR,CHWK,NAMEPR,JDESLA
  67       RETURN
  68
  69  9024 FORMAT (' ZVERIF.  Store',I3,A,'link-area ',2A4,' J=',I6)
  70
  71 C--                Doing banks
  72
  73    31 IF (IFLDV.EQ.0)  THEN
  74           IFLDV = 7
  75           WRITE (IQLOG,9031) JQSTOR,JQDIVI,NAMEPR,LDIVLO,LDIVHI
  76         ENDIF
  77
  78  9031 FORMAT (' ZVERIF.  Store',I3,', doing division',I3,1X,2A4,
  79      F' from/to =',2I10)
  80
  81       IF (IFLBK.NE.0)              RETURN
  82       IFLBK = 7
  83       IF (IBKXX.EQ.0)  THEN
  84           CHWK(1:6) = ' live '
  85         ELSE
  86           CHWK(1:6) = ' dead '
  87         ENDIF
  88       WRITE (IQLOG,9034) CHWK(1:6),MBKDES
  89       RETURN
  90
  91  9034 FORMAT (' ZVERIF.  Doing',A,'bank at',I9,' IDH/IDN= ',A4,I5,
  92      F' NIO=',I3/10X,'NL/NS/ND=',2I6,I8,' LA/LE=',2I10)
  93       END
  94 *      ==================================================
  95 #include "zebra/qcardl.inc"