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!
Please clarify on the REDEFINES doubt..
Moderators: dbzTHEdinosauer, Moderator Group
-
- Member
- Posts: 17
- Joined: Wed Sep 07, 2011 9:27 am
- Location: india
- dbzTHEdinosauer
- Moderator
- Posts: 981
- Joined: Mon Oct 02, 2006 8:31 pm
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
Please learn to use BBcode tags, as shown below. I've also added the indentation to your code:
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
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).
There is this recent thread also on REDEFINES: http://www.mainframegurukul.com/ibmmain ... php?t=6353
Regards,
Anuj
Anuj
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
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page