IBM Mainframe Discussion List <[email protected]> wrote on 
07/04/2012 10:43:09 PM:

> From: Ravi Gaur <[email protected]>
> To: [email protected], 
> Date: 07/04/2012 10:43 PM
> Subject: Re: DCOLLECT Ouput recort Structure
> Sent by: IBM Mainframe Discussion List <[email protected]>
> 
> Got it sorted ..it's more DFSORT OUTREC i should have used rather 
> than Build as that doesn't support the PD to ZD conversion function.
> 
> OPTION VLSHRT 
> MERGE FIELDS=COPY 
> INCLUDE COND=((9,2,CH,EQ,C'D ',AND, 
>               74,1,BI,EQ,B'....1...')) 
> OUTFIL FNAMES=DCOLOUT,CONVERT, 
> OUTREC=(1,4,                          * RDW 
>        5:29,44,                       * DATASET NAME 
>        49:83,6,                       * VOLUME SERIAL NUMBER 
>        57:109,4,PD,TO=ZD,LENGTH=7,    * CREATION DATE 
>        66:117,4,PD,TO=ZD,LENGTH=7,    * LAST REFERENCE DATE 
>        180:X)                          * PAD WITH BLANKS 
> END 
> 
> I could include 74,1,BI,EQ,B'...1....') for PDSE as well and that's 
> working good as well...
> 
> Thanks all who responded..I always try to put the solution back 
> since might other who looking for same inforamtion get it useful.
> Thanks,Ravi
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
> 

Ravi,

It is your Data that have invalid Packed decimal fields which resulted in 
a S0C7. It is has got nothing to do with how DFSORT'S BUILD works. Earlier 
you used an EDIT mask for the Date field and now you are converting it to 
a ZD field. The BUILD works the same way as OUTREC. So replace your OUTREC 
with BUILD and it would NOT make a difference. 

Sri Hari Kolusu
DFSORT Development
IBM Corporation
Email: [email protected]
Phone: 408-463-2403 Tie Line 543-2403

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to