Prestage TS7700

Manejo de almacenamiento tanto en discos como en medios magneticos, DFSMSxxx (todo lo relacionado con el SMS).
Responder
david bajo

Prestage TS7700

Mensaje por david bajo » 27 Jul 2010, 08:35

Buenos días,

Alguién dentro del subsistema de robotica TS7700 ha utilizado la nueva función PRESTAGE que viene dentro de sus IBMTOOLS,
ftp://ftp.software.ibm.com/storage/tapetool , agradecería por favor si alguién pudiera mandar un ejemplo, la documentación es escasa y no viene bien documentada. Se trata de realizar un job de precarga para aliviar el rendimiento del virtualizador.

Gerardo

Re: Prestage TS7700

Mensaje por Gerardo » 02 Ago 2010, 15:59

Hola David:

Alguna vez utilicé este utilitario, pero no era lo que era lo que buscaba. Ahorita, así corrió:

//U03PREST JOB 03400037,TIME=1440,CLASS=Z,
// MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=GTORO,REGION=4M
//*
//* STEPS:
//* 1. RUN BVIRVTS (TYPE=VOL) TO GET VOLFILE OR TYPE=CACH FOR TS7720.
//* 2. SUPPLY A SAMPLE JOB CARD IN THE JOBCARD DD STATEMENT BELOW.
//* A. CONSIDER USING A UNIQUE INITIATOR CLASS TO AVOID CONFLICTS.
//* 3. THE USER ON THIS JOB CARD MUST HAVE LABEL=(1,BLP) AUTHORITY.
//* 4. REVIEW CONTROL PARMS IN SYSCNTL DD STATAMENT OF THIS JOB.
//* 5. SUPPLY THE LIST OF VIRTUAL VOLUMES TO BE RECALLED.
//* 6. SUBMIT THIS JOB AND WAIT FOR RECALL JOBS TO COMPLETE.
//* 7. RUN PRODUCTION JOBS THAT REQUIRE THE RECALLED VOLUMES.
//*
//BVIRMCH PROC TOOLHLQ=SYS0, HLQ FOR LOAD AND CNTL
// USERHLQ=GTORO, HLQ FOR USER DATA (1-13 BYTES)
// SITE=CTC 2ND LEVEL QUALIFIER
//*
//DELETE EXEC PGM=IEFBR14
//DEL DD UNIT=SYSDA,DISP=(MOD,DELETE),SPACE=(TRK,0),
// DSN=&USERHLQ..&SITE..BVIRMCH.ORDERED
//*
//TOOLSTEP EXEC PGM=BVIRMCH,PARM='&USERHLQ'
//STEPLIB DD DISP=SHR,DSN=&TOOLHLQ..IBMTOOLS.LOAD
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(75,75))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(75,75))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(75,75))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(75,75))
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(75,75))
//EJVOLS DD DDNAME=RECALLS
//TOSTAGE DD SYSOUT=* JUST LIST THE JOBS
//EJORDER DD UNIT=SYSDA,DISP=(,CATLG),SPACE=(CYL,(25,25),RLSE),
// DSN=&USERHLQ..&SITE..BVIRMCH.ORDERED
//SORTIN DD UNIT=SYSDA,SPACE=(CYL,(75,50)),
// DCB=(RECFM=FB,BLKSIZE=0)
//SORTOUT DD UNIT=SYSDA,SPACE=(CYL,(75,50)),
// DCB=(RECFM=FB,BLKSIZE=0)
// PEND
//DOMATCH EXEC BVIRMCH
//TOOLSTEP.BVIRIN DD DISP=SHR,DSN=GTORO.BVVOLSTA.F100413.E
//*
//JOBCARD DD DATA,DLM=ZZ
//RECALL?? JOB (USERID,A47,031,KBV),USERID,
// NOTIFY=USERID,USER=USERID,TIME=10,
// REGION=0M,MSGLEVEL=(2,0),MSGCLASS=H,CLASS=A
/*JOBPARM S=????
ZZ
//SYSCNTL DD DISP=SHR,DSN=&TOOLHLQ..IBMTOOLS.JCL(EXPIRE)
// DD *
SORTBYNUMBER; SORT RECALLS BY PHYSICAL WITH MOST LOGICALS TO RECALL
VOLSERCOLUMN= 01; STARTING COLUMN OF VOLSERS TO RECALL
MGTCLASS= CL0RDD; USE TO PREFER RECALLS TO SAME CLUSTER THAT THE
MAXDR= 3; MAX PHYSICAL BACK-END DRIVES TO USE
MAXVOLS= 6; MAX LOGICAL VOLS TO RECALL PER JOB. ALL LOGICALS ARE
UNITNAME= VTAPE; UNITNAME FOR VTS/PTP RECALLING FROM
EXP98000; GENERATE LABEL=(1,BLP,EXPDT=98000),
ROUNDROBIN; USING THIS PARM WILL SELECT PHYSICAL VOLUMES FROM
//*
//RECALLS DD * PRESTAGE THIS LIST BY STACKED VOLUME
522347
539358
615409
646300
648322
648332
648376
648394
648414
648260
648244
648342
553075
553099

El proceso anterior tiene dos entradas, una (BVIRIN) que se genera con un proceso similar a este:

//U03KVOLU JOB 03400037,TIME=1440,CLASS=Y,USER=TSORACF,
// MSGCLASS=X,MSGLEVEL=(1,1),REGION=6M
//*
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
VTS BULK VOLUME DATA REQUEST
VOLUME STATUS ______
//SYSUT2 DD DSN=GTORO.BVVOLSTA.F100413.E ,
// DISP=(,CATLG,DELETE),UNIT=ATLALL,
// DCB=(LRECL=80,BLKSIZE=80,RECFM=F,TRTCH=NOCOMP)
//SYSIN DD DUMMY
//*

Y luego en los RECALLS va una lista con vulúmenes, que según yo era los que queríamos chequear.

Espero que pueda servirte.

david bajo

Re: Prestage TS7700

Mensaje por david bajo » 17 Ago 2010, 08:54

Muchisimas gracias Gerardo, he estado de vacaciones en cuanto lo pruebe te comento.

Responder