*COMDECK COMQDSP
  
# 
      COMQDSP - DSP PARAMETERS AND BUFFERS
# 
  
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
  
# 
***   COMQDSP - DSP PARAMETER AND FUNCTION CODES
# 
  
  CONTROL IFEQ OS$NOSBE;
      DEF DSPBLEN    #06#;         # DSP PARAMETER BLOCK LENGTH # 
      DEF DSPXPBL    #NBEXPBL#;    # DSP EXTENDED BLOCK LENGTH #
  CONTROL ENDIF;
  
  CONTROL IFEQ OS$NOS;
      DEF DSPBLEN    #20#;         # DSP PARAMETER BLOCK LENGTH # 
      DEF DSPXPBL    #55#;         # DSP EXTENDED BLOCK LENGTH #
  
# 
**    ORIGIN TYPE DEFINITIONS.
# 
  
      DEF SYOT       #0#;          # SYSTEM ORIGIN #
      DEF BCOT       #1#;          # BATCH ORIGIN # 
      DEF EIOT       #2#;          # REMOTE BATCH ORIGIN #
  
# 
**    SERVICE CLASS DEFINITIONS.
# 
  
      DEF BCSC       #"BC"#;       # BATCH SERVICE CLASS #
      DEF RBSC       #"RB"#;       # REMOTE BATCH SERVICE CLASS # 
      DEF DFSC       #"DF"#;       # DEFAULT SERVICE CLASS #
      DEF MXSC       #19#;         # MAXIMUM NUMBER OF SERVICE CLASS #
  
  CONTROL ENDIF;
  
    COMMON COMQDSP; 
      BEGIN  # COMMON BLOCK COMQDSP # 
  
      ARRAY DSP;
        BEGIN  # DSP RA+1 CALL #
        ITEM $DSP       C(0,0,4) = ["DSPP"];
        ITEM DSPADR     U(0,42,18);  # ADDR OF PARAMETER BLOCK #
        END 
  
# 
**    BASED ARRAY DEFINING A DSP PARAMETER BLOCK. 
# 
    CONTROL IFEQ OS$NOSBE;
      BASED ARRAY DSPB; 
        BEGIN 
        ITEM DSPWD      U(0,0,60);   # WORD IN ARRAY #
        ITEM DSPLFN     U(0,0,42);   # FILE NAME #
        ITEM DSPLFNC    C(0,0,07);   # FILE NAME #
        ITEM DSPER      U(0,42,6);   # ERROR CODE # 
        ITEM DSPCOMP    B(0,59,1);   # COMPLETE BIT # 
  
        ITEM DSPFC      U(1,12,12);  # FORMS CODE # 
        ITEM DSPIF      U(1,12,6);   # INPUT FILE FLAGS # 
        ITEM DSPIF46    B(1,13,1);   # UNUSED # 
        ITEM DSPIF45    B(1,14,1);   # DO NOT CATALOG # 
        ITEM DSPIF44    B(1,15,1);   # 7-CHAR FID SPECIFIED # 
        ITEM DSPIF43    B(1,16,1);   # IGNORE JOB CARD ERROR #
        ITEM DSPIF42    B(1,17,1);   # USE DEPENDENCY COUNT # 
        ITEM DSPDPC     U(1,18,6);   # DEPENDENCY COUNT # 
        ITEM DSPDIS     C(1,24,2);   # DISPOSITION CODE # 
        ITEM DSPEC      U(1,36,3);   # EXTERNAL CHARACTERISTICS # 
        ITEM DSPIC      U(1,40,2);   # INTERNAL CHARACTERISTICS # 
        ITEM DSPFLGS    U(1,42,18);  # FLAGS #
        ITEM DSPF17     B(1,42,1);   # RETURN JOB NAME #
        ITEM DSPF16     B(1,43,01);  # ROUTING TEXTS PRESENT# 
        ITEM DSPF15     B(1,44,1);   # SPACING CODE # 
        ITEM DSPF14     B(1,45,1);   # REPEAT COUNT # 
        ITEM DSPF13     B(1,46,1);   # DAYFILE ATTACHED # 
        ITEM DSPF12     B(1,47,1);   # RETURN ERROR CODE #
        ITEM DSPF11     B(1,48,1);   # PREDAYFILE LFN # 
        ITEM DSPF10     B(1,49,1);   # FORMS CODE # 
        ITEM DSPF9      B(1,50,1);   # PRIORITY # 
        ITEM DSPF8      B(1,51,1);   # INTERNAL CHARACTERISTICS # 
        ITEM DSPF7      B(1,52,1);   # EXTERNAL CHARACTERISTICS # 
        ITEM DSPF6      B(1,53,1);   # FID = * #
        ITEM DSPF5      B(1,54,1);   # USE FID #
        ITEM DSPF4      B(1,55,1);   # DISPOSITION CODE # 
        ITEM DSPF3      B(1,56,1);   # DID/SID SPECIFIED #
        ITEM DSPF2      B(1,57,1);   # TID #
        ITEM DSPF1      B(1,58,1);   # ROUTE TO CENTRAL SITE #
        ITEM DSPF0      B(1,59,1);   # DEFERRED ROUTE # 
  
        ITEM DSPSID     U(2,00,18);   # SOURCE ID # 
        ITEM DSPDID     U(2,18,18);   # DESTINATION ID #
        ITEM DSPTID     U(2,48,12);  # TID #
        ITEM DSPTIDC    C(2,48,02);  # TID #
  
        ITEM DSPFID     U(3,0,42);   # FID #
        ITEM DSPFIDC    C(3,0,07);   # FID #
        ITEM DSPBB      B(3,47,1);   # FORCE PRIORITY # 
        ITEM DSPPRI     U(3,48,12);  # PRIORITY # 
  
        ITEM DSPSC      U(4,0,6);    # SPACING CODE # 
        ITEM DSPPDF     C(4,00,07);  # PREDAYFILE (INPUT ONLY) #
        ITEM DSPDAYF    B(4,42,01);  # DAYFILE ATTACHED # 
        ITEM DSPRC      U(4,43,5);   # REPEAT COUNT # 
        ITEM DSPFNT     U(4,48,12);  # NOT USED # 
  
