Belegter Speicherplatz ASP 2

[harkne]

Hat im ersten Moment gut ausgesehen. Allerdings sieht es so aus daß ich nicht den bereits belegten Plattenspeicher ermitteln kann. Ist aber wichtig wenn ich in SAVF sichere dass die Maschine nicht überläuft

[harkne]

Und hat im letzten Moment wieder gut ausgesehen ;-)


Für alle die es interessiert, nachfolgend das RPG Programm, welches eine ASP-Nummer übergeben bekommt und den Gesamtspeicherplatz eines ASPs sowie die Anzahl Prozent des belegeten Speicherplatzes des ASP zurückgibt

0000.27 **================================================ ===============
0000.28 ** Procedure Prototype
0000.29 **================================================ ===============
0001.00 D QYASPOL PR ExtPgm('QYASPOL')
0002.00 D PR_Rcvr 64
0003.00 D PR_RcvLen like(binary4)
0004.00 D PR_LstInfo 80
0005.00 D PR_NbrRcds like(binary4)
0006.00 D PR_NbrFltr like(binary4)
0007.00 D PR_FltrInf 13
0008.00 D PR_FmtCode 8
0009.00 D PR_Code 116
0009.01 **================================================ ===============
0009.02 ** DS
0009.03 **================================================ ===============
0010.00 D AS_FltrInf DS 16
0011.00 D AS_FltSize 1 4B 0 Inz(16)
0012.00 D AS_FltKey 5 8B 0 Inz(1)
0013.00 D AS_SzFltD 9 12B 0 Inz(4)
0014.00 D AS_FltDta 13 16B 0
0014.01 **
0014.02 d ds
0014.03 d binary4 1 4B 0
0014.04 ** Format: YASP0200
0014.05 DAS_RCVR DS 64
0014.06 ** ASP number
0014.07 D QYAUMBER00 1 4B 0
0014.08 ** Number of disk units
0014.09 D QYADISKS 5 8B 0
0014.10 ** ASP capacity - total
0014.11 D QYATOTAL 9 12B 0
0014.12 ** ASP capacity available - total
0014.13 D QYAAVAIL 13 16B 0
0014.14 ** ASP capacity - protected
0014.15 D QYAPT 17 20B 0
0014.16 ** ASP capacity available - protected
0014.17 D QYAPA 21 24B 0
0014.18 ** ASP capacity - unprotected
0014.19 D QYAUT 25 28B 0
0014.20 ** ASP capacity available - unprotected
0014.21 D QYAUA 29 32B 0
0014.22 ** ASP system storage
0014.23 D QYASS 33 36B 0
0014.24 ** Overflow storage
0014.25 D QYAOS 37 40B 0
0014.26 ** Space allocated to the error log
0014.27 D QYAEL 41 44B 0
0014.28 ** Space allocated to the machine log
0014.29 D QYAML 45 48B 0
0014.30 ** Space allocated to the machine trace
0014.31 D QYAMT 49 52B 0
0014.32 ** Space allocated for main storage dump
0014.33 D QYAMSD 53 56B 0
0014.34 ** Space allocated to the microcode
0014.35 D QYAOCODE 57 60B 0
0014.36 ** Storage treshold percentage
0014.37 D QYASHOLD 61 64B 0
0014.38 **
0014.39 D ER_Code ds
0014.40 D ER_BytPrv 1 4b 0 Inz(116)
0014.41 D ER_BytAvl 5 8b 0
0014.42 D ER_MsgID 9 15
0014.43 D ER_ErNbr 16 16
0014.44 D ER_MsgDta 17 116
0015.04 **================================================ ===============
0015.05 ** Program Variables
0015.06 **================================================ ===============
0016.00 D AS_RcvLen s Inz(64) like(binary4)
0017.00 D AS_LstInfo s 80
0018.00 D AS_NbrRcds s Inz(1) like(binary4)
0019.00 D AS_NbrFltr s inz(1) like(binary4)
0020.00 D AS_FmtCode s 8 Inz('YASP0200')
0020.01 **
0020.03 d w@MbAspAvail s 15 0
0020.04 d w@MbAspUsed s 15 0
0020.14 **================================================ ===============
0020.15 ** Parameterlist
0020.16 **================================================ ===============
0020.17 c *entry plist
0020.18 c parm Pi@AspNo 2 0
0020.19 c parm Pi@PrcAspUsd 4 1
0020.20 c parm Pi@MbAspTot 15 0
0020.21 ************************************************** ***************
0020.22 ** Main
0020.23 ************************************************** ***************
0020.24 **
0020.25 c z-add Pi@AspNo AS_FltDta
0020.26 **
0046.00 C CallP QYASPOL(AS_Rcvr :
0047.00 C AS_RcvLen :
0048.00 C AS_LstInfo:
0049.00 C AS_NbrRcds:
0050.00 C AS_NbrFltr:
0051.00 C AS_FltrInf:
0052.00 C AS_FmtCode:
0053.00 C ER_Code )
0054.00 **
0054.01 c z-add QYaTotal Pi@MbAspTot
0054.02 c z-add QYaAvail w@MbAspAvail
0054.03 c eval w@MbAspUsed = Pi@MbAspTot - w@MbAspAvail
0054.04 c if Pi@MbAspTot > 0
0054.05 c eval(h) Pi@PrcAspUsd = w@MbAspUsed * 100 /
0054.06 c Pi@MbAspTot
0054.07 c else
0054.08 c eval Pi@PrcAspUsd = 100
0054.09 c endif
0054.10 **
0055.00 C Eval *InLr = *On

[harkne]

Das da oben ist RPG ;-) sieht nur ein bischen verschoben durch COPY AND PASTE aus. Das @-Zeichen muss gegebenenfalls durch ein gültiges Zeichen ersetzt werden.