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
 

 

SEQ VB file -SORT Condition for BINARY and ALPHA NUMBERIC

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

New User


Joined: 03 May 2007
Posts: 27
Location: India

PostPosted: Tue Jun 23, 2009 2:24 pm    Post subject: SEQ VB file -SORT Condition for BINARY and ALPHA NUMBERIC
Reply with quote

Dear team,

The INPUT file is Sequential file with RECORD FORMAT as VB

I want to select the records with the below condition to a output file of same characteristic of a input file

1) FILE-CODE --> START -11 END - 12 PIC X(02) Select Condition =’AD’
2) FIELD-CODE --> START - 65 END - 66 PIC S9(04) Select Condition = 0
3) ORG -->START - 13 END - 15 PIC 9(03) Sort by Ascending order AND
4) ACT --> START - 16 END - 34 PIC X(19) Sort by Ascending order

Sort file from FIELD CODE = zero and FILE CODE = ‘AD’ and SORT with ORG and ACC in Ascending order.

I have tried this, but not working

Code:

  SORT FIELDS=(13,22,CH,A)
   INCLUDE COND=((11,2,CH,EQ,C’AD’),AND,
       (65,2,BI,EQ,0))


I have tried this, but not working

Code:

  SORT FIELDS=(13,22,CH,A)
  INCLUDE COND=((11,2,CH,EQ,C’AD’),AND,
     (65,2,CH,EQ,C’0’))


Please help me in resolving this issue.

Thanks & Regards,
Nivisaya
Back to top
View user's profile Send private message

Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Tue Jun 23, 2009 3:00 pm    Post subject: Reply to: SEQ VB file -SORT Condition for BINARY and ALPHA
Reply with quote

Nivasaya,

Quote:
The INPUT file is Sequential file with RECORD FORMAT as VB


As your Input file is VB the data always starts from position 5 leaving 4 bytes for RDW.
Back to top
View user's profile Send private message
nivasaya

New User


Joined: 03 May 2007
Posts: 27
Location: India

PostPosted: Tue Jun 23, 2009 3:23 pm    Post subject:
Reply with quote

Thanks Aaru Vedam and Team,

Yes it worked adding 4 bytes for VB

Code:

  SORT FIELDS=(17,22,CH,A)
  INCLUDE COND=((15,2,CH,EQ,C’AD’),AND,
       (69,2,BI,EQ,0))


Thanks & Regards,
Nivasaya
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Tue Jun 23, 2009 3:51 pm    Post subject: Reply to: SEQ VB file -SORT Condition for BINARY and ALPHA
Reply with quote

You are welcome !
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


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

PostPosted: Tue Jun 23, 2009 9:11 pm    Post subject:
Reply with quote

FYI, the INCLUDE statement can be simplified to:

Code:

  INCLUDE COND=(15,2,CH,EQ,C'AD',AND,69,2,BI,EQ,0)
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 Multiple VSAM files single output fil... Mohan Kothakota DFSORT/ICETOOL 11 Wed Aug 09, 2017 7:57 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am
No new posts Split file based on comparsion to 2 f... Div Grad DFSORT/ICETOOL 3 Thu Jul 27, 2017 9:16 pm
No new posts Extra character appears in file when ... Balu5491 All Other Mainframe Topics 1 Wed Jul 26, 2017 2:39 pm
No new posts SSH - known_hosts file configuration vasanthz All Other Mainframe Topics 2 Wed Jul 26, 2017 2:10 am


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