DELETE S;
DEFINE DOMAIN S
 USING SYMET_REC ON SYSMET.SPM;
DELETE S80;
DEFINE PROCEDURE S80
PRINT "[?3l"
SET COLUMNS_PAGE=80
END-PROCEDURE
DELETE S132;
DEFINE PROCEDURE S132
PRINT "[?3h"
SET COLUMNS_PAGE=132
END-PROCEDURE
DELETE SYMET_REC;
DEFINE RECORD SYMET_REC
ALLOCATION IS LEFT-RIGHT
01 SYMET_REC.
	10 ID PIC 9999 USAGE INTEGER EDIT_STRING ZZ9.
	10 KW11P PIC 9(6) USAGE INTEGER EDIT_STRING --,---,---,--9.
	10 KERNEL PIC 9(6) USAGE INTEGER EDIT_STRING --,---,---,--9.
	10 IDLE PIC 9(6) USAGE INTEGER EDIT_STRING --,---,---,--9.
	10 POOL_NODES PIC 9999 USAGE INTEGER EDIT_STRING ZZ9.
	10 POOL PIC 9999 USAGE INTEGER EDIT_STRING ZZ,ZZ9.
	10 SMALL PIC 9999 USAGE INTEGER EDIT_STRING ZZ9.
	10 LARGE PIC 9999 USAGE INTEGER EDIT_STRING ZZ,ZZ9.
!	10 MAIN_PCB PIC 9999 USAGE INTEGER EDIT_STRING ZZZZZ9.
	10 FILLER PIC XX.
	10 SUBPAR PIC 9999 USAGE INTEGER EDIT_STRING ZZ9.
	10 SPACE PIC 9999 USAGE INTEGER EDIT_STRING ZZ,ZZ9.
	10 CKP_SPACE PIC 9999 USAGE INTEGER EDIT_STRING Z,ZZ9.
	10 CKP_USED PIC 9999 USAGE INTEGER EDIT_STRING ZZZ9.
!	10 UCB PIC 9999 USAGE INTEGER EDIT_STRING ZZZZZ9.
	10 FILLER PIC XX.
	10 DEV_USED PIC 9(6) USAGE INTEGER EDIT_STRING ZZ,ZZ9.
	10 FREE_DISK PIC 9(6) USAGE INTEGER EDIT_STRING ZZZ,ZZZ,ZZ9.
	10 SEC_POOL PIC 9999 USAGE INTEGER EDIT_STRING ZZZ9.
;