RE: swap QTEMPs

> Look in WCBT00 associated space for the *LIFO queue:
> 
> DCL SYSPTR ?QWCBT00    BASPCO POS(17);
> DCL MSPPTR ?M1;
> DCL SYSPTR ?QWCBT01    BAS(?M1) POS(1);
> DCL MSPPTR ?M2;
> DCL SYSPTR ?QWMJOBSQ   BAS(?M1) POS(1);
> 
> SETSPPFP   ?M1, ?QWCBT00;
> SETSPPFP   ?M2, ?QWCBT01;
> MATQMSG    ?RCVR, ?QWMJOBSQ, SELECT;
> 
> Queue entries are 16 bytes long.  They are system pointers
> to the inactive process control spaces.
> 
        [Leif Svalgaard]  What had me confused is your names. Your
        system pointer ?QWCBT00 points to object 19D0:QWCBT01
        and your pointer ?QWCBT01 points to object 19D0:QWCBT00
        (i.e. 00 <-> 01 and 01 <-> 00).
        With this cleared up, I do find the object 0AEF:QWMJOBSQ
        and all the PCS's queued up in there:

        Address D42AC5362C 000000 :                   
        000000  00010008 00808000  D42AC536 2C000000    ·····ØØ·M·E·····  
        000010  C0010000 00000000  00000000 FF000000    {···············  
        000020  00000AEF D8E6D4D1  D6C2E2D8 40404040    ···ÕQWMJOBSQ      
        000030  40404040 40404040  40404040 40404040                      
        000040  40400000 00000000  00000008 FF1C0430      ··············  
        000050  7FF2C297 69698000  00000000 00000000    "2BpÑÑØ·········  
        000060  00000000 00000000  00000000 00000000    ················  
        000070  D42AC536 2C000000  00020000 01000000    M·E·············  
        000080  7FF2C297 69698000  00000000 00000000    "2BpÑÑØ·········  
        000090  00000000 00000000  00000000 00000000    ················  

        Address D42AC5362C 0002D0 : 
        0002D0  00008000 00000000  E0626A92 1F001A3F    ··Ø·····\¦k····
Proc Ctrl 
        0002E0  80000000 008B5050  00000000 00000000    Ø····»&&········

        0002F0  D42AC536 2C000100  00000000 00000000    M·E·············

        000300  D42AC536 2C000340  D42AC536 2C000280    M·E···· M·E····Ø

        000310  D42AC536 2C000320  00000000 00000000    M·E·············

        000320  7FF2C54D C8398000  00000010 00000000    "2E(H·Ø·········

           
        000330  00008000 00000000  CA24EE12 39001A3F    ··Ø······Ó····· Proc
Ctrl 
        000340  80000000 008B5050  00000000 00000000    Ø····»&&········

        000350  D42AC536 2C000100  00000000 00000000    M·E·············

        000360  D42AC536 2C0003A0  D42AC536 2C0002E0    M·E····µM·E····\

        000370  D42AC536 2C000380  00000000 00000000    M·E····Ø········

        000380  7FF2C54D D6240000  00000010 00000000    "2E(O···········


        000390  00008000 00000000  DB755664 9E001A3F    ··Ø·····ûÍîÀÆ···
Proc Ctrl   
        0003A0  80000000 008B5050  00000000 00000000    Ø····»&&········

        0003B0  D42AC536 2C000100  00000000 00000000    M·E·············

        0003C0  00000000 00000000  D42AC536 2C000340    ········M·E····

        0003D0  D42AC536 2C0003E0  00000000 00000000    M·E····\········

        0003E0  7FF3ED02 A3568000  00000010 00000000    "3Ò·tîØ·········


        0003F0  00008000 00000000  D4D77A5B 31001A3F    ··Ø·····MP:$····
Proc Ctrl   
        000400  80000000 008B5050  00000000 00000000    Ø····»&&········

        000410  D42AC536 2C000160  00000000 00000000    M·E····-········

        000420  00000000 00000000  D42AC536 2C000460    ········M·E····-

        000430  D42AC536 2C000440  00000000 00000000    M·E···· ········

        000440  7FF4243A 22878000  00000010 00000000    "4···gØ·········


        etc. Except, of course, at the level where I see them (in the space)
        the entries are 96 bytes long. Thanks for showing me the way.

+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---