Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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 Need to write record of PS File in ex... Chandan1993 JCL & VSAM 1 Wed Jun 07, 2017 1:35 am
No new posts Sorting of hex values Saurabh_mi DFSORT/ICETOOL 11 Thu May 25, 2017 3:49 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us