Interested to Buy Any Domain ? << Click Here >> for more details...
If a field is declared as a comp-3 field and if we want to
sort a dataset based on this field, then how will the sort
card be???
e.g- if we want to sort by a field which is defined as a
PIC X(5) then we will mention - sort fields=(1,5,ch,a).
Likewise if a field is defined as PIC S9(10)COMP-3 then in
this case how will the sort field be defined (because in
this case a sign is also involved)???
- 8 Answers
- 41814 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / muttiah
Let's discuss what are all formats we have in sort
X/A - CH
Comp - BI
Comp-3- PD
9 - ZD/CH
So, Here we need to calculate how many bytes does the field
S9(10)comp-3 occupies.
10/2 + 1 = 5 + 1 = 6 bytes
Say field start's @ position 10then the sort command would
be like this..
Sort fields=(10,6,PD,A/D)
Hope this clarifies
| Is This Answer Correct ? | 9 Yes | 0 No |
Answer / albert
We have to specify the sort card like below.
Sort fields=(1,5,PD,A) -> PD is packed decimal
| Is This Answer Correct ? | 12 Yes | 6 No |
Answer / asish
Yes Bramar is right.
The sort card should be like this
sort fields=(1,6,PD,A)
| Is This Answer Correct ? | 6 Yes | 3 No |
Answer / manikandan
yes bramar ur s correct...
s9(10) comp-3 allocate 6 bytes..so sort fields will be
sort fields=(1,6,pd,a)
| Is This Answer Correct ? | 3 Yes | 2 No |
Answer / y@$w@nth
PIC S9(10)COMP-3
(n+1)/2 i.e (10+1)/2 11/2 =6(it fill follow round approach
if the result is in decimals)
so comp-3 allocates 6 bytes and the data inside comp-3 field
is stored in packed decimal format then we have to give
sort fields=(1,6,pd,a)
(or)
sort fields=(1,6,a) format=pd
| Is This Answer Correct ? | 2 Yes | 1 No |
Answer / shailesh soni
Sort card for sorting Comp 3 field is
sort fields = (1,6,PD,A)
| Is This Answer Correct ? | 0 Yes | 0 No |
How to identify in JCL that an input file is empty without reading it?
what type of version is we r using now real time in all modules(cobol, jcl, cics, db2, vsam)?
While using SORT FILES =NONE,XSUM I am getting error "ICE172A E XSUM IS NOT SUPPORTED - USE ICETOOL SELECT IF APPROPRIATE"..I want to write duplicate records a a serparte file..how i can do tht?
Could anyone please suggest me what is the maximum length of data that can be pass as input in //sysin dd * This was asked in interview. TIA
wht is sysudump n sysout,sysprint ?
Can we have a JOBSTEP without any EXEC ?
Explain about Specifying compiler options in the PROCESS (CBL) statement
If job is submitted with typerun = hold then how can we submit the same job?
Can I send output of job to my remote device careerride123?
How to check empty file in jcl?
Suppose we have 5 steps in a job.No step should be executed After submitting every step in a job
How is a dataset passed from one step to another?
COBOL 
