|
View previous topic :: View next topic
|
| Author |
Message |
subramanianup
Warnings : 1
New User
Joined: 18 May 2005
Posts: 46
Location: Bangalore, INDIA
|
|
|
|
| How to skip some record? In a file i have process up to 400 records and then i have to skip 10 Records then i have to process next 400 records? Can anyone help reg this? |
|
| Back to top |
|
 |
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL
|
|
|
|
Few SORT ways... SKIPREC, STOPAFT, INCLUDE, OMIT etc..
Regards,
Priyesh. |
|
| Back to top |
|
|
subramanianup
Warnings : 1
New User
Joined: 18 May 2005
Posts: 46
Location: Bangalore, INDIA
|
|
|
|
| can you explain briefly? |
|
| Back to top |
|
|
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL
|
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for. I assumed your input file had RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(81:SEQNUM,8,ZD)
OUTFIL OMIT=(81,8,ZD,GE,+401,AND,81,8,ZD,LE,+410),
BUILD=(1,80)
/*
|
|
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
You can now do this more easily using the new SUBSET operator of DFSORT's ICETOOL available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008) like this:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file (FB/80)
//OUT DD DSN=... output file (FB/80)
//TOOLIN DD *
SUBSET FROM(IN) TO(OUT) REMOVE INPUT RRN(401,410)
/*
|
For complete details on the new SUBSET function and the other new functions available with PTF UK90013, see:
Use [URL] BBCode for External Links |
|
| Back to top |
|
|
|
|
