Hello João -
I think there is some confusion because you are asking a VSE question on
a VM discussion list. So this is a VSE solution.
You say you know the extent of the data so what you need to do is get an
entry in the VTOC that includes the extent of the data without altering
the data.
Here is a program that will put an entry for a sequential disk in the VTOC.
* $$ JOB JNM=PUTVTOC,CLASS=8
* $$ LST CLASS=C
// JOB PUTVTOC
/* D=03/17/2001,T=14:16:42,L=FRAN,N=J.PUTVTOC ,U=FRAN */
// OPTION LINK
// EXEC ASMA90
PUTVTOC START 0
BALR 10,0
USING *,10
OPEN UOUT
EOJ
UOUT DTFPH TYPEFLE=OUTPUT,DEVICE=DISK,DEVADDR=SYS005
END
/*
// EXEC LNKEDT
// DLBL UOUT,'THIS IS MY FILE',0,SD
// EXTENT SYS005,888888,1,0,720,300
// ASSGN SYS005,DISK,VOL=888888,SHR
// EXEC
/&
* $$ EOJ
Change the EXXTENT stateent to match th extent where you found the data.
Run th eprogram and then you can use any sequential read program to get
the data. I'm not sure if this will be helpful especially if the VSAm file
had FREESPACE defined and it was used.
Good luck
/Fran Hensler at Slippery Rock University of Pennsylvania USA for 46 years
mailto:f...@zvm.sru.edu http://zvm.sru.edu/~fjh +1.724.738.2153
"Yes, Virginia, there is a Slippery Rock"
--------------------------------------------------------------------------
On Sat, 16 May 2009 21:02:14 -0300 Carlos_dos_Reis_Baptista said:
>I must agree I was very vague on reporting my problem.
>Anyway, I shall begin thanking you all.
>
>I am running a recovery on lost ESDS VSAM file due to VSAM UCAT disaster on a
>VM/ESA+VSE/ESA (both 2.3 backlevel versions) installation.
>I have inspected the file volume ( I had a full listcat showing only one
>extension, in the beginning of the 3390 pack).
>So I have done a DDR PRINT and the user identified his file records. That was
>great, so now I have to extract the vsam CI's from the middle of a VSAM SPACE
>and put them
>in a sequential file for the user to pick his records back.
>
>Well, how should I pick those 4k records in the midle of a 3390 extent ?
>
>I have never used PIPE but I Will read about it, you may bet, but if there is
>another simple way, please drop me some lines about it.
>
>
>Thanks you all for the comments.
>
>(PS: All these problems will vanish as soon as my new Green z10+zVM+zVSE pack
>arrives)
>
>
>Atenciosamente,
>João Carlos R. Baptista
>Tel ( 21) 3147 - 9565
>Gerencia de Tecnologia e Serviços
>Gravames.com
>
>
