View previous topic :: View next topic
|
Author |
Message |
Madhu Reddy
New User
Joined: 28 Sep 2006 Posts: 56
|
|
|
|
Hi
the below is the code
Code: |
*****************************************************************
* CALLVELDEN
*****************************************************************
01 CALLVELDEN.
03 FILLER PIC X(016) VALUE 'CALLVELDEN'.
067 03 GEEN-HERSTART PIC X(009) VALUE 'VARNAME L' .
014600 IF GEEN-HERSTART
014610 MOVE ZERO TO T-AANT-REC-IN
014620 T-AANT-ISS-VERW
014630 T-AANT-ISS-ERR
014700 PERFORM 9999-SCHRIJF-CHECKPOINT
014800 PERFORM 9999-LEES-ISSUE
014810 PERFORM 9999-SCHRIJF-KOP
014900 ELSE
015000 PERFORM 9999-RPOS-ISSUE
015100 END-IF.
051900 IF GEEN-HERSTART
052000 DISPLAY '*** ' PROG-NAME ' BEGIN ***'
052100 MOVE CHKPT-ID-PREFIX IN CHKPT-FREQUENTIE-KAART
052200 TO CHKPT-ID-PREFIX IN CHKPT-ID
052300 MOVE ZERO
052400 TO CHKPT-ID-TELLER IN CHKPT-ID
052500 ELSE
052600 MOVE XRST-ID TO CHKPT-ID
052700 DISPLAY '*** ' PROG-NAME
052800 ' HERSTART OP CHECKPOINT ' XRST-ID
052900 END-IF. |
When i compile the code i am getting Severe Code as 12
and the reason for this is below
Code: |
IGYPS0037-S "GEEN-HERSTART" was not a uniquely defined name. The The definition to be used could not be determined from the context. The reference to the name was discarded. |
I am not abel to rectify this error Code anyone suggest h to rectify this.
Thanks in advance
Madhu |
|
Back to top |
|
|
guptae
Moderator
Joined: 14 Oct 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Hi There,
Just check ur code whether u have two variable with the same name GEEN-HERSTART in that case please refference like GEEN-HERSTART
of CALLVELDEN otherwise try to give GEEN-HERSTART = 'VARNAME L'
Hope it will helpful |
|
Back to top |
|
|
surya_pathaus
Active User
Joined: 28 Aug 2006 Posts: 110
|
|
|
|
Hi Madhu,
Search for "GEEN-HERSTART" in compile listing. This field may be declared in copy book same as declared in working storage otherwise declared twice in your working storage.
If you have to use the same field twice then you can use this with OF.
like
GEEN-HERSTART OF CALLVELDEN. This avoids unique identification error. |
|
Back to top |
|
|
Madhu Reddy
New User
Joined: 28 Sep 2006 Posts: 56
|
|
|
|
The field GEEN-HERSTART is there in Copy book also
which one to use.
Code: |
PIC 9(05).
03 XRST-ID.
88 GEEN-HERSTART VALUE SPACES.
04 XRST-ID-SYSTEEM PIC X(03).
04 XRST-ID-REST PIC X(09).
88 BEGIN-DATABASE VALUE ' ' , '00001 |
|
|
Back to top |
|
|
guptae
Moderator
Joined: 14 Oct 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Hi Madhu,
As far as ur code it's looking that u r using Condition name condition then i will suggest u to use GEEN-HERSTART of XRST-ID.
Hope it will helpful |
|
Back to top |
|
|
shanthikiran
New User
Joined: 31 May 2005 Posts: 7 Location: India
|
|
|
|
Hi Madhu
If there are more than one variables with the same name you can identify them or u can use those variables in ur program by using one of the verbs in COBOL either IN or OF.
Example: GEEN-HERSTART IN XRST-ID
GEEN-HERSTART OF XRST-ID
If u code like above u will not get the error.
Cheers
Shanthi Kiran |
|
Back to top |
|
|
|