Try using a process of elimination to see if it helps determine what's causing the problem. For example, try removing the WIDTH and EXPAND statements, try removing some of the data types, try removing statements from the INIT and PROC sections (etc.), until you eventually find the statement(s) that are causing the delay. Dave Salt
SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html > Date: Fri, 3 Aug 2012 08:02:20 -0700 > From: [email protected] > Subject: question about ISPF dialog panel performance > To: [email protected] > > What would cause a panel to take 10 seconds to display. when the system is > running at 20%. > > Here is the panel that is giving the problem > > > )ATTR > # AREA(DYNAMIC) EXTEND(ON) SCROLL(ON) DATAMOD(01) > 14 TYPE(DATAIN) INTENS(LOW) > 15 TYPE(DATAIN) INTENS(LOW) > 16 TYPE(DATAIN) INTENS(LOW) > 17 TYPE(DATAIN) INTENS(LOW) > 18 TYPE(DATAIN) INTENS(HIGH) > 19 TYPE(DATAIN) INTENS(HIGH) > 1A TYPE(DATAIN) INTENS(HIGH) > 1B TYPE(DATAIN) INTENS(HIGH) > 1C TYPE(DATAIN) INTENS(NON) > 1D TYPE(DATAIN) INTENS(NON) > 1E TYPE(DATAIN) INTENS(NON) > 1F TYPE(DATAIN) INTENS(NON) > 24 TYPE(DATAIN) INTENS(LOW) > 25 TYPE(DATAIN) INTENS(LOW) > 26 TYPE(DATAIN) INTENS(LOW) > 27 TYPE(DATAIN) INTENS(LOW)28 TYPE(DATAIN) INTENS(HIGH) > 29 TYPE(DATAIN) INTENS(HIGH) > 2A TYPE(DATAIN) INTENS(HIGH) > 2B TYPE(DATAIN) INTENS(HIGH) > 2C TYPE(DATAIN) INTENS(NON) > 2D TYPE(DATAIN) INTENS(NON) > 2E TYPE(DATAIN) INTENS(NON) > 2F TYPE(DATAIN) INTENS(NON) > 34 TYPE(DATAOUT) INTENS(LOW) SKIP(ON) > 35 TYPE(DATAOUT) INTENS(LOW) SKIP(ON) COLOR(GREEN) > 36 TYPE(DATAOUT) INTENS(LOW) SKIP(ON) > 38 TYPE(DATAOUT) INTENS(HIGH) SKIP(ON) > 3A TYPE(DATAOUT) INTENS(HIGH) SKIP(ON) > 3C TYPE(DATAOUT) INTENS(NON) SKIP(ON))BODY,WIDTH(&ZSCREENW) EXPAND(//) > #DYNAREA -------------------/-/------------- > )INIT > .CURSOR = DYNAREA > .CSRPOS = &DYNPOS > )PROC > &DYNKEY = .PFKEY > &DYNPOS = .CSRPOS > &DYNDPTH = LVLINE(DYNAREA) > &ZCMD = HELP > )END > ******************************** Bottom of D > > Thanks > > John Norgauer > Senior Systems Programmer > Mainframe Technical Support Services > University of California Davis Medical Center > 2315 Stockton Blvd > ASB 1300 > Sacramento, Ca 95817 > 916-734-0536 > > SYSTEMS PROGRAMMING...... Guilty, until proven innocent !! " JN 2004 > ........ > "Hardware eventually breaks - Software eventually works" anon > ........ > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
