         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
   << MVTAB Definitions >>                                     <<01234>>01062000
                                                               <<01234>>01064000
      MVTABDST = 53#,                                          <<01234>>01068000
      MVTABSZ  = 22#;                                          <<01234>>01070000
                                                               <<01234>>01072000
   DEFINE                                                      <<01234>>01074000
      OPTIONS = OPTION PRIVILEGED, UNCALLABLE #;               <<01234>>01076000
                                                               <<01234>>01078000
   LOGICAL POINTER PCB = 3;                                    <<01234>>01080000
   DEFINE                                                      <<09499>>01104010
      DEF'MOVE'TO'DST =                                        <<09499>>01104020
      MOVE'TO'DST (DSTN, DSTOFFSET, DBSOURCE, WORD'COUNT);    <<<09499>>01104030
      VALUE DSTN, DSTOFFSET, DBSOURCE, WORD'COUNT;             <<09499>>01104040
      LOGICAL DSTN, DSTOFFSET, DBSOURCE, WORD'COUNT;           <<09499>>01104050
      BEGIN                                                    <<09499>>01104060
         XREG := TOS;      << Save return address            >><<09499>>01104070
         ASSEMBLE (MTDS 0);                                    <<09499>>01104080
         TOS := XREG;                                          <<09499>>01104090
      END#;                                                    <<09499>>01104100
                                                               <<09499>>01104110
   WAIT'STATE = %40,                                           <<P1125>>03220000
   SCHED'JOB  = %70;                                           <<P1125>>03221000
      <<----------------------------------------------------->><<P1055>>03310050
      <<  Now update the father pointers in the volume set   >><<P1055>>03310060
      <<  definition index blocks.                           >><<P1055>>03310070
      <<----------------------------------------------------->><<P1055>>03310080
      @PNTR := @DALPNTR + CNT * GSIZE;                         <<P1055>>03310090
      @PNTR := @PNTR + GVSDIPNTR;                              <<P1055>>03310100
      IF PNTR <> 0 THEN                                        <<P1055>>03310110
         BEGIN                                                 <<P1055>>03310120
           DIRREAD(PNTR,B,0,0);                                <<P1055>>03310130
           DBPINDEXP := NEW'INDEX;                             <<P1055>>03310140
           DIRWRITE(B);                                        <<P1055>>03310150
         END;                                                  <<P1055>>03310160
   <<-------------------------------------------------------->><<P1055>>03322050
   <<  Update the file index block for the group             >><<P1055>>03322060
   <<  that is going to be added.                            >><<P1055>>03322070
   <<-------------------------------------------------------->><<P1055>>03322080
   @PNTR := @DDSENTRY;                                         <<P1055>>03322081
   @LINK := @PNTR + GLINKAGE;                                  <<P1055>>03322090
   IF LINK.(PVF) AND (LINK.(MVTABXF) <> 0)                     <<P1055>>03322100
     THEN @PNTR := @PNTR + GSAVEFIPNTR                         <<P1055>>03322110
     ELSE @PNTR := @PNTR + GFIPNTR;                            <<P1055>>03322120
   IF PNTR <> 0 THEN                                           <<P1055>>03322130
     BEGIN                                                     <<P1055>>03322140
       DIRREAD(PNTR,B,0,0);                                    <<P1055>>03322150
       DBPINDEXP := NEW'INDEX;                                 <<P1055>>03322160
       DIRWRITE(B);                                            <<P1055>>03322170
     END;                                                      <<P1055>>03322180
   @PNTR := @DDSENTRY + GVSDIPNTR;                             <<P1055>>03322190
   IF PNTR <> 0 THEN                                           <<P1055>>03322200
     BEGIN                                                     <<P1055>>03322210
       DIRREAD(PNTR,B,0,0);                                    <<P1055>>03322220
       DBPINDEXP := NEW'INDEX;                                 <<P1055>>03322230
       DIRWRITE(B);                                            <<P1055>>03322240
     END;                                                      <<P1055>>03322250
   DIRREAD(NEW'INDEX,B,0,0);                                   <<P1055>>03322260
          JMATJOBSTATE <> WAIT'STATE LAND                      <<P1125>>03354000
          JMATJOBSTATE <> SCHED'JOB) THEN                      <<P1125>>03354400
INTEGER I;                                                     <<09499>>03436010
<< Link father to index block.  Recall that we are at the    >><<09499>>03490000
<< Directory Data Segment.  We first save DDSNAME in Q-rel-  >><<09499>>03490010
<< ative NAME while we find the father pointer.  DDSNAME is  >><<09499>>03490020
<< later restored.                                           >><<09499>>03490030
I := -1;                                                       <<09499>>03494000
WHILE (I:=I+1) < NAMESIZE DO                                   <<09499>>03494010
   NAME(I) := DDSNAME(I);                                      <<09499>>03494020
I := -1;                                                       <<09499>>03500000
WHILE (I:=I+1) < NAMESIZE DO                                   <<09499>>03500010
   DDSNAME(I) := NAME(I);                                      <<09499>>03500020
