Thanks. I didn't find that. I don't like it simply because I'm so easily confused. I will still castigate any programmer who does it. I can see a use for it back in the days of physical cards. It would be an easy way to group together some consecutive definitions by inserting a group with a level value less than the value of the entries to be grouped, but larger than the currently enclosing entry. With ISPF edit and a decent REXX program it would be relatively easy to simply "resequence" the level numbers. With a really good COBOL editor which can "refactor", it would be a snap. Hum, is there such an editor / IDE for COBOL?
On Tue, Sep 29, 2015 at 1:21 PM, Jon Butler <[email protected]> wrote: > According to the IBM LRM, > > "A group item includes all group and elementary items that follow it until > a > level-number less than or equal to the level-number of that group is > encountered." > > Why you want to do that escapes me at the moment, but the LRM goes on with > an example where the 05 and 04 variables are at the same level, as are the > 10 and 08: > > "You can also define groups with subordinate items that have different > level-numbers for the same level in the hierarchy. For example, 05 > EMPLOYEE-NAME > and 04 EMPLOYEE-ADDRESS in EMPLOYEE-RECORD below define the same level in > the > hierarchy. The compiler renumbers the levels in a relative fashion, as > shown in the MAP output. > > 01 EMPLOYEE-RECORD. > 05 EMPLOYEE-NAME. > 10 FIRST-NAME PICTURE X(10). > 10 LAST-NAME PICTURE X(10). > 04 EMPLOYEE-ADDRESS. > 08 STREET PICTURE X(10). > 08 CITY PICTURE X(10)." > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Schrodinger's backup: The condition of any backup is unknown until a restore is attempted. Yoda of Borg, we are. Futile, resistance is, yes. Assimilated, you will be. He's about as useful as a wax frying pan. 10 to the 12th power microphones = 1 Megaphone Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
