*COMDECK  MULTLINE
00001  CHECK-MULT-STC.                                                  07/28/78
           IF CTL-DIR-ID (SUB1) IS EQUAL TO "10"
              AND CTL-DIR-CAT (SUB1) IS EQUAL TO "300"
           THEN 
              PERFORM CHECK-GRP-STR THRU CHECK-GRP-STR-XIT
           END-IF.
  
           IF CTL-DIR-ID (SUB1) IS EQUAL TO "13"
              AND CTL-DIR-CAT (SUB1) IS EQUAL TO "300"
           THEN 
              PERFORM CHECK-REC-STR THRU CHECK-REC-STR-XIT
           END-IF.
  
           IF CTL-DIR-ID (SUB1) IS EQUAL TO "22"
              AND CTL-DIR-CAT (SUB1) IS EQUAL TO "400"
           THEN 
              PERFORM CHECK-ARE-PRO THRU CHECK-ARE-PRO-XIT
           END-IF.
  
           IF CTL-DIR-ID (SUB1) IS EQUAL TO "22"
              AND CTL-DIR-CAT (SUB1) IS EQUAL TO "500"
           THEN 
              PERFORM CHECK-ARE-KEY THRU CHECK-ARE-KEY-XIT
           END-IF.
  
           IF CTL-DIR-ID (SUB1) IS EQUAL TO "24"
              AND CTL-DIR-CAT (SUB1) IS EQUAL TO "525"
           THEN 
              PERFORM CHECK-SS-REL THRU CHECK-SS-REL-XIT
           END-IF.
  
           IF CTL-DIR-ID (SUB1) IS EQUAL TO "26"
              AND CTL-DIR-CAT (SUB1) IS EQUAL TO "425"
           THEN 
              PERFORM CHECK-SC-MDI THRU CHECK-SC-MDI-XIT
           END-IF.
  
           IF CTL-DIR-ID (SUB1) IS EQUAL TO "26"
              AND CTL-DIR-CAT (SUB1) IS EQUAL TO "550"
           THEN 
              PERFORM CHECK-SC-CON THRU CHECK-SC-CON-XIT
           END-IF.
  
           IF CTL-DIR-ID (SUB1) IS EQUAL TO "26"
              AND CTL-DIR-CAT (SUB1) IS EQUAL TO "575"
           THEN 
              PERFORM CHECK-SC-JOI THRU CHECK-SC-JOI-XIT
           END-IF.
  
           ADD 1 TO SUB1
           IF SUB1 IS GREATER THAN 126
           THEN 
              GO TO CHECK-MULT-STC-XIT
           ELSE 
              GO TO CHECK-MULT-STC
           END-IF.
  
       CHECK-GRP-STR. 
           MOVE CTL-DIR-START (SUB1) TO STR-GRP-LINE-A
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-GRP-LINE-O
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-GRP-LINE-D
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-GRP-LINE-I
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-GRP-LINE-K
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-GRP-LINE-R
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-GRP-LINE-Q
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-GRP-LINE-T
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-GRP-LINE-2
           ADD 1 TO SUB1. 
       CHECK-GRP-STR-XIT. 
           EXIT.
  
       CHECK-REC-STR. 
           MOVE CTL-DIR-START (SUB1) TO STR-REC-LINE-A
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-REC-LINE-O
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-REC-LINE-D
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-REC-LINE-I
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-REC-LINE-K
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-REC-LINE-R
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-REC-LINE-Q
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-REC-LINE-T
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-REC-LINE-2
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-REC-LINE-B
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO STR-REC-LINE-C
           ADD 1 TO SUB1. 
       CHECK-REC-STR-XIT. 
           EXIT.
  
       CHECK-ARE-PRO. 
           MOVE CTL-DIR-START (SUB1) TO ARE-PRO-LINE-P
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO ARE-PRO-LINE-R
           ADD 1 TO SUB1. 
       CHECK-ARE-PRO-XIT. 
           EXIT.
  
       CHECK-ARE-KEY. 
           MOVE CTL-DIR-START (SUB1) TO ARE-KEY-LINE-K
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO ARE-KEY-LINE-C
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO ARE-KEY-LINE-I
           ADD 1 TO SUB1. 
       CHECK-ARE-KEY-XIT. 
           EXIT.
  
       CHECK-SS-REL.
           MOVE CTL-DIR-START (SUB1) TO SS-REL-LINE-R 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SS-REL-LINE-I 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SS-REL-LINE-Q 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SS-REL-LINE-2 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SS-REL-LINE-B 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SS-REL-LINE-3 
           ADD 1 TO SUB1. 
       CHECK-SS-REL-XIT.
           EXIT.
  
       CHECK-SC-MDI.
           MOVE CTL-DIR-START (SUB1) TO SC-MDI-LINE-L 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SC-MDI-LINE-P 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SC-MDI-LINE-T 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SC-MDI-LINE-R 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SC-MDI-LINE-J 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SC-MDI-LINE-Q 
           ADD 1 TO SUB1. 
       CHECK-SC-MDI-XIT.
           EXIT.
  
       CHECK-SC-CON.
           MOVE CTL-DIR-START (SUB1) TO SC-CON-LINE-N 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SC-CON-LINE-O 
           ADD 1 TO SUB1. 
       CHECK-SC-CON-XIT.
           EXIT.
  
       CHECK-SC-JOI.
           MOVE CTL-DIR-START (SUB1) TO SC-JOI-LINE-A 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SC-JOI-LINE-B 
           ADD 1 TO SUB1
           MOVE CTL-DIR-START (SUB1) TO SC-JOI-LINE-C 
           ADD 1 TO SUB1. 
       CHECK-SC-JOI-XIT.
           EXIT.
00099  CHECK-MULT-STC-XIT.                                              MULTLINE
