PCO

> Anyone have a running doc on the SEPT, Pointers to jobs and job objects?
> 
        [Leif Svalgaard]  The PCO (Process Communication Object) is a good
starting
        point for such investigations. Just to whet your appetite, here are
some of the goodies
        that show up in a PCO as revealed by the "AS/400 Explorer":

                                     AS/400 Explorer

        

         Address DC96889FDD 000000            Search for

            100

         000000  00020008 00810001  E027620D 85000000    ·····a··\·Â·e···

         000010  40010000 00000000  DC96889F DD000020     ·······üoh¤ù···

         000020  80000000 00000000  34F67832 0A000100    Ø········6Ì·····
Space Ptr     
         000030  00008000 00000000  09D7B9F2 1700193F    ··Ø······P¾2····
Space         
         000040  00008000 00000000  D3403716 BE0019FF    ··Ø·····L ··´···
Space         
         000050  00008000 00000000  0D6BB5E3 910010FF    ··Ø······,§Tj···
Dev Descr     
         000060  00008000 00000000  D045E0DE 9C0004FF    ··Ø·····}á\úæ···
Library       
         000070  80000000 00000000  33E1EE66 C6000100    Ø·········ÓÃF···
Space Ptr     
         000080  80000000 00000000  EE7D7427 C8000100    Ø·······Ó'È·H···
Space Ptr     
         000090  00000000 00000000  38E26B02 F5000800    ·········S,·5···
User Prf      
         0000A0  00008000 00000000  E527229E A9000AFF    ··Ø·····V··Æz···
Queue         
         0000B0  00000000 00000000  00000000 00000000    ················

         0000C0  00000000 00000000  00000000 00000000    ················

         0000D0  00000000 00000000  00000000 00000000    ················

         0000E0  80000000 00000000  C4246D72 28000100    Ø·······D·_Ê····
Space Ptr     
         0000F0  00000000 00000000  00000000 00000000    ················

         Cmd===>

         F1=Help  F2=Search  F3=Exit   F4=Look  F5=Refresh  F6=Pickup
F7=Prior  F8=Next
         F9=Time  F10=Home   F11=Alter F12=Cancel           F13=Trace


        Here is a short comment about each non-zero line:

         000010  40010000 00000000  DC96889F DD000020     ·······üoh¤ù···

        points to PCO data portion

         000020  80000000 00000000  34F67832 0A000100    Ø········6Ì·····
Space Ptr     
        points to SEPT within QINSEPT

         000030  00008000 00000000  09D7B9F2 1700193F    ··Ø······P¾2····
Space         
        points to Work Control Table QWCBT01. Here you'll find the REALLY
        interesting stuff...

         000040  00008000 00000000  D3403716 BE0019FF    ··Ø·····L ··´···
Space       
        points to QDMCQ

         000050  00008000 00000000  0D6BB5E3 910010FF    ··Ø······,§Tj···
Dev Descr     
        points to the device description for your job (terminal), e.g.
QPADEV0002

         000060  00008000 00000000  D045E0DE 9C0004FF    ··Ø·····}á\úæ···
Library       
        points toQTEMP: full name = "QTEMP     002E7FE2BCD5E8EB0000" for
this job

         000070  80000000 00000000  33E1EE66 C6000100    Ø·········ÓÃF···
Space Ptr     
        points to your subsystem: QINTER

         000080  80000000 00000000  EE7D7427 C8000100    Ø·······Ó'È·H···
Space Ptr     
        points to PDT

         000090  00000000 00000000  38E26B02 F5000800    ·········S,·5···
User Prf      
        points to your user profile

         0000A0  00008000 00000000  E527229E A9000AFF    ··Ø·····V··Æz···
Queue         
        points to QMIRQ 

         0000E0  80000000 00000000  C4246D72 28000100    Ø·······D·_Ê····
Space Ptr     
        points to a work area QWCLUWA
+---
| 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
+---