|
Good Day, The following CL program monitors DISK Space on the AS400, request to know how an RPG approach would look. Thanks. ------------------------------------------------------------ PGM /*GET OBJECT DISCRIPTION OF ALL FILES */ DSPOBJD OBJ(*ALLUSR/*ALL) OBJTYPE(*ALL) OUTPUT(*OUTFILE) OUTFILE(QTEMP/ALLUSROBJ) /*COMPARE TO PREVIOUS OBJ DESCRIPTION*) CHKNEW: RUNQRY QRY(DSPNEW) CHKDLT: RUNQRY QRY(DSPDLT) DSPSIZCHG: RUNQRY QRY(DSPSIZCHG) /* SAVE OLD OBJECT DISCRIPTIONS AND COPY NEW ONE FROM QTEMP TO PREV */ CPYF FROMFILE(mylib/ALLUSROBJ) TOFILE(mylib/ALLOBJOLD) MBROPT(*REPLACE) CRTFILE(*YES) CPYF FROMFILE(QTEMP/ALLUSROBJ) TOFILE(mylib/ALLUSROBJ) MBROPT(*REPLACE) CRTFILE(*YES) ENDPGM -------------------------------------------------------------------- Tirus Collier Liberty University Systems Administration 1971 University Blvd. Lynchburg, VA 24502 434.582.2822
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
midrange.com
