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