Unsigned Positive to Signed Positive conversion

rockish · Posted: Tue Aug 25, 2009 4:12 pm

I have a input file which has a 9(3) COMP-3 field. As this is an unsigned variable, it holds values like X'015F', X'034F' etc.. with the last nibble holding F to denote unsigned positive.

My output file has the same field as S9(3) COMP-3. As this is a signed variable, I want the original values to be changed as X'015C', X'034C' etc.. with the last nibble holding C to denote signed positive

I tried issuing INREC FIELDS=(1,2,BI,TO=FI).. But that did not change the last nibble from 'F' to 'C'

One round about way I could think was using CHANGE/NOMATCH to do the changes. But I really feel there might be a simpler way to do the same.

Can anyone advice me on this pls ???

enrico-sorichetti · Posted: Tue Aug 25, 2009 4:19 pm

milind suman · New User Joined: 19 Aug 2009 Posts: 55 Location: Pune

Why do u want to change 'F' to 'C' ..doesnt 'F' look better .
u simply want to change postive to postive ..think more abt ur reqrmnt

rockish · Posted: Tue Aug 25, 2009 5:06 pm

@Milind - Will describe u in short what I am trying to do..

I have a cobol module which actually acts on the input file i specified. The input copybook has var1 defined as 9(3) COMP-3 and the output copybook has var2 defined as S9(3) COMP-3. When the content of var1 (say x'014F') is moved to var2, the sign nibble gets changed and it becomes x'014C'.

Now, I am trying to enhance the performance of this step by replacing the cobol module with a dfsort as the cobol does not do anything but re organising the input file. As this is for performance reasons, i do not want change in any bit of output data !!!!!!! Hence would want to retain the conversion of 'F' to 'C'

Arun Raj · Posted: Tue Aug 25, 2009 7:07 pm

rockish,

You can give this a try to force a 'C' sign for a 2 byte PD field starting at pos-1.

rockish · Posted: Tue Aug 25, 2009 9:27 pm

Hi Arun,

Thanks for your reply.

But I am getting error when I tried the option that you provided me with. I have a doubt. what does PDC mean ?? I tried going through DFSORT Manual also for the same. But could not find anything for it !!!!

Please find my error message below !!!!
I tried this for a 6 byte PD field starting at pos - 35

Frank Yaeger · Posted: Tue Aug 25, 2009 10:15 pm

PDC means PD with a C sign for positive values.

PDC has been available with DFSORT since April, 2006. The error message indicates your site is very far behind in installing service.

Assuming you are using z/OS DFSORT V1R5, ask your System Programmer to install PTF UK90013 (July, 2008). That will get you up to date with all of the available DFSORT functions.

rockish · Posted: Tue Aug 25, 2009 10:28 pm

Thanks for the response Frank.

I am using DFSORT Release 14.0

Does this release support PDC options ? Or should I upgrade my DFSORT utility to make use of this function ?

Frank Yaeger · Posted: Tue Aug 25, 2009 10:45 pm

DFSORT R14 PTF UK90006 (April, 2006) supports PDC.

rockish · Posted: Tue Aug 25, 2009 11:16 pm

yeah.. I am using Z/oS 1.4

I will check with my System programmer to install DFSORT R14 PTF UK90006.

Thanks a lot Frank..

Frank Yaeger · Posted: Tue Aug 25, 2009 11:24 pm

Note that z/OS 1.4 is out of service. Your site really should upgrade to a supported z/OS release. Note that many DFSORT/ICETOOL functions are only available on z/OS 1.5 and above.

rockish · Posted: Tue Aug 25, 2009 11:34 pm

Thanks again for your advice Frank.

I will put forward your suggestion for upgradation :-)