#                       U(5,00,42)     UNUSED                     # 
        ITEM DSPXPP     U(5,42,18);  # EXTENDED PARM BLOCK POINTER# 
        END 
  
# 
**    BASED ARRAY DEFINING DSP EXTENDED PARAMETER BLOCK.
# 
      BASED ARRAY DSPXPB [0:0] S(DSPXPBL);
        BEGIN 
#                       B(00,00,42)    UNUSED#
        ITEM DSPXILC    U(00,42,12); # IMPLICIT TEXTS LENGTH - CHARS# 
        ITEM DSPXILW    U(00,54,06); # IMPLICIT TEXT LENGTH - WORDS#
# 
*            WORDS 1-26 ARE THE IMPLICIT TEXT.
# 
        ITEM DSPXIRTFWA U(01,00,60);
#                       B(27,00,42)    UNUSED#
        ITEM DSPXELC    U(27,42,12); # EXPLICIT TEXT LENGTH - CHARS#
        ITEM DSPXELW    U(27,54,06); # EXPLICIT TEXT LENGTH - WORDS#
# 
*            WORDS 28-53 ARE THE EXPLICIT TEXT. 
# 
        ITEM DSPXERTFWA U(28,00,60);
#                       U(54,00,48)    UNUSED#
        ITEM DSPXDD     U(54,48,12); # DD SPECIFIED - BINARY# 
        ITEM DSPXDDC    C(54,48,02); # DD SPECIFIED - CHARS#
        ITEM DSPXID     U(55,00,12); # ID SPECIFIED - BINARY# 
        ITEM DSPXIDC    C(55,00,02); # ID SPECIFIED - CHARS#
#                       U(55,12,48)    UNUSED # 
        ITEM DSPXUN     U(56,00,42); # UN SPECIFIED - BINARY# 
        ITEM DSPXUNC    C(56,00,07); # UN SPECIFIED - CHARS#
#                       U(56,42,18)    UNUSED#
        ITEM DSPXFN     U(57,00,42); # FM SPECIFIED - BINARY# 
        ITEM DSPXFNC    C(57,00,07); # FM SPECIFIED - CHARS#
#                       U(57,42,18)    UNUSED # 
# 
*            WORDS 58-63 ARE UNUSED 
# 
        ITEM DSPXLAST   U(63,00,60);
  
  
  
       END
  
  
      BASED ARRAY DSPXIRTB [1:IRTLEN];
        BEGIN 
        ITEM DSPXIRT    U(00,00,60);
        END 
  
      BASED ARRAY DSPXERTB [1:ERTLEN];
        BEGIN 
        ITEM DSPXERT    U(00,00,60);
        END 
    CONTROL ENDIF;
  
    CONTROL IFEQ OS$NOS;
      BASED ARRAY DSPB; 
        BEGIN 
        ITEM DSPWD      U(00,00,60);  # WORD IN ARRAY # 
        ITEM DSPLFN     U(00,00,42);  # FILE NAME # 
        ITEM DSPLFNC    C(00,00,07);  # FILE NAME # 
        ITEM DSPER      U(00,42,06);  # ERROR CODE #
        ITEM DSPFOT     B(00,48,01);  # FORCE ORIGIN TYPE # 
        ITEM DSPOT      U(00,49,10);  # ORIGIN TYPE # 
        ITEM DSPCOMP    B(00,59,01);  # COMPLETE BIT #
  
        ITEM DSPTF      U(01,00,12);  # TERMINATION FLAGS # 
        ITEM DSPVAL     B(01,00,01);  # SET VALIDATION DISABLED # 
        ITEM DSPQF      B(01,01,01);  # QUEUE IF EC=99 #
        ITEM DSPEOI     B(01,02,01);  # SET EOI RANDOM ADDRESS #
        ITEM DSPFC      U(01,12,12);  # FORMS CODE #
        ITEM DSPIF      U(01,12,06);  # INPUT FILE FLAGS #
        ITEM DSPIF44    B(01,15,01);  # FORCE ABORT JOB # 
        ITEM DSPIF43    B(01,16,01);  # IGNORE JOB CARD ERROR # 
        ITEM DSPDIS     C(01,24,02);  # DISPOSITION CODE #
        ITEM DSPEC      U(01,36,03);  # EXTERNAL CHARACTERISTICS #
        ITEM DSPS       B(01,39,01);  # FORCED SERVICE CLASS #
        ITEM DSPIC      U(01,40,02);  # INTERNAL CHARACTERISTICS #
        ITEM DSPFLGS    U(01,42,18);  # ROUTEIN FLAGS # 
        ITEM DSPF17     B(01,42,01);  # RETURN JOB NAME # 
#                                        NOT USED  #
        ITEM DSPF15     B(01,44,01);  # SPACING CODE #
        ITEM DSPF14     B(01,45,01);  # REPEAT COUNT #
        ITEM DSPF13     B(01,46,01);  # SET UJN PRESENT # 
        ITEM DSPF12     B(01,47,01);  # RETURN ERROR CODE # 
        ITEM DSPF11     B(01,48,01);  # BINARY CARD ERROR # 
        ITEM DSPF10     B(01,49,01);  # FORMS CODE #
        ITEM DSPF9      B(01,50,01);  # PRIORITY #
        ITEM DSPF8      B(01,51,01);  # INTERNAL CHARACTERISTICS #
        ITEM DSPF7      B(01,52,01);  # EXTERNAL CHARACTERISTICS #
        ITEM DSPF6      B(01,53,01);  # SET IF EXTENDED DSP # 
#                                        NOT USED  #
        ITEM DSPF4      B(01,55,01);  # DISPOSITION CODE #
        ITEM DSPF3      B(01,56,01);  # SET SLID OR DLID PRESENT #
        ITEM DSPF2      B(01,57,01);  # TID # 
        ITEM DSPF1      B(01,58,01);  # ROUTE TO CENTRAL SITE # 
        ITEM DSPF0      B(01,59,01);  # DEFERED ROUTE - OUTPUT #
  
        ITEM DSPSID     U(02,00,18);  # SOURCE LID #
        ITEM DSPDID     U(02,18,18);  # DESTINATION LID # 
        ITEM DSPTID     U(02,36,24);  # TERMINAL IDENTIFICATION # 
  
        ITEM DSPUJN     U(03,00,42);  # USER JOB NAME # 
        ITEM DSPUJNC    C(03,00,07);  # USER JOB NAME # 
#                        (03,42,06)      NOT USED  #
        ITEM DSPPRI     U(03,48,12);  # PRIORITY FOR FILE # 
  
#                        (04,00,02)      NOT USED  #
        ITEM DSPPI      U(04,02,04);  # PRINT-IMAGE ORDINAL # 
        ITEM DSPSC      U(04,06,06);  # SPACING CODE #
        ITEM DSPSCL     C(04,12,02);  # SERVICE CLASS # 
        ITEM DSPSCLU    U(04,12,12);  # SERVICE CLASS # 
        ITEM DSPABT     U(04,24,12);  # FORCED ABORT IF INPUT # 
#                        (04,36,06)      NOT USED  #
        ITEM DSPRC      U(04,43,05);  # REPEAT COUNT #
#                        (04,48,12)      NOT USED  #
  
        ITEM DSPBC      U(05,00,24);  # BINARY CARD SEQUENCE ERROR #
        ITEM DSPBR      U(05,00,12);  # RECORD NUMBER IF INPUT #
        ITEM DSPBN      U(05,12,24);  # CARD NUMBER IF INPUT #
        ITEM DSPCNT     U(05,24,36);  # NUMBER OF CARDS READ #
  
        ITEM DSPEQD     U(06,00,42);  # TID WHERE INPUT WAS READ #
#                        (06,42,18)      NOT USED  #
  
        ITEM DSPDD      C(07,00,02);  # DATA DECLARATION #
#                        (07,12,30)     NOT USED  # 
        ITEM DSPEFGS    U(07,42,18);  # EXTENDED BLOCK FLAGS #
#                       U(07,42,07)     NOT USED  # 
        ITEM DSPEF10    B(07,49,01);  # CHARGE/PROJECT FLAG # 
