Rob,

Thanks for that. In your previous reply, you said that FIRSTTOUCH touched
all programs, so I was curious what that meant :-)

Crispin.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Friday, August 14, 2009 2:18 PM
To: Midrange Systems Technical Discussion
Subject: Re: slow response time for first, and only first time program is
run.

/*********************************************************************/
/* -------------------- Program Identification: ---------------------*/
/* FSTTOUCHC - First touch of files after IPL for backup */
/* Similar to steps in V5R3 "iSeries Performance Capabilities Ref." */
/* section 15.16 Slower Save After an IPL. */
/* This program will perform "first touch" processing of all PF and */
/* LF files in all user libraries via DSPFD *MBRLIST to QTEMP. .*/
/* This should be a low priority batch program running after an IPL. */
/* Thus, the first save length of time should be more consistent */
/* with subsequent save times as "first touch" should be done here. */
/* Objects first touched go through additional checking and this */
/* first touch: */
/* 1. Initializes the objects so there is a temporary working space. */
/* 2. Pages portions of objects into main memory so no disk access. */
/* */
/* -------------------- Modification Log: ---------------------------*/
/* CTS00 09/28/06 Written by Craig Strong. */
/* */
/*********************************************************************/
PGM

/* Create the member list definition in QTEMP. */

CRTDUPOBJ OBJ(QAFDMBRL) FROMLIB(QSYS) OBJTYPE(*FILE) +
TOLIB(QTEMP) NEWOBJ(FDMBRL)

CHGPF FILE(QTEMP/FDMBRL) SIZE(*NOMAX)

/* Populate the database file member list. */
DSPFD FILE(*ALLUSR/*ALL) TYPE(*MBRLIST) OUTPUT(*OUTFILE)
+
FILEATR(*PF *LF) OUTFILE(QTEMP/FDMBRL)

ENDPGM



Rob Berendt

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].