Example for Deleting Embedded Structures

For this example, the original DASDL description looks as follows: 

D DATA SET
 (
  P POPULATION(1000) OF E;
  E DATA SET
   (
    E1 ALPHA(10);
    E2 REAL;
    );
  S-E SET OF E
    KEY E1;
    R-E REMAPS E
     (
      E1;
      E2;
     );
     D1 BOOLEAN;
     D2 ALPHA(5);
    );
    S-D SET OF D
      KEY D2;
    R-D REMAPS D
     (
      P;
      R-E;
      S-E;
      D1;
      D2;
     );
   LDB1 DATABASE(R-D);

To update the DASDL description by deleting embedded structures, perform the following steps:

  1. Alter the DASDL statements to the following. The asterisks (*) indicate changed lines. 

    *  UPDATE;
   D DATA SET
    (
     D1 BOOLEAN;
     D2 ALPHA(5);
     );
    S-D SET OF D
        KEY D2;
    R-D REMAPS D
     (
*     P VIRTUAL POPULATION(1000) = 0;
      D1;
      D2;
     );
    LDB1 DATABASE(R-D);

  2. Compile the DASDL description.

  3. Compile the DMSUPPORT library.

  4. Generate and run the Reorganization program.

Prev  Up  Next
Example for Changing the Data Set Record Format of a Remap  Home  Example for Deleting a Link Item