DCL SPCPTR .SCREEN INIT(SCREEN); DCL DD SCREEN CHAR(10) INIT("T010310020"); DCL DD S-TITLE CHAR(20) INIT("Entropy Pool Monitor"); DCL DD * CHAR(10) INIT("L010580022"); DCL DD S-DATE-TIME CHAR(22) INIT(" "); DCL DD * CHAR(10) INIT("L030010030"); DCL DD * CHAR(30) INIT(" "); DCL DD * CHAR(10) INIT("T030310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("T030430010"); DCL DD * CHAR(10) INIT(" Cur."); DCL DD * CHAR(10) INIT("T030550010"); DCL DD * CHAR(10) INIT(" Avg."); DCL DD * CHAR(10) INIT("T030670010"); DCL DD * CHAR(10) INIT(" Max."); DCL DD * CHAR(10) INIT("L040010030"); DCL DD * CHAR(30) INIT(" "); DCL DD * CHAR(10) INIT("T040310010"); DCL DD * CHAR(10) INIT(" Value"); DCL DD * CHAR(10) INIT("T040430010"); DCL DD * CHAR(10) INIT(" Change"); DCL DD * CHAR(10) INIT("T040550010"); DCL DD * CHAR(10) INIT(" Change"); DCL DD * CHAR(10) INIT("T040670010"); DCL DD * CHAR(10) INIT(" Change"); DCL DD * CHAR(10) INIT("L050010030"); DCL DD * CHAR(30) INIT("CPU time by Thread . . . . . "); DCL DD * CHAR(10) INIT("L050310010"); DCL DD S-VALUE-1ST CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L050430010"); DCL DD S-CURCHG-1ST CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L050550010"); DCL DD S-AVGCHG-1ST CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L050670010"); DCL DD S-MAXCHG-1ST CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L060010030"); DCL DD * CHAR(30) INIT("Yield time . . . . . . . . . "); DCL DD * CHAR(10) INIT("L060310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L060430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L060550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L060670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L070010030"); DCL DD * CHAR(30) INIT("Internal call count . . . . "); DCL DD * CHAR(10) INIT("L070310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L070430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L070550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L070670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L080010030"); DCL DD * CHAR(30) INIT("Yield time . . . . . . . . . "); DCL DD * CHAR(10) INIT("L080310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L080430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L080550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L080670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L090010030"); DCL DD * CHAR(30) INIT("Total Processor time . . . . "); DCL DD * CHAR(10) INIT("L090310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L090430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L090550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L090670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L100010030"); DCL DD * CHAR(30) INIT("Yield time . . . . . . . . . "); DCL DD * CHAR(10) INIT("L100310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L100430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L100550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L100670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L110010030"); DCL DD * CHAR(30) INIT("System Storage counters . . "); DCL DD * CHAR(10) INIT("L110310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L110430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L110550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L110670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L120010030"); DCL DD * CHAR(30) INIT("Yield time . . . . . . . . . "); DCL DD * CHAR(10) INIT("L120310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L120430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L120550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L120670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L130010030"); DCL DD * CHAR(30) INIT("Storage Pool activity . . . "); DCL DD * CHAR(10) INIT("L130310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L130430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L130550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L130670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L140010030"); DCL DD * CHAR(30) INIT("Yield time . . . . . . . . . "); DCL DD * CHAR(10) INIT("L140310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L140430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L140550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L140670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L150010030"); DCL DD * CHAR(30) INIT("Disk activity . . . . . . . "); DCL DD * CHAR(10) INIT("L150310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L150430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L150550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L150670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L160010030"); DCL DD * CHAR(30) INIT("Yield time . . . . . . . . . "); DCL DD * CHAR(10) INIT("L160310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L160430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L160550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L160670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L170010030"); DCL DD * CHAR(30) INIT("MPL activity . . . . . . . . "); DCL DD * CHAR(10) INIT("L170310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L170430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L170550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L170670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L180010030"); DCL DD * CHAR(30) INIT("Yield time . . . . . . . . . "); DCL DD * CHAR(10) INIT("L180310010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L180430010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L180550010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L180670010"); DCL DD * CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L200010030"); DCL DD * CHAR(30) INIT("Confidence level . . . . . . "); DCL DD A-CONFIDENCE CHAR(10) INIT("L200310010"); DCL DD S-CONFIDENCE CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L200430020"); DCL DD * CHAR(20) INIT(" > 80 is good"); DCL DD * CHAR(10) INIT("L200570010"); DCL DD S-MAX-YIELDS CHAR(10) INIT(" "); DCL DD * CHAR(10) INIT("L210010030"); DCL DD * CHAR(30) INIT("SHA Value . . . . . . . . . "); DCL DD * CHAR(10) INIT("L210310040"); DCL DD S-HEX-ENTROPY CHAR(40) INIT(" "); DCL DD * CHAR(10) INIT("U230010079"); /* INFORMATIONAL */ DCL DD S-PFKEYS CHAR(79); DCL DD * CHAR(40) DEF(S-PFKEYS) POS( 1) INIT ("F3=Exit F5=Refresh F10=Restart F11=Ke"); DCL DD * CHAR(39) DEF(S-PFKEYS) POS(41) INIT ("ep good F12=Cancel F19=Start Auto"); DCL DD A-MESSAGE CHAR(10) INIT("T240010079"); /* MESSAGE LINE */ DCL DD S-MESSAGE CHAR(79) INIT(" "); DCL DD * CHAR(10) INIT(".000000000"); /* END OF SCREEN */ DCL DD TOP-OF-SCREEN CHAR(1); DCL SPCPTR .TOP-OF-SCREEN INIT(TOP-OF-SCREEN); DCL DD SCREEN-SIZE BIN(4); DCL DD SCREEN-IMAGE CHAR(4000) BAS(.SCREEN);