*COMDECK SCICLDCLS
          ITEM SCITEMONCALL U(0,0,42);    # PROCEDURE NAME, 1-7 CHARS  #
                                          # LEFT JUSTIFIED WITH ZERO   #
                                          # FILL                       #
          ITEM SCITEMCALOPT U(0,53,7);    # ITEM PROC-CALL OPTIONS     #
          ITEM SCITEMNEXTON B(0,53,1);    # TRUE = ANOTHER CALL ENTRY  #
                                          # FOLLOWS IN THE NEXT WORD   #
          ITEM SCITEMONBFAF U(0,54,3);    # LOGICAL ORS P1 VALUE OF KEY#
                                          # WORD TO SET PROPER FLAGS   #
          ITEM SCITEMONOPTS U(0,57,3);    # LOGICAL ORS P1 VALUE OF KEY#
                                          # WORD TO SET PROPER FLAGS   #
          ITEM SCITCALLERR B(0,54,1);     # 1 = ON-ERROR SPECIFIED     #
          ITEM SCITCALLBEF B(0,55,1);     # 1 = BEFORE SPECIFIED       #
          ITEM SCITCALLAFT B(0,56,1);     # 1 = AFTER SPECIFIED        #
          ITEM SCITCALLSTO B(0,57,1);     # 1 = STORE SPECIFIED        #
          ITEM SCITCALLGET B(0,58,1);     # 1 = GET SPECIFIED          #
          ITEM SCITCALLMOD B(0,59,1);     # 1 = MODIFY SPECIFIED       #
