Unaltered host job

//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

Hinweis: Nähere Informationen zu J2U finden Sie hier.

Meldungen von Ahlsort:

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