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
 

 

REDEFINE generating error IGYDS1066-S

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
kabyab

New User


Joined: 31 Aug 2005
Posts: 34
Location: Pune, India

PostPosted: Mon Jan 14, 2008 4:40 pm    Post subject: REDEFINE generating error IGYDS1066-S
Reply with quote

Hi, I am getting the following compilation error (RC=0012) for using the REDEFINE clause.

IGYDS1066-S REDEFINES" OBJECT "A-CURR-ADJ-MSG-TXT" WAS NOT THE IMMEDIATELY PRECEDING LEVEL-10 DATA ITEM. THE "REDEFINES" CLAUSE WAS DISCARDED

I did a cursory check on another piece of code that was redefining the same variable. The one that is compiling correctly is

10 A-CURR-ADJ-MSG-TXT.
15 A-CURR-SVC-MSG-DESC PIC X(31)
OCCURS 3 TIMES.
10 A-PBD-TEXT-AREA REDEFINES A-CURR-ADJ-MSG-TXT.
15 A-ADJ-DR-NM PIC X(24).
15 A-DR-PERD-LIT-TX PIC X(16).
15 A-ISS-DT-TX PIC X(6).
15 FILLER PIC X(47).



I have coded as follows:

10 A-CON-FEE-GRP.
REDEFINES A-CURR-ADJ-MSG-TXT.
15 FILLER PIC X(31)
15 A-BO-REV-DETL-CD PIC X(3).
15 A-CONV-FEE-TAX-IND.
25 A-FED-TAX-EXMT-IND PIC X(1).
25 A-CITY-TAX-EXMT-IND PIC X(1).
25 A-STATE-TAX-EXMT-IND PIC X(1).
25 A-CA-SCHG-EXMT-IND PIC X(1).
25 A-CPUC-SCHG-EXMT-IND PIC X(1).
25 A-LIFLN-SCHG-IND PIC X(1).
25 A-HCAP-SCHG-EXMT-IND PIC X(1).
25 A-CHCFB-SCHG-EXMT-IN PIC X(1).
25 A-USSC-SCHG-EXMT-IND PIC X(1).
25 A-CTF-SCHG-EXMT-IND PIC X(1).
25 A-TRNST-EU-SCHG-CD PIC X(1).
25 A-SA-FEE-EXMT-IND PIC X(1).
25 A-STATE-USF-SCHG-IND PIC X(1).
25 A-RGLTY-SCHG-IND PIC X(1).


I am getting the error as mentioned above. The only difference I could note that is the presence of sub-levels 25 after level 15, is it because of that? I am not sure. I have even tried out commenting the level 25 but it is still giving me the same error.

It would be really helpful if someone can reply back to me on this.

Thanks,
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6968
Location: porcelain throne

PostPosted: Mon Jan 14, 2008 5:19 pm    Post subject:
Reply with quote

10 A-CON-FEE-GRP. <<<<<<<<<remove period
REDEFINES A-CURR-ADJ-MSG-TXT.
Back to top
View user's profile Send private message
kabyab

New User


Joined: 31 Aug 2005
Posts: 34
Location: Pune, India

PostPosted: Mon Jan 14, 2008 6:34 pm    Post subject: Reply to: REDEFINE generating error IGYDS1066-S
Reply with quote

Thanks for your help dbzTHEdinosauer.
The dot was definitely a problem which was typo error but the actual problem was something very silly that I made. There were so many variables in the Working Storage, that by mistake I redefined the variable A-CURR-ADJ-MSG-TXT much after the place where it was defined. A separate 05 level variable came in between the Definition and Redefinition of A-CURR-ADJ-MSG-TXT. Ideally I should have redefined it just after the definition.
While removing the dot I found out the mistake.
I have corrected the mistake and the code is working fine now.
I had been pulling my hair out since today morning trying to figure out the mistake.
Thanks a lot once again for replying, you saved me from going completely bald icon_biggrin.gif
Back to top
View user's profile Send private message
Amit Banerjee

New User


Joined: 12 Jan 2008
Posts: 14
Location: india

PostPosted: Tue Jan 15, 2008 1:37 am    Post subject:
Reply with quote

Well...in that case u din't give the whole code of urs and it was impossible to find out from what u had given :-)
Back to top
View user's profile Send private message
kabyab

New User


Joined: 31 Aug 2005
Posts: 34
Location: Pune, India

PostPosted: Tue Jan 15, 2008 11:27 am    Post subject: Reply to: REDEFINE generating error IGYDS1066-S
Reply with quote

Yes Amit, you are right, it didn't occur to me that I may have misplaced the code for the REDEFINE. But thanks anyway to everyone for at least having a look at my post. icon_smile.gif
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Easytrive Redefine vidyaa CA Products 4 Mon Jun 19, 2017 6:01 pm
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm
No new posts Redefine SYS1.PROCLIB farhad_evan JCL & VSAM 12 Mon May 22, 2017 10:54 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts IDC2902I Error tzeche ABENDS & Debugging 2 Tue Mar 28, 2017 11:39 am


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