*COMDECK DMSCONMD 
  
  
      ******************************************************************
      * 
      * CON-SCH-JOB.
      * 
      * ALL SCHEMA JOBCONTROL LINES ARE COMBINED INTO ONE.
  
       CON-SCH-JOB. 
           MOVE SPACES TO CONSOLID-LINE.
           IF DATA-RETURN-CODE NOT = ZERO 
           THEN 
             GO TO CON-SCH-JOB-XIT
           END-IF 
  
       LOOP-SCH-JOB.
           IF JC-SCH-UN NOT = SPACES
             MOVE JC-SCH-UN TO SCH-JOB-UN.
           IF JC-SCH-PW NOT = SPACES
             MOVE JC-SCH-PW TO SCH-JOB-PW.
           IF JC-SCH-FAMILY NOT = SPACES
             MOVE JC-SCH-FAMILY TO SCH-JOB-FAMILY.
           IF JC-SCH-ACCOUNT NOT = SPACES 
             MOVE JC-SCH-ACCOUNT TO SCH-JOB-ACCOUNT.
           IF JC-SCH-CHARGE NOT = SPACES
             MOVE JC-SCH-CHARGE TO SCH-JOB-CHARGE.
           IF JC-SCH-DENSITY NOT = SPACES 
             MOVE JC-SCH-DENSITY TO SCH-JOB-DENSITY.
           IF JC-SCH-TAPE-TYPE NOT = SPACES 
             MOVE JC-SCH-TAPE-TYPE TO SCH-JOB-TTYPE.
  
      * 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-SCH-JOB 
           END-IF 
  
       CON-SCH-JOB-XIT. 
           EXIT.
  
  
      ******************************************************************
      * 
      * 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 AF-MD-PFN.
           IF MD-A-UN NOT = SPACES
             MOVE MD-A-UN TO AF-MD-UN.
           IF MD-A-PW NOT = SPACES
             MOVE MD-A-PW TO AF-MD-PW.
           IF MD-A-FAMILY NOT = SPACES
             MOVE MD-A-FAMILY TO AF-MD-FAMILY.
           IF MD-A-PACK NOT = SPACES
             MOVE MD-A-PACK TO AF-MD-PACK.
           IF MD-A-SET NOT = SPACES 
             MOVE MD-A-SET TO AF-MD-SET.
           IF MD-A-VSN NOT = SPACES 
             MOVE MD-A-VSN TO AF-MD-VSN.
           IF MD-A-DT NOT = SPACES
             MOVE MD-A-DT TO AF-MD-DEVICE.
           IF MD-A-LOG NOT = SPACES 
             MOVE MD-A-LOG TO AF-MD-LOG.
           IF MD-A-INDX-FILE NOT = SPACES 
             MOVE MD-A-INDX-FILE TO AF-MD-IDX.
  
      * 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.
  
  
      ******************************************************************
      * 
      * CON-FILE-MDI. 
      * 
      * ALL FILE MDINFO LINES ARE COMBINED INTO ONE.
  
       CON-FILE-MDI.
           MOVE SPACES TO CONSOLID-LINE.
           IF DATA-RETURN-CODE NOT = ZERO 
           THEN 
             GO TO CON-FILE-MDI-XIT 
           END-IF 
  
       LOOP-FILE-MDI. 
           IF MD-FILE-TYPE NOT = SPACES 
             MOVE MD-FILE-TYPE TO AF-MD-TYPE. 
           IF MD-FILE-UN NOT = SPACES 
             MOVE MD-FILE-UN TO AF-MD-UN. 
           IF MD-FILE-PW NOT = SPACES 
             MOVE MD-FILE-PW TO AF-MD-PW. 
           IF MD-FILE-UNIT-LIMIT NOT = SPACES 
             MOVE MD-FILE-UNIT-LIMIT TO AF-MD-UNLMT.
           IF MD-FILE-UPD-LIMIT NOT = SPACES
             MOVE MD-FILE-UPD-LIMIT TO AF-MD-UPLMT. 
           IF MD-FILE-FAMILY NOT = SPACES 
             MOVE MD-FILE-FAMILY TO AF-MD-FAMILY. 
           IF MD-FILE-PACK NOT = SPACES 
             MOVE MD-FILE-PACK TO AF-MD-PACK. 
           IF MD-FILE-SET NOT = SPACES
             MOVE MD-FILE-SET TO AF-MD-SET. 
  
      * 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-FILE-MDI
           END-IF 
  
       CON-FILE-MDI-XIT.
           EXIT.
  
  
      ******************************************************************
      * 
      * CON-FILE-UNIT.
      * 
      * ALL FILE UNIT LINES ARE COMBINED INTO ONE WITH THE MDINFO 
      * CONSOLIDATED LINE.
  
       CON-FILE-UNIT. 
           IF DATA-RETURN-CODE NOT = ZERO 
           THEN 
             GO TO CON-FILE-UNIT-XIT
           END-IF 
  
       LOOP-FILE-UNIT.
           IF UNIT-UNIT NOT = SPACES
             MOVE UNIT-UNIT TO AF-MD-DEVICE.
           IF UNIT-VOLSER NOT = SPACES
             MOVE UNIT-VOLSER TO AF-MD-VSN. 
  
      * 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-FILE-UNIT 
           END-IF 
  
       CON-FILE-UNIT-XIT. 
           EXIT.
