         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
INTRINSIC FFILEINFO, FCHECK;                                   << 9399>>01191000
    FFILEINFO( TFILE,  5, DEVICETYPE,                          << 9399>>10420000
                      50, LDEV        );                       << 9399>>10421000
$EDIT                                                          << 9399>>10930000
$PAGE "PROCEDURE JOBINFO"                                      << 9143>>15854900
LOGICAL ARRAY NBUFF(0:12);                                     << 9304>>17025000
BYTE    ARRAY NBUFFB(*) = NBUFF;                               << 9304>>17030000
BYTE    ARRAY BUFFB(0:25);                                     << 9304>>17035000
                                                               << 9379>>18674000
<< Get the DB location on the stack from PXGLOBAL area >>      << 9379>>18675000
        TOS := 1;                                              << 9379>>18705000
BUFFB := %40;                                                  << 9568>>18861000
MOVE BUFFB(1) := BUFFB,(25);                                   << 9568>>18862000
   IF ( ( JMATJOBSTATE = JOBEXEC )    LOR                      << 9379>>19385000
        ( JMATJOBSTATE = JOBSUSP ) )                           << 9379>>19390000
$EDIT                                                          << 9143>>19395000
           IF EXEC THEN                                        << 9379>>19895000
           IF EXEC OR JMATJOBSTATE = JOBCIINIT                 << 9516>>20325000
