superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I find that this method works nicely:
Code: |
//STEP0001 EXEC PGM=ICETOOL
//VSAMIN DD DISP=SHR,DSN=VSAM.KSDS
//VSAMOUT DD DISP=SHR,DSN=VSAM.KSDS
//T1 DD DSN=&&T1,DISP=(,PASS),UNIT=SYSDA,
// SPACE=(CYL,(5,1),RLSE)
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//TOOLIN DD *
COPY FROM(VSAMIN) USING(CTL1)
COPY FROM(T1) TO(VSAMOUT)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=T1,OMIT=ALL
/*
//*
|
|
|