"Howard Brazee" <[EMAIL PROTECTED]> wrote on 04/28/2006 10:22:34 AM:
> Attached is an extract of the input file.
>
> Output file will start with:
> 00000000101800195176
> 00000000201801201036
>
Howard,
Based on the information you sent me offline, I believe this DFSORT job
will do what you asked for:
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
INCLUDE FORMAT=CH,
COND=(37,1,EQ,C'-',AND,40,1,EQ,C'-',AND,
62,1,EQ,C'-',AND,65,1,EQ,C'-',AND,70,1,EQ,C'-',AND,
95,1,EQ,C'-',AND,98,1,EQ,C'-',AND,103,1,EQ,C'-',AND,
117,1,EQ,C'-',AND,120,1,EQ,C'-')
OUTREC FIELDS=(59,3,63,2,66,4,71,2,34,3,38,2,41,4)
/*
Frank Yaeger - DFSORT Team (IBM)
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
