MVSFORUMS.com

Kolusu,

Thanks for the suggestion.
We had that discussion and the expectation is to replace it with zeroes.
so, how do I replace bulk of it with FINDREP, please let me know.

Thanks.

sorry, I hit enter too soon... bonk

sort card:

1,4,PD,TO=ZD,LENGTH=7

o/p:

----1----2
015Ü3.G0

Expected o/p:

----1----2
01503000

Hi Kolusu,

Example with HEXON:
i/p:

----1----2
.*.@
0537
1CFC

o/p:

----1----2
015Ü3.

So, as said, expectation is replace "Ü" with 0 and "." with 0.

o/p ...

Hi Kolusu,

After further analysis, and due to frequent S0C7 abend on certain fields (invalid input data from input file), we had to go for program approach. Declared an input filed of X(105) with a ...

Hi Kolusu,

I have unpacked them using TO=ZD,LENGTH=n.
the downstream system wants the junk to be replaced with zeroes.

Thanks.

Hi,

I have unpacked around 98 COMP-3 fields into a dataset and finding below given special characters in the unpacked data (output LRECL=900).

Ā ā Ă ă Ą ą Ć ć Ĉ ĉ Ċ ċ Č č Ď ď Đ ...

Here is what I see with HEX ON -

-----
00140P
FFFFFD
001407
-----
01050}
FFFFFD
010500

In one place you use UFF in another ZD for the same data.

I was trying with both UFF and ZD. So, I used both to see how I get the output.

What do you want the output to look like? Do you ...

Hi,

I am trying to convert the input to its negative values based on a condition. If any input is greater than 500 then it should be converted to its negative value.

Thanks.

Hi,

Our shop uses "SYNCSORT FOR Z/OS 1.3.2.2R" and I have made these attempts after searching this forum but don't get satisfactory results.

Attempt-1:

//SYSIN DD * ...

Hi,

I am trying to convert few numbers to negative if input number is greater than 500 but job abend with S0C7 !

//SORT0001 EXEC PGM=SORT
//SYSOUT DD SYSOUT=* ...

Hi, this is a basic question on Fetch.

Declare
Open
Fetch
Close

Above is the order to use a cursor in a batch program. Now, after open, is it must to do the fetch right after it or can c ...

Kolusu, thanks.......it has worked and got the expected results !

Hi Dick, thanks a lot........

Here are the details..........

year_nbr Character (4)

Thanks.

Hi, can you help me to write a SQL to pick (MAX YEAR - 4) from a DB2 table that has YEAR field.

I tried below but ended up with SQLCODE -120

SELECT COUNT(*) FROM DB2P.YEAR_TBL
WHERE Y ...