TizMe
New User
Joined: 05 Jan 2006 Posts: 72
|
|
|
|
Using standard IBM utilities you can use the following JCL to prime a KSDS with one low values record.
I use this for a KSDS with lrecl=96 and a KEYLEN=44 (offset=0)
You should be able to modify it for your own file.
Code: |
//IEBDG EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=*
//PRIMER DD DSN=&&PRIMER,DISP=(NEW,PASS),UNIT=VIO,
// DCB=(RECFM=F,LRECL=96,BLKSIZE=96),SPACE=(TRK,(1))
//SYSIN DD *
DSD OUTPUT=(PRIMER)
FD NAME=A,LENGTH=44,STARTLOC=1,PICTURE=44,
'00000000000000000000000000000000000000000000'
CREATE NAME=A
END
/*
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INPRIMER DD DSN=&&PRIMER,DISP=(OLD,DELETE)
//KSDS DD DSN=............,DISP=OLD
//SYSIN DD *
REPRO OFILE(KSDS) INFILE(INPRIMER)
/* |
|
|