|
> 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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact copyright@midrange.com.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.