You include statement does not do what your think. It selects two types of
records:
records where DCURCTYP is "D " and DCDGDS is 1
any record where bit 4 at offset 69 is set
Consequently, you are processing records where 117,4 is not packed decimal.
You want to limit the selection to records where
DCURCTYP is "D " and either
DCDGDS is 1 or
DCDPDSE is 1
You need to rework your parentheses.
:>: -----Original Message-----
:>: From: IBM Mainframe Discussion List [mailto:[email protected]] On
:>: Behalf Of Ravi Gaur
:>: Sent: Sunday, July 01, 2012 4:42 AM
:>: To: [email protected]
:>: Subject: Re: DCOLLECT Ouput recort Structure
:>:
:>: Thankyou all for your responses..Appreciated.
:>:
:>: May I have another quick question on the Dcollect TYPE'D" ..
:>:
:>: I am trying to print the following fields using build statement in
:>: ICETOOL get 0C7 - Data exception:
:>:
:>: 108(X'6C') CHARACTER 4 DCDEXPDT EXPIRATION DATE (yyyyddd F)
:>:
:>: It's PD(Packed decimal) and could not see reference point to convert it
:>: to print (basically needed a manual refrence point so that if use other
:>: variable could convert them as well).
:>:
:>: Code :-
:>: OPTION VLSHRT
:>: MERGE FIELDS=COPY
:>: INCLUDE COND=((9,2,CH,EQ,C'D ',AND,
:>: 74,1,BI,EQ,B'....1...',OR,
:>: 74,1,BI,EQ,B'...1....'))
:>: OUTFIL FNAMES=REPORTD,VTOF,
:>: BUILD=(1,4, * RDW
:>: 5:29,44, * DATASET NAME
:>: 49:83,6, * VOLUME SERIAL NUMBER
:>: 57:117,4,PD,M11) * LAST REFERENCE DATE
:>: =====> 0C7 Error
:>: END
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
