*COMDECK SCHDRDCLS
          ITEM SCHNAMELENG U(0,0,3);      # LENGTH OF SCHEMA NAME IN   #
                                          # WORDS                      #
          ITEM SCHNAMLENGC U(0,3,6);      # LENGTH OF SCHEMA NAME IN   #
                                          # CHARACTERS                 #
          ITEM SCHEMANAME C(1,0,10);      # 1-30 CHARACTERS LEFT JUST- #
                                          # IFIED WITH ZERO FILL       #
          ITEM SCHEMANAM30 C(1,0,30);     # 30 CHARACTER SCHEMA NAME   #
          ITEM SCBUFWORD U(0,0,60);       # SCRATCH WORD               #
