Frank Yaeger
DFSORT Moderator
Joined: 15 Feb 2005
Posts: 4621
Location: San Jose, CA
|
|
|
|
If the VSAM input records can be treated as F (fixed-length), you can use a DFSORT job like this:
| Code: |
//F EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... VSAM input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
RECORD TYPE=F
INCLUDE COND=(8,2,CH,EQ,11,2,CH)
SORT FIELDS=(p,m,f,s)
/*
|
If the VSAM input records must be treated as V (variable-length), you can use a DFSORT job like this (you must add 4 to the starting positions to account for the RDW DFSORT uses to process the records as variable-length):
| Code: |
//V EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... VSAM input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
RECORD TYPE=V
INCLUDE COND=(12,2,CH,EQ,15,2,CH)
SORT FIELDS=(p+4,m,f,s)
/*
|
For more information on processing VSAM files as F or V with DFSORT, see:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA10/1.8.3.4?SHELF=&DT=20050222160456&CASE= |
|
