|
midrange.com
I put it in a procedure in an rpg program. Here's a copy if anyone can use
it;
*
*---------------------------------------------------------------*
* PROTOTYPES --
*---------------------------------------------------------------*
* Get available Disk Space...
*---------------------------------------------------------------*
D #DSKSPC PR
D SYASPTOT 11 2
D SYASPPERC 11 2
D SYTAUX 11 2
*
* < ---- snip snip ------- >
*
* ASP-Total in gb, ASP-% used, Total Aux Storage..
D SYASPTOT S 11 2
D SYASPPERC S 11 2
D SYTAUX S 11 2
*
*****************************************************************
* Mainline Logic
*****************************************************************
*
*
*
* < ---- snip snip ------- >
*
*****************************************************************
C @DSKSPC BEGSR
*****************************************************************
* Retrieve Available Disk Space...
*
C CALLP #DSKSPC( SYASPTOT
C : SYASPPERC
C : SYTAUX )
*
C EVAL MSGDTA = 'ASP Used: '
C + %CHAR(SYASPPERC)
C + '% of '
C + %CHAR(SYASPTOT)
C + 'gb.'
C + ' Total aux: '
C + %CHAR(SYTAUX)
C + 'gb.'
*
C EVAL MSGSID = 'ALI8600'
C EXSR @MSGHND
*
C ENDSR
*
*****************************************************************
*
*
* < ---- snip snip ------- >
*
*****************************************************************
*================================================================
* Get available Disk Space...
*================================================================
P #DSKSPC B EXPORT
*---------------------------------------------------------------*
D PI
D SYASPTOT 11 2
D SYASPPERC 11 2
D SYTAUX 11 2
*
**
*Type Definition for the SSTS0200 format.
**
DQWCS0200 DS INZ
D QWCBAVL01 1 4B 0
Bytes Available
D QWCBRTN01 5 8B 0
Bytes Returned
D QWCCDT00 9 16
Cur Date Time
D QWCSN00 17 24
Sys Name
D QWCET 25 30
Elapsd Time
D QWCRS 31 31
Restrctd State
D QWCERVED01 32 32
Reserved
D QWCPPUU 33 36B 0
Pct Prcsng UnitUsed
D QWCJIS 37 40B 0
Jobs In System
D QWCPPA 41 44B 0
Pct Perm Addrs
D QWCPTA 45 48B 0
Pct Temp Addrs
D QWCSASP 49 52B 0
System ASP
D QWCSASPU 53 56B 0
Pct System ASP Used
D QWCTAS 57 60B 0
Total Aux Storage
D QWCCUS 61 64B 0
Curnt Unprotct Storg
D QWCMUS 65 68B 0
Max Unprotect Storag
**
*****************************************************************
D RcvVarLen S 10i 0
D FmtNam S 8a
D ResStc S 10a
D ApiError S 10i 0
*
D RxLen S 10i 0
*----------------------------------------------------------------
*
C eval RxLen = %Size(QWCS0200)
*
C CALL 'QWCRSSTS'
C PARM QWCS0200
C PARM RxLen RcvVarLen
C PARM 'SSTS0200' FmtNam
C PARM '*NO' ResStc
C PARM 0 ApiError
*
C EVAL SYASPTOT = QWCSASP / 1000
C EVAL SYASPPERC = QWCSASPU / 10000
C EVAL SYTAUX = QWCTAS / 1000
*
C RETURN
P E
*================================================================
*----------------------------------------------------------------
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
