Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Sorting 400 byte record in packed format

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
ankit9jain

New User


Joined: 20 Jan 2009
Posts: 17
Location: India

PostPosted: Wed Feb 18, 2009 3:48 pm    Post subject: Sorting 400 byte record in packed format
Reply with quote

I have a requirement mentioned below:
KEEP Record if one of the following condition is met:
- REC DATE > YESTERDAY'S DATE
- REC DATE = YESTERDAY'S DATE AND
REC has values equal to zero in column 11-16
- REC DATE = YESTERDAY'S DATE AND
REC has 'N' in column 388 and 'C' in col 390

Input file has date in col 1-5 in Packed format
Input and output both are 400 byte record in packed format. i wrote the below sort card for it but it is not giving the desired result.
Code:

OPTION COPY                   
INCLUDE COND=(1,5,PD,GT,TARGET,
        OR,1,5,PD,EQ,TARGET,   
        AND,11,6,PD,EQ,ZEROES,
        OR,1,5,PD,EQ,TARGET,   
        AND,388,1,CH,NE,C'N', 
        AND,390,1,CH,NE,C'C') 

i am using TARGET as the label for the yesterday's date using different code .
Could anyone let me know whether the code is correct according to the req. i have mentioned
Back to top
View user's profile Send private message

aishwarya_20

New User


Joined: 19 Nov 2008
Posts: 57
Location: pune

PostPosted: Wed Feb 18, 2009 3:54 pm    Post subject:
Reply with quote

Hi,

Please try with this.
OPTION COPY
INCLUDE COND=((1,5,PD,GT,TARGET),
OR,(1,5,PD,EQ,TARGET,
AND,11,6,PD,EQ,ZEROES),
OR,(1,5,PD,EQ,TARGET,
AND,388,1,CH,NE,C'N',
AND,390,1,CH,NE,C'C'))
Back to top
View user's profile Send private message
ankit9jain

New User


Joined: 20 Jan 2009
Posts: 17
Location: India

PostPosted: Wed Feb 18, 2009 4:18 pm    Post subject: Reply to: Sorting
Reply with quote

thanks...
but it is still not working..
it is saying syntax error
PD,EQ,ZEROS)
*
Back to top
View user's profile Send private message
aishwarya_20

New User


Joined: 19 Nov 2008
Posts: 57
Location: pune

PostPosted: Wed Feb 18, 2009 4:42 pm    Post subject:
Reply with quote

Then there would syntax problem. Check the ZEROS spelling if it is correct syntax
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Wed Feb 18, 2009 10:07 pm    Post subject:
Reply with quote

ankit9jain,

Use the following control cards. You don't have to spell out zeros.
Code:

  OPTION COPY                   
  INCLUDE COND=((1,5,PD,GE,TARGET,AND,11,6,PD,EQ,0),OR,
    (1,5,PD,EQ,TARGET,AND,388,1,CH,NE,C'N',AND,390,1,CH,NE,C'C')) 
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Format issues using XMITIP MSGDD ssdjp1 CLIST & REXX 3 Mon Oct 23, 2017 8:47 pm
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
No new posts Convert rows and column into JSON for... Dinesh Manivannan DB2 2 Sun Sep 03, 2017 6:50 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us