got wrong data while converting Binary data Zoned decimal

[thotlma]

HI Every one

As part one my requirmement i need convert the binary data to zoned decimal
i have used below code but i am geeting wrong data in the out put file
could you please help me to sort out issue would be great.

Code: Select all

SORT FIELDS=COPY                      
OUTREC FIELDS=(1,6,BI,TO=ZD,LENGTH=14)

Input file

Code: Select all

----+--
.gÇm.!
.g¦..!
.g%..!
.g2ÿ..
.g2ÿ..
.g2ÿ..

Out put file

Command ===>

Code: Select all

----+----1----
****** **************
000001 00000000000000
000002 00000000000000
000003 00000000000000
000004 00000000000000
000005 00000000000035
000006 00000000000106
000007 00000000000132

[enrico-sorichetti]

You should have posted the hex representation of Your data

ispf HEX ON is Your friend

[NicC]

Why post in the Forum Rules?
Topic moved.

[thotlma]

You should have posted the hex representation of Your data

ispf HEX ON is Your friend

input

Code: Select all

=COLS> ----+----1----+----2
 004457  qo"                
        09970144444444444444
        086F0400000000000000
 ----------------------------
 004458  qo"                
        09970144444444444444
        086F0F00000000000000
 ----------------------------
 004459  qo"                
        09970344444444444444
        086F0300000000000000
 ----------------------------
 004460  qo"                
        09970344444444444444
        086F0D00000000000000

output

Code: Select all

=COLS> ----+----1----+----2
004457 00000009999999      
       FFFFFFFFFFFFFF000000
       00000009999999000000
----------------------------
004458 00000009999999      
       FFFFFFFFFFFFFF000000
       00000009999999000000
----------------------------
004459 00000009999999      
       FFFFFFFFFFFFFF000000
       00000009999999000000
----------------------------
004460 00000009999999      
       FFFFFFFFFFFFFF000000
       00000009999999000000

[NicC]

That input looks like 2 packed decimal fields not one binary field.

[thotlma]

my requirement to convert input data to numeric data.
the values getting into input as defined comp vaues in cobol prog.
even i tried PD to ZD also please below out put

Code: Select all

 =COLS> ----+----1----
 004457 0000098967 001
 004458 0000098967 001
 004459 0000098967 00L
 004460 0000098967 00L

[sergeyken]

input

Code: Select all

=COLS> ----+----1----+----2
 004457  qo"                
        09970144444444444444
        086F0400000000000000
 ----------------------------
 004458  qo"                
        09970144444444444444
        086F0F00000000000000
 ----------------------------
 004459  qo"                
        09970344444444444444
        086F0300000000000000
 ----------------------------
 004460  qo"                
        09970344444444444444
        086F0D00000000000000

1) Your input data do not look like binary (e.g. COMP in COBOL, or BI/FI in SORT).
Rather they do look like packed decimal (e.g. COMP-3 in COBOL, or PD in SORT).

2) From your "files display" it is absolutely not clear how your "files" are related, at all, to your SORT statements example???
Please, present FULL example of your test (simplified as much as possible) to find out the actual processing issues.

[thotlma]

The acutual input genarating from Cobol Prog and the fields defined in cobol prog as below
XXXXX PIC S9(9) USAGE COMP
XXXXX PIC S9(4) USAGE COMP
i need to convert the above data to numeric format for other process.
i thought it was binary so i wrote a sort to convert ZD but didnot work
could you please help for this one?

[Robert Sample]

Since it is two separate fields, you have to handle each individually in SORT:

Code: Select all

SORT FIELDS=COPY                      
OUTREC FIELDS=(1,4,BI,TO=ZD,LENGTH=9,5,2,BI,TO=ZD,LENGTH=5)

Also, if the data set is variable length instead of fixed length, you need to add 4 to each of your locations because of the RDW.

[thotlma]

Its working ...Thanks a lot Robert
the data set is fixed length only.
i have some doubts about sort card .why did take length 9 and 5?
never mind if you explain clearly that would be great..