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
- 41535 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 |
which utility is used to run a cobol-db2 program?
WORKING-STORAGE SECTION. 01 GROSS-PAY. 05 BASIC-PAY PIC 9(5). 05 ALLOWENCES PIC 9(3). PROCEDURE DIVISION. MOVE 1000 TO BASIC-PAY. MOVE 250 TO ALLOWENCES. DISPLAY GROSS-PAY. STOP RUN. 77 W-A PIC 9(3)V99 VALUE 23.75 77 W-B PIC ZZ9V99 VLAUE 123.45 after the statement MOVE W-A TO W-B what will be W-B's value? a.123.75 b.b23.75 (where b indicates space) c.023.75 d.invalid move
How we can code in a jcl to execute a job in a particular time and date without using any job shudular?. (Eg) i want to execute a particular job at 8 am on 01/01/2010.
The disp in the JCL is MOD and the program opens the file in OUTPUT mode. What happens ? The disp in the JCL is SHR and the pgm opens the file in EXTEND mode. What happens ?
you have one jcl .in sort step 5 files are there.if out of 5 files if one file is uncataloged or not there then how will you correct your jcl so that problem does not come. you should not create this file externally.how will u overcome it.
How do you restart a PROC from a particular step?
what is the alternative to model parameter?
What parameters can be used to limit the number of records written to a sysout dataset?
What do you understand by jcl?
How to fetch even records from one file to another file by using ICETOOL in JCL?
Explain about Cobol Subroutines
If a jcl has just 1 step and the input file to this does not exist, then what will happen if we submit this job?
COBOL 
