Redefine with occur clause

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
Posts: 3
Joined: Sun Feb 22, 2015 12:15 pm

Redefine with occur clause

Post by sangeethakaruna » Sun Feb 22, 2015 4:33 pm

Hi ,

Can someone clarify me on the redefine clause part.

01 ww-text Pic x(700)

01 ww-text1 redefine ww-text
05 ww-label occurs 14 times pic x(50).

In the above case, whether 700 chars gets restored in ww-label as 50 chars each in ww-label(1),ww-label(2) and so on till ww-label(14).

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

Post by dbzTHEdinosauer » Mon Feb 23, 2015 7:23 pm

restored? what do you mean.

the redefine clause is legal.
show us the code that has caused your question.
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.

Posts: 2
Joined: Wed Mar 11, 2015 12:22 pm

Post by EndlessSnowy » Wed Mar 11, 2015 12:46 pm

Not sure why. I've reset your priveleges back to normal, but you won't see the hidden board

Post Reply


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.
Mainframe Interview questions

Other References
Mainframe Tools and others