Example for Deleting a Link Item

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

D DIRECT DATA SET
 (
  C COUNT(10);
  A ALPHA(15);
  M NUMBER(6);
 );
R-D REMAPS D
 (
  C;
  A;
  M;
 );
A-D ACCESS TO D
 KEY M;
O ORDERED DATA SET
 (
  LC IS IN D COUNTED;
  X FIELD(4);
  Y ALPHA(4);
 );
R-O REMAPS O
 (
  LC;
  X;
  Y;
 );
A-O ACCESS TO O
 KEY(Y,X);
K COMPACT DATA SET
 (
  V ALPHA(100) SIZE VARYING;
  F FIELD(16);
  LV IS IN D VERIFY ON M;
 );
R-K REMAPS K
 (
  V;
  F;
  LV;
 );
LDB(R-D,R-O,R-K);

To remove the counted link from the data set and remap, and to replace the count item in the remap with a virtual count item, perform the following steps:

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

    *  UPDATE;
   D DIRECT DATA SET
    (
     A ALPHA(15);
     M NUMBER(6);
    );
   R-D REMAPS D
    (
*    C VIRTUAL COUNT(10) = 0;
     A;
     M;
    );
   A-D ACCESS TO D
     KEY M;
   O ORDERED DATA SET
    (
     X FIELD(4);
     Y ALPHA(4);
    );
   R-O REMAPS O
    (
     X;
     Y;
    );
   A-O ACCESS TO O
     KEY(Y,X);
   K COMPACT DATA SET
    (
     V ALPHA(100) SIZE VARYING;
     F FIELD(16);
     LV IS IN D VERIFY ON M;
     );
    R-K REMAPS K
     (
      V;
      F;
      LV;
     );
  LDB(R-D,R-O,R-K);

  2. Compile the DASDL description.

  3. Compile the DMSUPPORT library.

  4. Generate and run the Reorganization program.

Prev  Up  Next
Example for Deleting Embedded Structures  Home  Example for Changing Global Data