Example for Changing the Data Set Record Format of a Remap

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

K COMPACT DATA SET
 (
  B BOOLEAN;
  N NUMBER(3);
  R REAL;
  A ALPHA(100) SIZE VARYING;
  O NUMBER(6) OCCURS 100 TIMES DEPENDING ON N;
  F FIELD(16) STORED OPTIONALLY;
  G GROUP
   (
    G1 ALPHA(20);
    G2 NUMBER(8);
   )
    STORED DEPENDING ON B;
 );
R-K REMAPS K
 (
  B;
  N;
  R;
  A;
  O;
  F;
  G;
  );
LDB DATABASE(R-K);

To update the DASDL with a new data set record format, perform the following steps:

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

    *  UPDATE;
   K COMPACT DATA SET
    (
     R REAL;
    );
   R-K REMAPS K
    (
*    B VIRTUAL BOOLEAN = FALSE;
*    N VIRTUAL NUMBER(3) = 0;
     R;
*    A VIRTUAL ALPHA(100) = " ";
*    O VIRTUAL NUMBER(6) OCCURS 100 TIMES;
*    F VIRTUAL FIELD(16) = 0;
*    G VIRTUAL GROUP
*     (
*      G1 VIRTUAL ALPHA(20);
*      G2 VIRTUAL NUMBER(8) = 0;
*     );
     );
    LDB DATABASE(R-K);

  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  Home  Example for Deleting Embedded Structures