Error At the time of Using PERFORM and Refrence Modification

suneelv · New User Joined: 26 Aug 2008 Posts: 52 Location: inida

Hi,

I have a varible WS-VAR which occurs 6 times declared as

01 WS-VAR pic S9(6) comp-3 occurs 6 times with field length 4

i am checking each digit in the ws-var whether it is zero or not by using refrence modification for the 6 occurences by using

CICS Guy · Posted: Tue Apr 07, 2009 11:31 am

Shouldn't that be something more like: WS-VAR (A-READ) (A-ZERO-CHECK:1)?
And shouldn't the check be "= X'00'"?

suneelv · New User Joined: 26 Aug 2008 Posts: 52 Location: inida

Hi,

I have coded like below

WS-VAR(A-READ) (A-ZERO-CHECK:1) EQUAL TO ZERO

At that time i got the severe error like below

Reference-modified data item "WS-VAR" was not defined with "USAGE
DISPLAY", "USAGE DISPLAY-1" or "USAGE NATIONAL". The statement was discarded.

Please let me know how to resolve this error., the WS-VAR is comp-3 variable.

Thanks
Suneel

CICS Guy · Posted: Tue Apr 07, 2009 12:29 pm

What is the definition for WS-VAR?

suneelv · New User Joined: 26 Aug 2008 Posts: 52 Location: inida

Hi,

Below is the declaration of WS-VAR

01 WS-VAR pic S9(6) comp-3 occurs 6 times

Thanks
Suneel

CICS Guy · Posted: Tue Apr 07, 2009 1:06 pm

data-name-1 (leftmost-character-position:length)
data-name-1 must reference a data item described explicitly or implicitly with usage DISPLAY, DISPLAY-1, or NATIONAL.
Note the difference between Computational items and Display items...

suneelv · New User Joined: 26 Aug 2008 Posts: 52 Location: inida

Hi,

Thnaks, but how i can do refrence modification this, to check each digit in the field as zero or not.

Thanks
suneel

CICS Guy · Posted: Tue Apr 07, 2009 1:47 pm

Define WS-VAR without the comp-3.

leo_sangha · New User Joined: 11 Aug 2005 Posts: 85 Location: England

suneelv · New User Joined: 26 Aug 2008 Posts: 52 Location: inida

Hi,

Sorry the occurs clause is not in 01 level

But as per the requirement the field is Comp-3 and i need to check the each digit of the field whether it is zero or non zero.

Regards
Suneel

leo_sangha · New User Joined: 11 Aug 2005 Posts: 85 Location: England

Could you post some sample data as well.

After each iteration move packed decimal field to numeric.
then use reference-modification.

suneelv · New User Joined: 26 Aug 2008 Posts: 52 Location: inida

Hi,

This is the new requirement for me i need to enter the data and for my testing.

Thanks
Suneel

dbzTHEdinosauer · Posted: Tue Apr 07, 2009 4:40 pm

well each comp-3 field contains:
unused half-byte used half-byte-1 / used half-byte-2 used half-byte-3/used half-byte-4 used half-byte-5/used half-byte-6 sign half-byte/

only the second and third byte can be checked for x'00'.
the last can be checked for x'0C'.
the first must be unpacked and the second byte of the unpacked field checked for 0.

it can be argued that the left side of the higher byte of an even numbered packed-decimal field will always be b'0000', but I don't think the documentation explicitly says so.

actually, this is a very poor exercise for reference modification. probably dreamed up by the same idiot mentality that provides interview questions.

Marso · Posted: Tue Apr 07, 2009 4:41 pm

suneelv · New User Joined: 26 Aug 2008 Posts: 52 Location: inida

Hi,

Thanks for all your suggestions , moving comp-3 to DISPLAY field and doing the refrence modification and move back again to comp-3 field.

Thanks
Suneel

leo_sangha · New User Joined: 11 Aug 2005 Posts: 85 Location: England

hello suneelv,

are you saying that you're moving back numeric field back to comp-3 for output ?

you already have comp-3 field in WS-VAR(A-READ),

dick scherrer · Posted: Tue Apr 07, 2009 9:19 pm

Hello,

dbzTHEdinosauer · Posted: Tue Apr 07, 2009 9:33 pm

I think this is homework.

Terry Heinze · Posted: Tue Apr 07, 2009 10:03 pm

Suneel,
Your indentation makes your code difficult to follow. Maybe that was caused by the retrofitting of BBCode, but at any rate, I think you want something like the following which is untested due to non-access to a mainframe:

Marso · Posted: Sun Apr 19, 2009 8:19 pm