[NEWSboard IBMi Forum]
  1. #1
    Registriert seit
    Nov 2004
    Beiträge
    43

    Plattenauslastung per Programm auslesen

    Hallo zusammen,

    mit WRKSYSSTS kann ich mir die Plattenauslastung anzeigen lassen.

    Gibt es eine Möglichkeit, diesen Wert mit Hilfe eines Programms (CL, API o.ä.) auszulesen?Für Eure

    Hilfe schon mal vielen Dank.

  2. #2
    Registriert seit
    Sep 2005
    Beiträge
    385
    K.a.
    aber wrksyssts geht doch nach *print
    das kannst u auf jeden fall dann auslesen

    aber warsch. gibt es auch ein API
    Der ILEMax

  3. #3
    Registriert seit
    Apr 2005
    Beiträge
    385
    Das geht sicherlich mit *PRINT und so

    Schneller und besser ist aber das API

    http://www-01.ibm.com/support/knowle...ol.htm?lang=en

  4. #4
    Registriert seit
    Nov 2003
    Beiträge
    2.304

  5. #5
    Registriert seit
    Jan 2007
    Beiträge
    904
    Nach einer Idee von Bob Cozzi...

    PHP-Code:
         H BNDDIR('QC2LE'OPTION(*NODEBUGIO:*SRCSTMT)
         
    H DFTACTGRP(*NOACTGRP(*NEW) EXTBININT(*YES)

          /
    copy qsysinc/qrpglesrc,qusec
          
    /copy qsysinc/qrpglesrc,qgy
          
    /copy qsysinc/qrpglesrc,qyaspol
          
    /copy qsysinc/qrpglesrc,qusgen

         D listSpace       S          65535A
         D QYASP0300_T     DS                  LikeDS
    (QYAP0300Inz
         D diskUnit        DS                  LikeDS
    (QYASP0300_TInz
         D DU              DS                  LikeDS
    (QYASP0300_TBased(pDiskUnit)
         
    D pDiskUnit       S               *   InZ(%addr(diskUnit))

         
    D closeOpenList   PR                  extPgm('QGY/QGYCLST')
         
    D  handle                        4A   OPTIONS(*VARSIZE)
         
    D  apiErrorDS                         LikeDS(QUSECOPTIONS(*VARSIZE)

         
    D getOpenListE    PR                  extPgm('QGY/QGYGTLE')
         
    D  rtnValue                  65535A   OPTIONS(*VARSIZE)
         
    D  rtnValueLen                  10I 0 Const
         
    D  handle                        4A   Const
         
    D  listInfo                     80A   OPTIONS(*VARSIZE)
         
    D  reqRtnCount                  10I 0 Const
         
    D  strRcd                       10I 0 Const
         
    D  apiErrorDS                         LikeDS(QUSECOPTIONS(*VARSIZE)

         
    D openASPList     PR                  extPgm('QGY/QYASPOL')
         
    D  rtnValue                  65535A   OPTIONS(*VARSIZE)
         
    D  rtnValueLen                  10I 0 Const
         
    D  listInfo                     80A   OPTIONS(*VARSIZE)
         
    D  reqRtnCount                  10I 0 Const
         
    D  filterCount                  10I 0 Const
         
    D  filterInfo                   80A   OPTIONS(*VARSIZE)
         
    D  apiFormat                     8A   Const
         
    D  apiErrorDS                         LikeDS(QUSECOPTIONS(*VARSIZE)

         
    D openFilter      DS                  Qualified Inz
         D  entrySize                    10I 0 Inz
    (%size(openFilter))
         
    D  Key                          10I 0 Inz(1)
         
    D  dataSize                     10I 0 Inz(4)
         
    D  data                         10I 0 Inz(-1)

         
    D openListInfo    DS                  Qualified
         D  rcdAvail                     10I 0
         D  rtnRcdCount                  10I 0
         D  Handle                        4A
         D  rcdLen                       10I 0
         D  complete                      1A
         D  crtDTS                       13A
         D  status                        1A
         D  reserved                      1A
         D  rtnLen                       10I 0
         D  rcdOffset                    10I 0
         D  reserved2                    40A

         D  apiError       DS                  LikeDS
    (QUSECInz

         D  rcdCount       S             10I 0
         D i               S             10I 0
         D perUsed         S              7P 2
         D perFree         S              7P 2

          
    /free
              openASPList
    listSpace : %size(listSpace) : openListInfo :
                           -
    openFilter 'YASP0300' apiError );
              
    rcdCount openListInfo.rtnRcdCount;

              for 
    1 to rcdCount;
              
    getOpenListE(diskUnit : %size(diskUnit) : openListInfo.Handle :
                              
    openListInfo apiError );

               
    // At this point, the DiskUnit struct has the returned Disk info.
               // Calc the percentage used and free for each disk unit
               
    perFree = %DEC((du.qyalable du.qyatotal00) * 100 72);
               
    perUsed 100 perFree;

              endfor;

              
    closeOpenListopenListInfo.Handle apiError);
              *
    inlr = *on;
              return;
          /
    end-free 
    kf

  6. #6
    Registriert seit
    Feb 2009
    Beiträge
    391
    Altes Thema, aber noch aktuell. Ich bezeichne ja immer die Auslastung als die % Auslastung der Plattenarme. Und das andere ist die Belegung.
    Und um eben die Auslastung auszulesen vermute ich mal die folgende Werte aus dem QYAP0300:
    Code:
     Spalten . . . :    6  76          Ansehen                    QSYSINC/QRPGLESRC
     SEU==>                                                                 QYASPOL
     FMT D  DName+++++++++++ETDsVon++++Bi/L+++IDG.Schlüsselwörter++++++++++++++++++
    0002.08 D QYASC                  81     84I 0                                  
    0002.09 D*                                             Sample Cnt              
    0002.10 D QYANBC                 85     88I 0                                  
    0002.11 D*                                             Not Busy Cnt
    Kann das jemand so bestätigen?

  7. #7
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Laut Doku sind dies Zähler und keine %-Werte.
    %-Werte kann ich in dem API gar nicht sehen.
    Ich finde auch kein vergleichbares API zum WRKDSKSTS.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  8. #8
    Registriert seit
    Feb 2009
    Beiträge
    391
    Mit dem obigen Program von Bob erhält man je einen Wert pro Platte. Im QYAP0300sieht man auch adäquat die Werte vom WRKDSKSTS. Und meines Erachtens sind die beiden Werte (Sample und not Busy) einfach nur in Proportion zu sehen. Mein Problem ist, daß ich es nicht verifizieren kann, da meine Testsyssteme alle bei <1% Auslastung herumdümpeln.
    Es gibt übrigens auch ne Tabelle in der QSYS2 dazu, aber da kriegt man nicht viel.

  9. #9
    Registriert seit
    Aug 2001
    Beiträge
    2.644
    Zitat Zitat von Chris.jan Beitrag anzeigen
    Mein Problem ist, daß ich es nicht verifizieren kann, da meine Testsyssteme alle bei <1% Auslastung herumdümpeln..
    Also, ein Testsystem zum Schwitzen zu bringen, das geht auch per CL - dann kann man die abgerufenen Werte auch besser verifizieren.
    Allerdings muss man aufpassen, ob die Werte für den gewünschten Gebrauch aktuell oder fein genug sind. Meist reicht (um festzustellen, ob der Apparat zu viel zu tun hat), ein Messzeitraum über 3-5 Minuten, siehe WRKDSKSTS, F10, warten, F5

    -h
    www.RZKH.de
    IBM Champion 2022, 2023, 2024
    IBM i Community Advocate https://www.youracclaim.com/badges/6...c-7ad4ba147af6
    Common / CEAC
    http://pub400.com

Similar Threads

  1. Message von Serverjob auslesen und beantworten
    By TSchuler in forum NEWSboard Programmierung
    Antworten: 9
    Letzter Beitrag: 08-04-14, 15:03
  2. JOBLOG auslesen
    By tarkusch in forum NEWSboard Programmierung
    Antworten: 1
    Letzter Beitrag: 11-02-14, 14:25
  3. Prozessor Gruppe Pnn Auslesen?
    By AndreasH in forum IBM i Hauptforum
    Antworten: 2
    Letzter Beitrag: 18-09-02, 11:36
  4. Plattenauslastung
    By dwolters in forum NEWSboard Server Software
    Antworten: 0
    Letzter Beitrag: 11-10-01, 10:45
  5. Prozentuale Plattenauslastung
    By Burgy Zapp in forum NEWSboard Server Software
    Antworten: 0
    Letzter Beitrag: 03-04-01, 20:17

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •