*COMDECK CPROCS 
      *    01  USAGE-CODES       PICTURE X(16)   VALUE
      *    CODE VALIDATION FOR FORMATS AND USAGE
      * 
       FORMAT-VALIDATION. 
           PERFORM VARYING COUNTER FROM 1 BY 1
             UNTIL LITTLE-CODE (COUNTER) EQUAL "/  "
               IF LITTLE-CODE (COUNTER) EQUAL TO HOLD-FORMAT
                   GO TO FORMAT-VALIDATION-EXIT 
               END-IF 
           END-PERFORM
      * 
      *    GOT ALL THE WAY THRU WITH NO MATCH 
      *    WRITE ERROR MESSAGE
      * 
           MOVE "B" TO CODE-ERR-SW. 
           GO TO VALIDATION-ERROR.
       FORMAT-VALIDATION-EXIT.
           EXIT.
      * 
      * 
      *    PROCEDURE CHECK-SLASHES EXTRACTS VALUES WHICH MAY BE 
      *    SEPARATED BY SLASHES.  THESE VALUES ARE THEN 
      *    VALIDATED.  THE ENTIRE INPUT FIELD, INCLUDING
      *    SLASHES IS STORED IF ALL VALUES ARE LEGITIMATE.
      * 
      *    ASSUMPTIONS: 
      *        INPUT IS STORED IN VAL-AREA AND ENDS WITH A SPACE
      *        VALID CODES ARE STORED IN THE ARRAY BIG-CODES
      *        FIELD LENGTH IS STORED IN MAX-LENGTH 
      * 
       CHECK-SLASHES. 
           MOVE  1 TO SUB-NUM.
       CS-10. 
           PERFORM VARYING LOOPER FROM SUB-NUM BY 1 
               UNTIL VAL (LOOPER) EQUAL SPACE OR "/"
               IF LOOPER GREATER THAN MAX-LENGTH
                   GO TO VALIDATION-ERROR 
               END-IF 
           END-PERFORM
           SUBTRACT SUB-NUM FROM LOOPER.
           MOVE VAL-AREA (SUB-NUM : LOOPER) TO HOLD-FORMAT. 
           PERFORM FORMAT-VALIDATION THRU FORMAT-VALIDATION-EXIT
           COMPUTE SUB-NUM = SUB-NUM + LOOPER + 1.
           IF VAL ( SUB-NUM) NOT EQUAL SPACE
               GO TO CS-10
           END-IF 
       CHECK-SLASHES-EXIT.
           EXIT.
      * 
      *    DEL-CHECKER WILL TEST TO SEE IF A BLOCK
      *    IS EMPTY EXCEPT FOR LINE-TYPE.  IF SO, 
      *    SPACES WILL BE MOVED TO THE LINE-TYPE SO 
      *    THAT THE ENTIRE BLOCK WILL BE DELETED. 
      * 
       DEL-CHECKER. 
           IF CAT-FIRST-146 EQUAL SPACES
               MOVE SPACE TO CAT-LINE-TYPE. 
           GO TO CAT-MVC-MSG-DEL. 
