Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
You can use a DFSORT/ICETOOL job like the following. We process the VSAM file as variable-length (V). I've assumed that the 2-character field you want to check for is in positions 11-12, so the starting position for the OMIT statement is 15 (11 + 4 for the RDW).
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//VSAMFILE DD DSN=... VSAM file
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//TOOLIN DD *
COPY FROM(VSAMFILE) TO(T1) VSAMTYPE(V) USING(CTL1)
COPY FROM(T1) TO(VSAMFILE) VSAMTYPE(V)
/*
//CTL1CNTL DD *
OMIT COND=(15,2,CH,EQ,C'25')
/*
|
For more information on processing VSAM files with DFSORT, see:
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA20/1.8.3.4?SHELF=&DT=20060615185603&CASE= |
|
