*COMDECK RQPARDCLS
  
# THIS ARRAY DESCRIBES THE REQUEST PACKET FOR CDCS DML CALLS           #
  
        ARRAY DB$RQBF [0:DFINRQBFHSUB] S(1);
          BEGIN 
            ITEM RQHEADER   U(0,0,60);  # FIRST WORD OF REQUEST PACKET #
            ITEM RQHDRSS    C(0,0,4);   # INTERNAL REQUEST PACKET ID   #
            ITEM RQHDRIN    U(0,24,12); # RESERVED FOR INSTALLATION USE#
            ITEM RQHDRWC    U(0,36,6);  # WORD COUNT (COUNT-1)         #
            ITEM RQHDRCDC   U(0,42,4);  # RESERVED FOR CDC USE         #
            ITEM RQHDRCTL   U(0,46,2);  # RETURN CONTROL INFO          #
            ITEM RQHDRCTA   B(0,46,1);  # TRUE IF OS TO SET STATUS     #
            ITEM RQHDRCTB   B(0,47,1);  # TRUE IF CONTROL RETURNED IF  #
                                        # SUBSYSTEM BUSY               #
            ITEM RQHDREST   U(0,48,11); # ERROR/STATUS DATA            #
            ITEM RQHDRERF    U(0,48,6);   # ERROR FLAG                 #
            ITEM RQHDRESF   U(0,54,5);  # SET BY OS IF RETURN CONTROL  #
                                        # FIELD SET                    #
            ITEM RQHDRESR   U(0,54,2);  # RESERVED FOR FUTURE USE      #
            ITEM RQHDRSSU   B(0,56,1);  # TRUE IF SUBSYSTEM UNDEFINED  #
            ITEM RQHDRSSB   B(0,57,1);  # TRUE IF SUBSYSTEM BUSY       #
            ITEM RQHDRSSA   B(0,58,1);  # TRUE IF SUBSYSTEM NOT PRESENT#
            ITEM RQHDRCOM   B(0,59,1);  # REQUEST COMPLETION BIT       #
  
# THE FOLLOWING ITEMS DESCRIBE THE PARAMETER PACKET HEADER             #
  
            ITEM RQPKHDR    U(1,0,60);  # COMPLETE WORD                #
            ITEM RQPKEBUF   U(1,0,18);  # FWA OF ERROR MESSAGE BUFFER  #
            ITEM RQPKERR    U(1,18,9);  # ERROR NBR (RETURNED BY CDCS) #
            ITEM RQPKHDFC   U(1,54,6);  # FUNCTION CODE ASSIGNED FOR   #
                                        #  DML OR IMPLICIT REQUEST     #
            ITEM RQPKHDR2   U(2,0,60);  # COMPLETE WORD                #
            ITEM RQPKBIAS   U(2,0,18);  # SUB-CONTROL POINT RA (TAF)   #
            ITEM RQPKFL     U(2,18,18); # SUB-CONTROL POINT FL (TAF)   #
            ITEM RQPKTASK   U(2,36,24); # TASK NUMBER (MUJ-TYPE JOB)   #
  
            ITEM RQPKPARM   U(3,0,60);  # FIRST WORD OF DML PARAMETERS #
  
# THE FOLLOWING ITEMS DESCRIBE THE PARAMETERS FOR THE *INVOKE* AND THE #
# *VERSION* DML COMMANDS.  FOR A *VERSION* COMMAND, ALL FIELDS EXCEPT  #
# FOR *RQPVENAM* ARE CLEARED.                                          #
  
            ITEM RQPINID    C(3,0,10);  # 10-CHARACTER USER ID         #
            ITEM RQPINSC    C(4,0,30);  # 30-CHARACTER SCHEMA NAME     #
            ITEM RQPINSB    C(7,0,30);  # 30-CHARACTER SUB-SCHEMA NAME #
            ITEM RQPINSBCK  U(10,0,60); # SUBSCHEMA CHECKSUM           #
            ITEM RQPVENAM   C(11,0,07); # REQUESTED VERSION NAME       #
  
