moving a zero suppressed field to equivalent non-suppressed

Kamlesh Kamal · Posted: Mon Aug 03, 2009 4:30 pm

Hi ,

I have an input file in which the values are zero suppressed.for example I have a filed amount1 with data type as PIC ------9.99.I need to move this to a new field and check if this is NON-ZERO after which I will do some prossessing over it .Can anyone tell me how it can be done.

I have tried the following.

1)moving it to PIC S9(5)V9(2) USAGE COMP-3. ann got an error like "An invalid sign was detected in a numeric edited sending field "

2)tried using the field PIC ------9.99 directly but the check of NOT EQUAL TO 0 didn't work

Robert Sample · Posted: Mon Aug 03, 2009 5:04 pm

I defined variables

Kamlesh Kamal · Posted: Mon Aug 03, 2009 7:04 pm

I have the input file which has a field

WS-STI-SALES-SERVICE-FEE PIC ------9.99.

As you mentioned i have a working storage field as

01 WS-STI-SALES-SERVICE-FEE1 PIC 9(6)V9(2) USAGE COMP-3.

After reading the file I am giving a

MOVE WS-STI-SALES-SERVICE-FEE
TO WS-STI-SALES-SERVICE-FEE1

now when I am checking
IF (WS-STI-SALES-SERVICE-FEE1 NOT EQUAL TO 0 ---> I am getting a soc 7 here....plz suggect..

Robert Sample · Posted: Mon Aug 03, 2009 7:22 pm

Change your IF statement to

Kamlesh Kamal · Posted: Mon Aug 03, 2009 7:35 pm

Hi,

Thanks again..
the data is numeric actually..

here is the screenshot of my spool output.i can't find any other way of showing it to u than the screenshot.hope u r able to see it

The compiler is COBOLENT I GUESS..

Robert Sample · Posted: Mon Aug 03, 2009 7:57 pm

1. Learn to use BBcode -- not everybody here can look at attachments.

2. When you compile your program, the very first line that will show up will be something like

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

You 1st said:

Kamlesh Kamal · Posted: Wed Aug 05, 2009 12:47 pm

Hi Jack,

Yea..first time when I moved the filed to a S9(5)V9(2) USAGE COMP-3 field I got an error with this MOVE

Afterwords I moved it to just an 9(5)V9(2) USAGE COMP-3 and that error was not there but when I was checking on that particular field for IF (WS-STI-SALES-SERVICE-FEE1 NOT EQUAL TO 0 I was getting a SOC 7.

Robert,

If you are still following up on this tag:

I mentioned that I was getting a soc 7 in that particular statement I did lok into the line number using the offset that I got in my sysout.

The SOC7 was resolved using your suggestion of checking for NOT NUMERIC clause.But the problem is that I am skipping now few records for which I have values like spaces follwed by lets say 123.12.

But I need to capture these amount fileds as well.I tried replacing the spaces by zeroes using INSPECT over it but that gave an error as INSPECT is perhaps not allowed on a COMP 3 fileld.

As for compiler info I am using CHANGEMAN for compilation and link edit the version is IBM Enterprise COBOL for z/OS 3.4.1

Once again here is my requirement:

Read an input file

get the amounts therein per record check for certain conditions-- including if amount is non-zero --and populate it in a file .After which I have to sort and roll up those amounts fields in a report that is to be generated.

The problem really was that the I/P file is having all the amount fileds as zero supressed.That meant checking for non-zero was skipping records as the amounts fields were starting with spaces and it was no longer a numeric field.I don't know why spaces are still there even after I am moving the fileds to a COMP3 field.

Can you let me know what to do now.Is there any way perhaps we can have a short talk over this if I am unable to make myself clear?

Binop B · Posted: Wed Aug 05, 2009 1:10 pm

Hi Kamlesh,

Probably a sample of the input file, especially the records which is getting skipped, would help us to understand better.

Kamlesh Kamal · Posted: Wed Aug 05, 2009 1:17 pm

Hi Binop,

For example this is the record which is getting skipped

Binop B · Posted: Wed Aug 05, 2009 2:46 pm

Hi Kamlesh,

I tested the same in my system and seems to be working fine.

Robert Sample · Posted: Wed Aug 05, 2009 4:55 pm

Kamlesh, I think things are quite clear. Multiple people, including me, have posted code that proves what you are telling us does not happen in COBOL 3.4.1 -- so either you're not telling us everything, or you're not doing what you tell us you are doing. COBOL 3.4.1 de-edits data fields, converting leading spaces to zeroes, and processes the numeric value out of a PIC -----9.99 field with no problems -- as has been proved twice in posts. Unless you post the exact code (variable definitions as well as PROCEDURE DIVISION statements) that you are using, I don't think we can help you any further. We have posted code showing exactly what COBOL does and that conflicts with what you are saying.

Kamlesh Kamal · Posted: Wed Aug 05, 2009 5:38 pm

Hi Robert/Binop,

Thanks a lot for all your help.I got it through finally.

I got the file generated and rolled up .Now it looks like

Robert Sample · Posted: Wed Aug 05, 2009 5:48 pm

JCL executes programs. It does not change files, it does not convert fields, it does nothing but execute programs. If you want to use SORT to do this -- SORT is a program! If you want to use COBOL to do this -- you're using a program! So tell us which utility or program you wish to use and advice will be available.

However, as your problem is stated it cannot be done since JCL cannot do anything but execute programs.

Binop B · Posted: Wed Aug 05, 2009 5:51 pm

Hi Kamlesh

Binop B · Posted: Wed Aug 05, 2009 5:53 pm

... Sorry Robert.. didnt see your reply...

Kamlesh Kamal · Posted: Wed Aug 05, 2009 6:09 pm

What I had meant was is there any way apart from writting a COBOL pgm.Like EASYTRIEVE perhaps to acheive what I require.

Or else is there any way I can sort and roll up fields which are in display format in a file.

dick scherrer · Posted: Wed Aug 05, 2009 9:18 pm

Hello,