Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
copying first 50 records from a KSDS file using IDCAMS
- Thread starter saby
- Start date
Hi Saby,
A piece of JCL similar to below should do the trick:
//IDCAMS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=USERID.KSDS.INPUT,DISP=SHR
//DDOUT1 DD DSN=USERID.KSDS.INPUT,DISP=SHR
//SYSIN DD *
REPRO INFILE (DDIN1) OUTFILE (DDOUT1) COUNT(50)
/*
hth Marc
A piece of JCL similar to below should do the trick:
//IDCAMS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=USERID.KSDS.INPUT,DISP=SHR
//DDOUT1 DD DSN=USERID.KSDS.INPUT,DISP=SHR
//SYSIN DD *
REPRO INFILE (DDIN1) OUTFILE (DDOUT1) COUNT(50)
/*
hth Marc
Further thoughts on the IDCAMS Saby,
If you know the keys you are after, you could use FROMKEY(key) TOKEY.
If you know the relative byte address, you could use FROMADDRESS(address) TOADDRESS(address).
And if you know the relative record number, you could use FROMNUMBER(num) TONUMBER(num)
Marc
If you know the keys you are after, you could use FROMKEY(key) TOKEY.
If you know the relative byte address, you could use FROMADDRESS(address) TOADDRESS(address).
And if you know the relative record number, you could use FROMNUMBER(num) TONUMBER(num)
Marc
- Status
Similar threads
- Locked
- Question