# THE FOLLOWING ITEMS DESCRIBE COMMON PARAMETERS FOR THE "OPEN",       #
# "CLOSE", "READ SEQUENTIAL", "READ RANDOM", "READ SEQUENTIAL INDEX",  #
# "READ RANDOM INDEX", "REWIND AREA","REWIND INDEX", "SKIP",           #
# "START INDEX", "WRITE RANDOM", "REWRITE", "DELETE", "START",         #
# "LOCK/UNLOCK" SYMBIONTS.                                             #
  
            ITEM RQPFITPF   U(3,0,60);  # FIRST WORD OF FIT PARAMETERS #
            ITEM RQPFITFW   U(3,0,60);  # FIRST WORD OF FIT PARAMETERS #
            ITEM RQPFITNDX  B(3,0,1);   # INDEX-ONLY ACCESS FLAG       #
            ITEM RQPFITPM   B(3,1,1);   # PROCESSING MODE              #
            ITEM RQPFITPD   U(3,3,3);   # PD FIELD                     #
            ITEM RQPFITRKP  U(3,12,4);  # ALTERNATE KEY CHAR POSITN    #
            ITEM RQPFITKP   U(3,16,4);  # KEY CHAR POSITION            #
            ITEM RQPFITKL   U(3,20,9);  # KEY LENGTH (CHARS)           #
            ITEM RQPFITKT   U(3,30,3);  # KEY TYPE                     #
            ITEM RQPFITMKL  U(3,33,9);  # MAJOR KEY LENGTH             #
            ITEM RQPFITRKW  U(3,48,12); # ALTERNATE KEY WORD LOCN      #
            ITEM RQPFITMRL  U(4,0,24);  # MAXIMUM RECORD LENGTH (CHARS)#
            ITEM RQPFITWS   U(4,42,18); # WORKING STORAGE AREA         #
            ITEM RQPFITPTL  U(4,0,24);  # PART TRANSFER LENGTH (OUTPUT)#
            ITEM RQPFITFP   U(4,24,7);  # FILE POSITION (OUTPUT)       #
            ITEM RQPFITRC   U(4,31,29); # RECORD COUNT (OUTPUT)        #
            ITEM RQPFITRL   U(5,0,24);  # RECORD LENGTH (CHARS)        #
            ITEM RQPFITOF   U(5,25,2);  # OPEN FLAG                    #
            ITEM RQPFITRO   U(5,33,3);  # RELATION OPERATOR            #
            ITEM RQPFITKNE  B(5,36,1);  # KEY NOT EQUAL (OUTPUT)       #
            ITEM RQPFITKA   U(5,42,18); # KEY ADDRESS                  #
            ITEM RQPFITPL   U(5,0,60);  # LAST WORD OF FIT PARAMETERS  #
            ITEM RQPARORD   U(6,0,60);  # AREA/RECORD ORDINAL          #
              ITEM RQPARLFLG  B(6,0,1); # TRUE IF RETURN RL TO UCP     #
            ITEM RQPARO    U(6,48,12);  #AREA/RECORD ORDINAL           #
            ITEM RQPPAKORD  U(7,0,60);  # PRIMARY/ALTERNATE KEY ORDINAL#
              ITEM RQPPAKNMF  B(7,0,1); # TRUE IF KEY IN SCHEMA FORMAT #
       ITEM RQPSRCNT I(7,2,18); # NUMBER OF RECORDS TO SKIP    #
               ITEM RQPPAKRO U(7,36,12);# RECORD ORDINAL              # 
               ITEM RQPPAKIO U(7,48,12);# ITEM ORDINAL                # 
            ITEM RQPNXLSF   U(8,0,60);  # NEXT/LAST FLAG               #
            ITEM RQPPAKEY   C(9,0,240); 
            ITEM RQPPAKY2   U(9,0,60);
                                        # PRIMARY/ALTERNATE KEY VALUE  #
  
  
