*COMDECK  SCPCOM
# 
 TEMPLATE FOR SYSTEM CONTROL POINT FUNCTION CALL WORD WHEN NO ACB 
 EXIST
# 
 BASED ARRAY SCPCALL  P(3); 
   BEGIN
   ITEM SCPID       U(0,0,6);   # SCP BLOCK ID                         #
   ITEM SCPBS       I(0,6,AL);  # BLOCK SIZE                           #
   ITEM SCPWD0      U(0,0,WL);  # WORD 0                               #
   ITEM SCPRC       U(1,0,6);   # REPLY CODE                           #
   ITEM SCPJSN      C(1,0,4);   # JOB SEQUENCE NUMBER                  #
   ITEM SCPFP       U(1,6,12);  # FUNCTION PARAMETER                   #
   ITEM SCPUCPA     I(1,18,AL); # ADDRESS IN UCP FL                    #
   ITEM SCPSCPA     I(1,36,AL); # ADDRESS IN NIP FL                    #
   ITEM SCPPP       B(1,48,1);  # PRIVILEDGED PROGRAM BIT              #
   ITEM SCPPU       B(1,49,1);  # PRIVILEDGED USER BIT                 #
   ITEM SCPAAL      U(1,54,6);  # APPLICATION ACCESS LEVEL             #
   ITEM SCPFC       U(1,54,6);  # SCP FUNCTION CODE                    #
   ITEM SCPCB       U(1,59,1);  # SCP COMPLETION BIT                   #
   ITEM SCPFW       U(1,0,WL);  # SCP FUNCTION WORD                    #
   ITEM SCPNAME     C(2,0,NC);  # JOB NAME                             #
   ITEM SCPJDT      U(2,42,18); # JDT ORDINAL                          #
   ITEM SCPJOBID    U(2,0,WL);  # JOB ID WORD                          #
   END