#                       U(07,50,01)      NOT USED # 
        ITEM DSPEF8     B(07,51,01);  # SPECIAL REQUEUE (SSJ=) #
        ITEM DSPPWF     B(07,52,01);  # ENCRYPTED PASSWORD INCLUDED # 
        ITEM DSPSCLF    B(07,53,01);  # IGNORE SCL ERROR FLAG # 
        ITEM DSPEF5     B(07,54,01);  # CTL PT + SSID SPEC #
        ITEM DSPEF4     B(07,55,01);  # DO NOT CHECK PASSW (SSJ=) # 
        ITEM DSPEF3     B(07,56,01);  # SUBSYSTEM CALL #
        ITEM DSPEF2     B(07,57,01);  # CUN/CFM SPECIFIED # 
        ITEM DSPEF1     B(07,58,01);  # OUN/OFM SPECIFIED # 
        ITEM DSPEF0     B(07,59,01);  # DD SPECIFIED #
  
        ITEM DSPOUN     U(08,00,42);  # OWNER USER NUMBER # 
        ITEM DSPOUNC    C(08,00,07);  # OWNER USER NUMBER # 
        ITEM DSPIADR    U(08,42,18);  # ADDRESS OF IMPLICIT TEXT #
  
        ITEM DSPOFM     U(09,00,42);  # OWNER FAMILY NAME # 
        ITEM DSPOFMC    C(09,00,07);  # OWNER FAMILY NAME # 
        ITEM DSPEADR    U(09,42,18);  # ADDRESS OF EXPLICIT TEXT #
  
        ITEM DSPCUN     U(10,00,42);  # CREATION USER NUMBER #
        ITEM DSPCUNC    C(10,00,07);  # CREATION USER NUMBER #
#                        (10,42,18)      NOT USED  #
  
        ITEM DSPCFM     U(11,00,42);  # CREATION FAMILY NAME #
        ITEM DSPCFMC    C(11,00,07);  # CREATION FAMILY NAME #
#                        (11,42,18)      NOT USED # 
  
        ITEM DSPWD12    U(12,00,60);  # RESERVED FOR CDC #
        ITEM DSPPW      U(12,00,42);  # ENCRYPTED BATCH PASSWORD #
  
        ITEM DSPWD13    U(13,00,60);  # RESERVED FOR CDC #
  
        ITEM DSPWD14    U(14,00,60);  # RESERVED FOR INSTALLATION # 
  
        ITEM DSPCHGU    U(15,00,60);  # CHARGE NUMBER # 
        ITEM DSPCHG1C   C(15,00,07);  # CHARGE NUMBER (1-7) # 
        ITEM DSPCHG2C   C(15,42,03);  # CHARGE NUMBER (8-10) #
  
        ITEM DSPPJ1U    U(16,00,60);  # PROJECT NUMBER (1-10) # 
        ITEM DSPPJ11C   C(16,00,07);  # PROJECT NUMBER (1-7) #
        ITEM DSPPJ12C   C(16,42,03);  # PROJECT NUMBER (8-10) # 
  
        ITEM DSPPJ2U    U(17,00,60);  # PROJECT NUMBER (11-20) #
        ITEM DSPPJ21C   C(17,00,07);  # PROJECT NUMBER (11-17) #
        ITEM DSPPJ22C   C(17,42,03);  # PROJECT NUMBER (18-20) #
  
        ITEM DSPWDTID   U(18,00,60);  # TID BLOCK # 
        ITEM DSPDFM     U(18,00,42);  # DESTINATION FAMILY NAME # 
        ITEM DSPDFMC    C(18,00,07);  # DESTINATION FAMILY NAME # 
#                        (18,42,18)     NOT USED  # 
  
        ITEM DSPDUN     U(19,00,42);  # DESTINATION USER NUMBER # 
        ITEM DSPDUNC    C(19,00,07);  # DESTINATION USER NUMBER # 
#                        (19,42,18)     NOT USED #
  
        END 
  
# 
**    BASED ARRAY DEFINING ROUTING TEXT AREAS.
# 
  
      BASED ARRAY DSPXPB [0:0] S(DSPXPBL);
        BEGIN 
        ITEM DSPXILC    U(00,48,12);  # IMPLICIT TEXT LENGTH IN CHARS # 
        ITEM DSPXIRTFWA U(01,00,60);  # START OF IMPLICIT TEXT #
        ITEM DSPXELC    U(27,48,12);  # EXPLICIT TEXT LENGTH IN CHARS # 
        ITEM DSPXERTFWA U(28,00,60);  # START OF EXPLICIT TEXT #
        ITEM DSPXLAST   U(54,00,60);  # END OF BLOCK #
        END 
  
      CONTROL ENDIF;
  
      END  # COMMON BLOCK COMQDSP # 
  
  
      # END OF COMDECK COMQDSP #
                                               CONTROL LIST;
