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 BUILD OUTFIL based on condition other... balaji81_k DFSORT/ICETOOL 13 Fri Sep 08, 2017 11:06 pm Repeat part of record multiple times Learncoholic DFSORT/ICETOOL 4 Tue Aug 29, 2017 11:33 am How do you create Eclipse based dialogs jasorn IBM Tools 0 Thu Aug 03, 2017 5:05 pm Split file based on comparsion to 2 f... Div Grad DFSORT/ICETOOL 3 Thu Jul 27, 2017 9:16 pm NDM syntax checking without actually ... GAPX1 All Other Mainframe Topics 0 Wed Jun 07, 2017 2:36 am

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