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 Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 1 Fri Mar 24, 2017 3:25 pm
No new posts splitting a file abdulrafi DFSORT/ICETOOL 3 Fri Mar 24, 2017 11:51 am
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm


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