Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
senjay

Active User

Joined: 10 May 2007
Posts: 147
Location: India

 Posted: Wed Jul 25, 2007 8:02 pm    Post subject: condition checking based on the part of PD value? Hi, I need to select some records based on a check by the part of a PD value in a single step. how to do this. for ex, if the PD field has 8 digit value, i need to perform the check based on last 6 digit.

William Thompson

Global Moderator

Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

 Posted: Wed Jul 25, 2007 9:42 pm    Post subject: Could you INREC reformat it to ZD and compare against that?
Frank Yaeger

DFSORT Moderator

Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

Posted: Wed Jul 25, 2007 10:34 pm    Post subject:

You can use DFSORT's PD0 format to check on the last 6 digits of a PD value. For example if you had a PD value in positions 1-5 with X'987123456C' and you wanted to check for 123456 as the last 6 digits you could use:

 Code: INCLUDE COND=(2,4,PD0,EQ,X'123456')

2,4 would be X'712346C'. Since PD0 ignores the first digit and the sign, you'd be checking for 123456 ignoring the 7 and the C. In general, the 2,4,PD0 value would be treated as X'iddddddi' where i is ignored and d is checked.
krisprems

Active Member

Joined: 27 Nov 2006
Posts: 649
Location: India

Posted: Wed Jul 25, 2007 10:42 pm    Post subject:

senjay

 Quote: i need to perform the check based on last 6 digit.

What sort of check you wanted to do? Please show an example
Because i feel that, you can use the MOD function of DFSORT and do the task in single step, by extracting only the last 6 digits of the 8digit i/p.
krisprems

Active Member

Joined: 27 Nov 2006
Posts: 649
Location: India

 Posted: Wed Jul 25, 2007 11:40 pm    Post subject: Ohh frank, you posted a simpler solution, much before than i had refreshed! However, senjay, u can find some information about PD0 under DFSORT Data Formats at http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ice1ca20/C.1?ACTION=MATCHES&REQUEST=PD0&TYPE=FUZZY&SHELF=ICE1SH20.bks&DT=20060615185603&CASE=&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&ScrollTOP=FIRSTHIT#FIRSTHIT
senjay

Active User

Joined: 10 May 2007
Posts: 147
Location: India

 Posted: Fri Jul 27, 2007 6:05 pm    Post subject: Re: condition checking based on the part of PD value? Thanks all.
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Linkage editor is part of COBOL, z/OS... ankit.jain COBOL Programming 5 Fri Apr 20, 2018 4:17 pm Query to compare 2 values of 1 column... Poha Eater DB2 13 Fri Mar 09, 2018 10:45 am Copy set of records based on condition krish.deepu SYNCSORT 2 Thu Mar 08, 2018 11:39 am How to select record x+7 or x+2 based... JoAnn Kulcyk SYNCSORT 6 Tue Jan 16, 2018 10:49 pm Split files upto certain limit based ... bubbu75 DFSORT/ICETOOL 5 Tue Nov 14, 2017 11:11 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us