*COMDECK SCIEDDCLS
          ITEM SCITEMCODER U(0,0,42);     # PROCEDURE NAME, 1-30 CHAR  #
                                          # LEFT JUSTIFIED WITH ZERO   #
                                          # FILL                       #
          ITEM SCITEMCNEXT B(0,57,1);     # TRUE = ANOTHER ENCODE DECOD#
                                          # ENTRY FOLLOWS IN THE NEXT  #
                                          # WORD                       #
          ITEM SCITEMALWAYS B(0,58,1);    # TRUE = ALWAYS IS SPECIFIED #
                                          #        (ENCODE/DECODE      #
          ITEM SCITEMENCODE U(0,59,1);    # 0 = ENCODING               #
                                          # 1 = DECODING               #
