Please clarify on the REDEFINES doubt..

This is a Mainframe COBOL forum - you can post your queries on Mainframe COBOL, VS COBOL II, COBOL/370 , Enterprise COBOL

Moderators: dbzTHEdinosauer, Moderator Group

Post Reply
santhosh kumar
Member
Posts: 17
Joined: Wed Sep 07, 2011 9:27 am
Location: india

Please clarify on the REDEFINES doubt..

Post by santhosh kumar » Mon Mar 26, 2012 1:50 pm

Hi,

I have a doubt on redefines. Can we redefines a group item with the data item as shown below. Here WS-FIELD3 is a group item, and WS-FIELD2 is the data item. Here my doubt is can i redefines WS-FIELD3 group item with the WS-FIELD2 data item.
please advise me, whether the following example is correct or not.

01 WS-FIELD1 PIC $$$$,$$$,$$$,$$9.99.
01 WS-FIELD2 REDEFINES WS-FIELD1 PIC X(19).
01 WS-FIELD3 REDEFINES WS-FIELD2.
05 WS-SUB1-FIELD3 PIC X(8 ).
05 WS-SUB2-FIELD3 PIC ZZ,ZZZ,ZZ9.
05 WS-SUB3-FILED3 PIC X(1).

Can you please tell me, whether the above example is correct or not. Please explain if this is not correct..

Please give me the reply, This is important to my development.
i will look for your reply..

Thanks!

User avatar
dbzTHEdinosauer
Moderator
Posts: 981
Joined: Mon Oct 02, 2006 8:31 pm

Post by dbzTHEdinosauer » Mon Mar 26, 2012 3:45 pm

why do you not refer to the manual,
this is an easy question to answer.

it is a waste of memory to use 01 levels as single field descriptions.
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.

Anuj Dhawan
Moderator
Posts: 1625
Joined: Sat Aug 09, 2008 9:02 am
Location: Mumbai, India

Post by Anuj Dhawan » Mon Mar 26, 2012 6:31 pm

Please learn to use BBcode tags, as shown below. I've also added the indentation to your code:

Code: Select all

01 WS-FIELD1 			              PIC $$$$,$$$,$$$,$$9.99. 
01 WS-FIELD2 REDEFINES WS-FIELD1 	PIC X(19). 
01 WS-FIELD3 REDEFINES WS-FIELD2. 
    05 WS-SUB1-FIELD3 		        PIC X(8 ). 
    05 WS-SUB2-FIELD3 		        PIC ZZ,ZZZ,ZZ9. 
    05 WS-SUB3-FILED3 		        PIC X(1).
To give you a yes/no answer - yes, that's correct. However, what happened when you try it apart from what Dick has asked for?

There is this recent thread also on REDEFINES: http://www.mainframegurukul.com/ibmmain ... php?t=6353
Regards,
Anuj

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others