<<subset of INCL DRH V>>                                                00001000
                                                                        00002000
logical pointer dqh=%31;                                                00003000
                                                                        00004000
EQUATE                                                                  00004100
                                                                        00004200
    DQH'FLAGS'INDEX = 14,                                               00004210
    DQH'SERWQHEAD'INDEX = 13;                                           00004300
                                                                        00004400
define                                                                  00005000
                                                                        00006000
    DQH'FLAGS=DQH(DQH'FLAGS'INDEX)#,                                    00006100
    DQH'ACTSERWRFLAG = (0:1)#,                                          00006200
    DQH'MAXSERQFIELD=(8:8)#,                                            00006300
    DQH'MAXSERWQ=DQH'FLAGS.DQH'MAXSERQFIELD#,                           00006400
    DQH'SERWQHEAD=DQH(DQH'SERWQHEAD'INDEX)#;                            00007000
                                                                        00008000
