TS70363
New User
Joined: 07 Apr 2010 Posts: 94 Location: Bangalore, India
|
|
|
|
Hi all,
I have tried out the below jcl...
Code: |
//STEP1 EXEC PGM=SYNCSORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
65535
0244
000J
0010
/*
//SORTOUT DD DSN=TEST.SORT.OUT.PS7,DISP=SHR
//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(1:1,05,ZD,TO=BI,LENGTH=2)
/* |
This is working fine for all unsigned zoned decimal inputs.
and the output is
Code: |
FF
FF
-
.h
08
98
-
..
00
0A
-
.À
06
04 |
Also it is assuming 0 at the unit place if not specified...
How do I modify so as to get signed ZD number converted to Binary(for the third input) |
|