Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

IGYPS0037-S "GEEN-HERSTART" was not a uniquely de

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
Madhu Reddy
Currently Banned

New User


Joined: 28 Sep 2006
Posts: 56

PostPosted: Mon Oct 16, 2006 2:38 pm    Post subject: IGYPS0037-S "GEEN-HERSTART" was not a uniquely de
Reply with quote

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
View user's profile Send private message

guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Mon Oct 16, 2006 2:51 pm    Post subject:
Reply with quote

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
View user's profile Send private message
surya_pathaus

Active User


Joined: 28 Aug 2006
Posts: 110

PostPosted: Mon Oct 16, 2006 2:51 pm    Post subject: Re: Severe error code
Reply with quote

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
View user's profile Send private message
Madhu Reddy
Currently Banned

New User


Joined: 28 Sep 2006
Posts: 56

PostPosted: Mon Oct 16, 2006 4:35 pm    Post subject: Re: Severe error code
Reply with quote

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
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Mon Oct 16, 2006 4:49 pm    Post subject:
Reply with quote

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
View user's profile Send private message
shanthikiran

New User


Joined: 31 May 2005
Posts: 7
Location: India

PostPosted: Mon Oct 16, 2006 5:15 pm    Post subject: Re: Severe error code
Reply with quote

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
icon_biggrin.gif Shanthi Kiran
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts RC 20 for Address ISPEXEC "ISRED... pkmurali CLIST & REXX 3 Sun Apr 16, 2017 11:30 pm
No new posts Amount field is getting corrupted whe... thesumitk SYNCSORT 5 Tue Oct 18, 2016 8:20 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm
No new posts Multi row fetch - "for read only... Nileshkul DB2 3 Sun Aug 14, 2016 12:52 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us