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
 

 

Logical Thinking

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

New User


Joined: 18 May 2005
Posts: 46
Location: Bangalore, INDIA

PostPosted: Thu Feb 02, 2006 1:02 pm    Post subject: Logical Thinking
Reply with quote

You have VB file as input, there is Account Number field with picture clause 9(10) comp 3 starting at 7th position in input file. how do you write a sort card using Account No as the Control Field?
Back to top
View user's profile Send private message

Vidusha

New User


Joined: 01 Feb 2006
Posts: 20
Location: Chennai

PostPosted: Thu Feb 02, 2006 2:26 pm    Post subject:
Reply with quote

I think SORT FIELDS=(7,10,PD) will work. Is there any difference in sorting for FB and VB Record format?

Thanks
Vidhya
Back to top
View user's profile Send private message
Vidusha

New User


Joined: 01 Feb 2006
Posts: 20
Location: Chennai

PostPosted: Thu Feb 02, 2006 2:39 pm    Post subject:
Reply with quote

Sorry..The First parameter, position change for VB. it is +4.
So SORT FIELDS=(11,10,pd).

Thanks
Vidhya
Back to top
View user's profile Send private message
subramanianup
Warnings : 1

New User


Joined: 18 May 2005
Posts: 46
Location: Bangalore, INDIA

PostPosted: Wed Feb 08, 2006 3:47 pm    Post subject:
Reply with quote

SORT FIELDS=(11,6,pd).

For COMP-3 filed we have to give length only not total chars
Back to top
View user's profile Send private message
fixdoubts

New User


Joined: 21 Oct 2005
Posts: 54

PostPosted: Wed Feb 08, 2006 4:02 pm    Post subject:
Reply with quote

Hi,

Subramanianup is right.
Since yours is a VB file first four bytes will contain control info your
record starts at fifth position only and your are using a
COMP-3 field which i half byte in length plus the sign byte will make
the 9(01) comp 3 to be of 6 bytes in length

SO the sort card will be

SORT FIELDS=(11,6,PD).

Correct me if am wrong.

Regards,
Back to top
View user's profile Send private message
prabs2006

Active User


Joined: 12 Jan 2006
Posts: 103

PostPosted: Thu Feb 09, 2006 5:44 pm    Post subject:
Reply with quote

Hi,

But there is no sign bit explicitly mentioned. The Q says picture clause 9(10) comp 3. So shouldn't it be a SORT FIELDS=(11,5,PD) ?

Thanks & regards
Prabs
Back to top
View user's profile Send private message
subramanianup
Warnings : 1

New User


Joined: 18 May 2005
Posts: 46
Location: Bangalore, INDIA

PostPosted: Thu Feb 09, 2006 5:54 pm    Post subject:
Reply with quote

hi,
for length calculation always (n/2) +1, so if you are not mention it will take 6 bytes only

so it will be SORT FIELDS=(11,6,PD)
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: Thu Feb 09, 2006 10:10 pm    Post subject:
Reply with quote

9(10) comp-3 and S9(10) comp-3 are both equivalent to 6-byte PD fields as far as DFSORT is concerned. Internally, the value looks like this: X'0dddddddddds'. With 9(10), s will always be positive. With S9(10), s can be positive or negative.

For a table showing the relationship of COBOL data types to DFSORT formats, see:

http://www.ibm.com/servers/storage/support/software/sort/mvs/professor_sort/srtmacfm.html
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 FileAid to compare(logical operations... anand1204 Compuware & Other Tools 3 Wed Apr 06, 2016 2:55 am
No new posts Logical Processors vasanthz All Other Mainframe Topics 4 Mon Sep 08, 2014 11:49 pm
No new posts DD name access using multiple logical... chandraBE COBOL Programming 1 Wed Apr 30, 2014 2:45 pm
No new posts Logical Processors - LPARs Max limit vasanthz All Other Mainframe Topics 6 Sat Oct 26, 2013 12:49 am
No new posts WER255A VSAM LOGICAL ERROR 1C ON OUTPUT Rijit ABENDS & Debugging 5 Tue Jun 04, 2013 12:39 am


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