priyesh.agrawal
Senior Member
Joined: 28 Mar 2005 Posts: 1448 Location: Chicago, IL
|
|
|
|
Code: |
//S010 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=RECORDS.INPUT,DISP=SHR
//OUT DD DSN=RECORDS.OUT,
// DISP=(,CATLG,DELETE)
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(S,L,FM) NODUPS
// |
S= Starting position of the Key
L= Key Length
FM= Format (e.g. "CH" for character) |
|