*COMDECK DMSCONF
  
  
      ******************************************************************
      * 
      * CON-AREA-MDI. 
      * 
      * ALL AREA MDINFO LINES ARE COMBINED INTO ONE.
  
       CON-AREA-MDI.
           MOVE SPACES TO CONSOLID-LINE.
           IF DATA-RETURN-CODE NOT = ZERO 
           THEN 
             GO TO CON-AREA-MDI-XIT 
           END-IF 
  
       LOOP-AREA-MDI. 
           IF MD-A-PFN NOT = SPACES 
             MOVE MD-A-PFN TO A-MDI-PFN.
           IF MD-A-INDX-FILE NOT = SPACES 
             MOVE MD-A-INDX-FILE TO A-MDI-XN. 
  
      * MOVE NEXT LINE INTO "CAT-WORK" -- CHECK IF EXTENSION OF PREVIOUS
      * LINE. 
           PERFORM MOVE-NEXT-LINE THRU MOVE-NEXT-LINE-XIT.
           PERFORM CHECK-COMMENTS THRU CHECK-COMMENTS-XIT.
           IF DATA-RETURN-CODE = ZERO 
           THEN 
             GO TO LOOP-AREA-MDI
           END-IF 
  
       CON-AREA-MDI-XIT.
           EXIT.
