JCL sort-How to reject the Sign?

lokeshwar_manoharan · Posted: Mon Oct 06, 2008 9:57 pm Post subject: JCL sort-How to reject the Sign?

Hi,

When I convert S9(9) variable using sort step using

(1,4,BI,M11) it is converting to 09(9)

ie eg -111111111 is converted to 0111111111

Is there any method to reject the sign and have only 9 character

111111111 ?

Thanks,
Lokesh

Frank Yaeger · Posted: Mon Oct 06, 2008 10:35 pm Post subject:

Wow, could your post have been any more confusing if you tried?

S9(9) is a ZD format field, so why are you using BI instead of ZD?

What do you mean by "reject the sign"? Do you want to use the absolute value (e.g. -1 -> 1?).

I can't make heads or tails of what you want to do.

Show an example of your input values (in hex) and what you expect the output values to look like. Indicate the correct format for the input values (BI? ZD?).

lokeshwar_manoharan

No its not hexa value, it is S9(9) comp. Binary value

Yes -1 should be converted to 1 with one byte and not 2 bytes

I know we can get the values by having one more sort step. But is there

any way without using another sort step ?

Regards,
Lokeshwar

hchinnam · Active User Joined: 18 Oct 2006 Posts: 68

Frank Yaeger · Posted: Tue Oct 07, 2008 8:49 pm Post subject:

Lokeshwar,

You still haven't made it clear what you want to do or shown an example of input and expected output values.

S9(9) COMP is a 4-byte FI field. If you want to get the absolute value of the field, you can multiply it by -1. If you want the output value to be 4-byte BI (no sign), you can use these DFSORT statements:

lokeshwar_manoharan · Posted: Fri Oct 10, 2008 1:06 am Post subject:

Input:

First 4 Bytes -> S9(9) COMP

5th Byte -> X(1)

Last two Bytes -> S9(4) COMP

�8J1
07FDF00
8181101
--------
�8J1
07FDF00
8181102
--------
�8J1
07FDF00
8181103

By using the sort ,

//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FILES=1,
OUTREC=(1,4,BI,M11,5,1,6,2,BI,M11)
//*

I am getting as output(16 Bytes)

0141686993100001
0141686993100002
0141686993100003

Here zeroes are added in the place of Sign (See 1st and 12th position)

Instead of this I need to get as output (14 Bytes)

14168699310001
14168699310002
14168699310003

I know it is possible by having one more sort step by selecting appropriate
fields,

I want to know is there any mask pattern or any way to change as such without extra sort step

Frank Yaeger · Posted: Fri Oct 10, 2008 3:54 am Post subject:

lokeshwar_manoharan · Posted: Fri Oct 10, 2008 3:40 pm Post subject:

Thanks a lot Frank!!

Its working now!!!

Frank Yaeger · Posted: Fri Oct 10, 2008 8:46 pm Post subject:

Good. Next time it would be better if you just post what you're trying to do with an example of the input and output. Your assumption that the sign was the problem was a red-herring and just increased the number of posts needed to give you the solution.

lokeshwar_manoharan · Posted: Sat Oct 11, 2008 10:36 pm Post subject:

Frank,

There is another problem
My input file:

First 4 Bytes: S9(9) comp
Fifth Byte: X(1)
6th - 8th Byte: X(3)(Packed decimal format)

dick scherrer · Posted: Sat Oct 11, 2008 10:52 pm Post subject:

Hello,

Bytes 6-8 are not valid packed-decimal numbers. . .

Neither are bytes 1-3 which you have specified in the job you believe is working (it really isn't running correctly - it is simply not abending). The limited data you have posted accidentally has a valid sign, so you do not recieve an 0c7.

Also, please note that your post has been changed to use the "Code" tag which makes the content more readable.

Frank Yaeger · Posted: Mon Oct 13, 2008 5:30 am Post subject:

Lokesh,

As Dick has pointed out, the data you show in positions 6-8 is NOT packed decimal. X'080000' is binary. X'08000C' would be an example of PD.

You really need to figure out what type of data you're dealing with in order to be able to convert it correctly. For details on the different types of data formats DFSORT recognizes, see:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA20/C.1?DT=20060615185603

lokeshwar_manoharan · Posted: Mon Oct 13, 2008 1:06 pm Post subject:

Thanks Dick and Frank

In my input the values are showing correctly on making HEX on

Frank Yaeger · Posted: Mon Oct 13, 2008 8:33 pm Post subject:

If you want to convert X'800000' in positions 1-3 to C'800000', you can use:

lokeshwar_manoharan · Posted: Wed Oct 15, 2008 12:36 pm Post subject:

Thanks!!