The last field is 117 for 4 and placed at 57. I still think the OP should be using the Symbols deck I referred to earlier.
Cheers, Martin Martin Packer, zChampion, Principal Systems Investigator, Worldwide Banking Center of Excellence, IBM +44-7802-245-584 email: [email protected] Twitter / Facebook IDs: MartinPacker Blog: https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker From: Lizette Koehler <[email protected]> To: [email protected], Date: 07/01/2012 03:06 PM Subject: Re: DCOLLECT Ouput recort Structure Sent by: IBM Mainframe Discussion List <[email protected]> > > 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 > Why is your last field so large? 57:117 Lizette ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