# THE FOLLOWING ITEMS DESCRIBE THE "READ RELATION" PARAMETERS          #
#     THE ROOT FILE FIT PARAMETERS ARE AS DESCRIBED ABOVE              #
  
            ITEM RQPDNNUM  U(6,0,15);   # NUMBER OF DATA NAME ENTRIES  #
            ITEM RQPDNSZ   U(6,15,15);  # TOTAL NUMBER WORDS FOR ALL   #
                                        # DATA NAME VALUE ENTRIES      #
            ITEM RQPDNPTR  U(6,30,18);  # ADDRESS OF DATA NAME LIST    #
            ITEM RQPRELOR  U(6,48,12);  # RELATION ORDINAL             #
            ITEM RQPRLPAK   U(7,0,60);  # PRIMARY/ALTERNATE KEY ORDINAL#
            ITEM RQPFITLS   U(8,0,60);  # ADDRESS OF FIT LIST          #
            ITEM RQPRLKEY   C(9,0,240); # PRIMARY/ALTERNATE KEY        #
                                        # NOTE--KEY FOR RELATION READ  #
                                        # OCCUPIES SAME LOCATION AS IN #
                                        # NORMAL READ                  #
# THE FOLLOWING ITEMS DESCRIBE THE "PRIVACY" PARAMETERS                #
  
            ITEM RQPPRTYPE  U(3,0,60);  # PRIVACY ELEMENT TYPE         #
            ITEM RQPPREORD  U(4,0,60);  # AREA/RECORD ORDINAL          #
            ITEM RQPPRIORD  U(5,0,60);  # ITEM ORDINAL                 #
            ITEM RQPPROPTS  U(6,0,60);  # PRIVACY OPTIONS              #
            ITEM RQPPRKEY   C(7,0,30);  # PRIVACY KEY LITERAL          #
  
# THE FOLLOWING ITEMS DESCRIBE THE "RECOVERY POINT" PARAMETERS         #
  
            ITEM RQPRPNUM   U(3,0,60);  # ADDRESS OF CELL FOR R.P. NUM #
            ITEM RQPRPTEXT  C(4,0,30);  # RECOVERY POINT TEXT          #
  
# THE FOLLOWING ITEMS DESCRIBE THE "ELAPSED TIME "PARAMETERS           #
  
            ITEM RQPTADD    U(3,0,18);  # ADDRESS FOR TIME PARAMETERS  #
            ITEM RQPTTYP    U(3,18,18); # TIME TYPE REQUEST            #
  
# THE FOLLOWING ITEMS DESCRIBE THE "DATABASE STATUS BLOCK" PARAMETERS  #
  
            ITEM RQPDBSTLW  U(03,36,06); # DBST LENGTH IN WORDS        #
            ITEM RQPDBSTUCP U(03,42,18); # DBST ADDRESS AT THE UCP     #
  
# THE FOLLOWING ITEMS DESCRIBE THE PARAMETERS FOR THE *BEGIN*,         #
# *COMMIT*, *DROP*, *ASK*, *GETID* DML COMMANDS.                       #
  
            ITEM RQPTRWRD1  U(3,0,60);  # ENTIRE WORD                  #
            ITEM RQPTID     C(3,0,10);  # TRANSACTION ID (BEGIN)       #
            ITEM RQPRID     C(3,0,10);  # RESTART ID (ASK)             #
            ITEM RQPRIDLOC  I(3,42,18); # ADDRESS CELL FOR RID (GETID) #
            ITEM RQPTRWRD2  U(4,0,60);  # ENTIRE WORD                  #
            ITEM RQPTIDLOC  I(4,42,18); # ADDRESS CELL FOR TID (ASK)   #
  
# THE FOLLOWING ITEMS DESCRIBE THE PARAMETERS FOR THE *LOCK AREA*      #
# DML COMMAND WITH THE PROTECTED/EXCLUSIVE MODE OPTIONS.               #
  
            ITEM RQPRELNAM  C(3,0,30);  # REALM NAME (BLANK FILL)      #
            ITEM RQPLOKMOD  C(6,0,10);  # AREA LOCK MODE               #
  
# THE FOLLOWING ITEM DESCRIBES THE PARAMETER FOR THE "SET/RESET        #
# IMMEDIATE RETURN" REQUEST.                                           #
  
            ITEM RQPIMRWD1  U(03,00,60); # ENTIRE WORD.                #
            ITEM RQPIMRTN   B(03,59,01); # IMMEDIATE RETURN FLAG       #
  
  
          END 
