//J2U0025 JOB 'J2U0025',TIME=(NOLIMIT),NOTIFY=&SYSUID
//*
//RUBOUT EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE J2U.J2U0025.*
SET MAXCC = 0
//*
//****** SORT WITH OUTREC-STATEMENT
//****** Convert a file from IXF-Host format to DEL
//* (Delimited format )
//SORT EXEC PGM=SORT,REGION=6M
//SYSOUT DD SYSOUT=*
//SORTIN DD *
C05KD_NR NYNR49600000 000002
C09KD_STATUS NYNR50000000 000014
C11ASNR_BETREU NYNR49600000 000021
D 0010018998 00001 0000000086
D 0010018999 00001 0000000086
D 0010019000 00001 0000000086
//SORTOUT DD DISP=(NEW,PASS),LRECL=50,UNIT=WORK
//SYSIN DD *
SORT FIELDS=(08,10,A), KD_NR
FORMAT=CH
*
* Only Data records (file type = "D"
INCLUDE COND=(1,1,CH,EQ,C'D')
*
* Construct records in DEL-Format
OUTREC FIELDS=(01:C'"',08,10,
12:C'";"',20,05,
20:C'";"',27,10,
33:C'"')
/*
//****** Show result; should look like this:
//* "0010018998";"00001";"0000000086"
//* "0010018999";"00001";"0000000086"
//* "0010019000";"00001";"0000000086"
//GENER EXEC PGM=ICEGENER,COND=(4,LT)
//SYSUT1 DD DISP=(OLD,DELETE),DSN=*.SORT.SORTOUT ** referback
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY

ICY0205I	Ahlsort for Unix, version 7.1a
ICY0001I	Copyright (c) 1997-2004 Ahlbrandt Software, Inc.
ICY0206I	Little Rock, Arkansas, (501) 707-6000, support@ahlsort.com
ICY0212I	See www.ahlsort.com for updates
ICY0530I	File /data/mandant1/j2utest/tmp/gT0bcG7sIb/Sysin_temp, Records In 14
ICY0031I	RECORD TYPE=T,LENGTH=80
ICY0031I	SORT FIELDS=(08,10,A),FORMAT=CH
ICY0031I	INCLUDE COND=(1,1,CH,EQ,C'D')
ICY0031I	OUTREC FIELDS=(01:C'"',08,10,12:C'";"',20,05,20:C'";"',27,10,33:C'"')
ICY0530I	File /data/mandant1/j2utest/tmp/gT0bcG7sIb/INSTREAM3.6101, Records In 6
ICY0531I	File /data/mandant1/j2utest/tmp/gT0bcG7sIb/SORTOUTR.SORT.2006-07 -11.095712.__SYS-2006-07-11-095714.SORTOUTR.0, Records Out 3
ICC0004B	CPU Time: 0 seconds, Elapsed Time: 0 seconds
ICC0011I	End Ahlsort