From:	SMTP%"mailserv-reply@kopc.hhs.dk"  3-JAN-1994 09:25:16.51
To:	EVERHART
CC:	
Subj:	[UTILITIES]UTILITIES.2-OF-4;1

Date: Mon, 03 Jan 1994 14:41:45 +0100
From: "PMDF Mailserv V4.2" <mailserv-reply@kopc.hhs.dk>
Subject: [UTILITIES]UTILITIES.2-OF-4;1
To: EVERHART@arisia.gce.com
Message-id: <01H78ZR9GNUA8ZDZ76@kopc.hhs.dk>
MIME-version: 1.0
Content-type: TEXT/PLAIN
Content-transfer-encoding: 7BIT

-+-+-+-+-+-+-+-+ START OF PART 2 -+-+-+-+-+-+-+-+
X#define`20PSCAN$_HW_MODEL`205
X#define`20PSCAN$_HW_NAME`206
X#define`20PSCAN$_JOBPRCCNT`207
X#define`20PSCAN$_JOBTYPE`208
X#define`20PSCAN$_MASTER_PID`209
X#define`20PSCAN$_MEM`2010
X#define`20PSCAN$_MODE`2011
X#define`20PSCAN$_NODE_CSID`2012
X#define`20PSCAN$_NODENAME`2013
X#define`20PSCAN$_OWNER`2014
X#define`20PSCAN$_PRCCNT`2015
X#define`20PSCAN$_PRCNAM`2016
X#define`20PSCAN$_PRI`2017
X#define`20PSCAN$_PRIB`2018
X#define`20PSCAN$_STATE`2019
X#define`20PSCAN$_STS`2020
X#define`20PSCAN$_TERMINAL`2021
X#define`20PSCAN$_UIC`2022
X#define`20PSCAN$_USERNAME`2023
X#define`20PSCAN$_GETJPI_BUFFER_SIZE`2024
X#define`20PSCAN$_END`2025
X#define`20PSCAN$k_type`20129
X#define`20PSCAN$M_OR`201
X#define`20PSCAN$M_BIT_ALL`202
X#define`20PSCAN$M_BIT_ANY`204
X#define`20PSCAN$M_GEQ`208
X#define`20PSCAN$M_GTR`2016
X#define`20PSCAN$M_LEQ`2032
X#define`20PSCAN$M_LSS`2064
X#define`20PSCAN$M_PREFIX_MATCH`20128
X#define`20PSCAN$M_WILDCARD`20256
X#define`20PSCAN$M_CASE_BLIND`20512
X#define`20PSCAN$M_EQL`201024
X#define`20PSCAN$M_NEQ`202048
X#define`20PSCAN$S_item_specific_flags`202
X#define`20PSCAN$V_OR`200
X#define`20PSCAN$V_BIT_ALL`201
X#define`20PSCAN$V_BIT_ANY`202
X#define`20PSCAN$V_GEQ`203
X#define`20PSCAN$V_GTR`204
X#define`20PSCAN$V_LEQ`205
X#define`20PSCAN$V_LSS`206
X#define`20PSCAN$V_PREFIX_MATCH`207
X#define`20PSCAN$V_WILDCARD`208
X#define`20PSCAN$V_CASE_BLIND`209
X#define`20PSCAN$V_EQL`2010
X#define`20PSCAN$V_NEQ`2011
X/*`20
X`20*`20`20End`20of`20VAXC_DEFS`20definitions
X`20*/
$ call unpack PSCANDEF.H;1 926419659 ""
$!
$ create 'f'
X#include`20<stdio.h>
X#include`20<string.h>
X#include`20<prvdef.h>
X#include`20<quidef.h>
X
Xstruct`20itemlist`20`7B
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20short`20buflen,code;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20long`20bufadr,retlenadr;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`7D;
X
Xlong`20sys$setprv();
Xlong`20sys$getquiw();
X
Xmain(int`20argc,char`20*argv`5B`5D)
X`7B
X`20`20`20long`20stat,iosb`5B2`5D,qstat;
X`20`20`20char`20qname`5B33`5D,qstats`5B81`5D;
X`20`20`20long`20priv`5B2`5D`20=`20`7B`20PRV$M_OPER,0`20`7D;
X`20`20`20struct`20itemlist`20quilist`5B3`5D`20=`20`7B`20`7Bsizeof(qstat),QUI$_
VQUEUE_STATUS,`26qstat,0`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`7Bsizeof(qname)-1,QUI$_SEARCH_NAME,`26qname,0`7D
V`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`7B0,0,0,0`7D`20`7D;
X`20`20`20stat`20=`20sys$setprv(1,priv,0,0);
X`20`20`20strcpy(qname,argv`5B1`5D);
X`20`20`20quilist`5B1`5D.buflen`20=`20strlen(qname);
X`20`20`20qstat`20=`200;
X`20`20`20stat`20=`20sys$getquiw(0,QUI$_DISPLAY_QUEUE,0,quilist,iosb,0,0);
X`20`20`20strcpy(qstats,"");
X`20`20`20if`20(qstat`26QUI$M_QUEUE_CLOSED)`20strcat(qstats,",CLOSED");
X`20`20`20if`20(qstat`26QUI$M_QUEUE_IDLE)`20strcat(qstats,",IDLE");
X`20`20`20if`20(qstat`26QUI$M_QUEUE_PAUSED)`20strcat(qstats,",PAUSED");
X`20`20`20if`20(qstat`26QUI$M_QUEUE_PAUSING)`20strcat(qstats,",PAUSING");
X`20`20`20if`20(qstat`26QUI$M_QUEUE_RESETTING)`20strcat(qstats,",RESETTING");
X`20`20`20if`20(qstat`26QUI$M_QUEUE_RESUMING)`20strcat(qstats,",RESUMING");
X`20`20`20if`20(qstat`26QUI$M_QUEUE_STALLED)`20strcat(qstats,",STALLED");
X`20`20`20if`20(qstat`26QUI$M_QUEUE_STARTING)`20strcat(qstats,",STARTING");
X`20`20`20if`20(qstat`26QUI$M_QUEUE_STOPPED)`20strcat(qstats,",STOPPED");
X`20`20`20if`20(qstat`26QUI$M_QUEUE_STOPPING)`20strcat(qstats,",STOPPING");
X`20`20`20if`20(strlen(qstats)==0)`20strcat(qstats,",BUSY");
X`20`20`20printf("%s`20%s`5Cn",qname,`26qstats`5B1`5D);
X`7D;
$ call unpack QUEUE_1Q.C;1 623072464 ""
$!
$ create 'f'
X$`20stat=""
X$`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_CLOSED",p1)`20then`20stat=stat+",CLOS
VED"
X$`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_IDLE",p1)`20then`20stat=stat+",IDLE"
X$`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_PAUSED",p1)`20then`20stat=stat+",PAUS
VED"
X$`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_PAUSING",p1)`20then`20stat=stat+",PAU
VSING"
X$`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_RESETTING",p1)`20then`20stat=stat+",R
VESETTING"
X$`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_RESUMING",p1)`20then`20stat=stat+",RE
VSUMING"
X$`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_STALLED",p1)`20then`20stat=stat+",STA
VLLED"
X$`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_STARTING",p1)`20then`20stat=stat+",ST
VARTING"
X$`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_STOPPED",p1)`20then`20stat=stat+",STO
VPPED"
X$`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_STOPPING",p1)`20then`20stat=stat+",ST
VOPPING"
X$`20stat=stat-","
X$`20if`20f$length(stat)`20.eq.`200`20then`20stat="BUSY"
X$`20write`20sys$output`20f$fao("!AS`20!AS",p1,stat)
X$`20exit
$ call unpack QUEUE_1Q.COM;1 1281373324 ""
$!
$ create 'f'
X`20`20`20`20`20`20PROGRAM`20QUEUE_1Q
X`20`20`20`20`20`20INCLUDE`20'($PRVDEF)'
X`20`20`20`20`20`20INCLUDE`20'($QUIDEF)'
X`20`20`20`20`20`20STRUCTURE`20/ITEMLIST/
X`20`20`20`20`20`20`20`20INTEGER*2`20BUFLEN,CODE
X`20`20`20`20`20`20`20`20INTEGER*4`20BUFADR,RETLENADR
X`20`20`20`20`20`20ENDSTRUCTURE
X`20`20`20`20`20`20INTEGER*4`20STAT,IOSB(2),QSTAT
X`20`20`20`20`20`20INTEGER*2`20QNAMEL,QSTATSL
X`20`20`20`20`20`20CHARACTER*32`20QNAME
X`20`20`20`20`20`20CHARACTER*80`20QSTATS
X`20`20`20`20`20`20INTEGER*4`20PRIV(2)
X`20`20`20`20`20`20RECORD`20/ITEMLIST/QUILIST(3)
X`20`20`20`20`20`20INTEGER*4`20SYS$SETPRV,SYS$GETQUIW
X`20`20`20`20`20`20DATA`20PRIV/PRV$M_OPER,0/
X`20`20`20`20`20`20QUILIST(1).BUFLEN=4
X`20`20`20`20`20`20QUILIST(1).CODE=QUI$_QUEUE_STATUS
X`20`20`20`20`20`20QUILIST(1).BUFADR=%LOC(QSTAT)
X`20`20`20`20`20`20QUILIST(1).RETLENADR=0
X`20`20`20`20`20`20QUILIST(2).BUFLEN=LEN(QNAME)
X`20`20`20`20`20`20QUILIST(2).CODE=QUI$_SEARCH_NAME
X`20`20`20`20`20`20QUILIST(2).BUFADR=%LOC(QNAME)
X`20`20`20`20`20`20QUILIST(2).RETLENADR=0
X`20`20`20`20`20`20QUILIST(3).BUFLEN=0
X`20`20`20`20`20`20QUILIST(3).CODE=0
X`20`20`20`20`20`20QUILIST(3).BUFADR=0
X`20`20`20`20`20`20QUILIST(3).RETLENADR=0
X`20`20`20`20`20`20STAT=SYS$SETPRV(%VAL(1),PRIV,,)
X`20`20`20`20`20`20CALL`20LIB$GET_FOREIGN(QNAME,,QNAMEL)
X`20`20`20`20`20`20QUILIST(2).BUFLEN=QNAMEL
X`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_DISPLAY_QUEUE),,QUILIST,IOSB,,)
X`20`20`20`20`20`20QSTATSL=0
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_CLOSED).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',CLOSED')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_IDLE).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',IDLE')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_PAUSED).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',PAUSED')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_PAUSING).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',PAUSING')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_RESETTING).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',RESETTING')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_RESUMING).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',RESUMING')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_STALLED).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',STALLED')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_STARTING).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',STARTING')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_STOPPED).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',STOPPED')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_STOPPING).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',STOPPING')
X`20`20`20`20`20`20IF(QSTATSL.EQ.0)`20CALL`20STRAPP(QSTATS,QSTATSL,',BUSY')
X`20`20`20`20`20`20WRITE(6,'(1X,A,1X,A)')`20QNAME(1:QNAMEL),QSTATS(2:QSTATSL)
X`20`20`20`20`20`20END
XC
X`20`20`20`20`20`20SUBROUTINE`20STRAPP(S,SL,SUBS)
X`20`20`20`20`20`20CHARACTER*(*)`20S
X`20`20`20`20`20`20INTEGER*2`20SL
X`20`20`20`20`20`20CHARACTER*(*)`20SUBS
X`20`20`20`20`20`20INTEGER*2`20L
X`20`20`20`20`20`20L=LEN(SUBS)
X`20`20`20`20`20`20S(SL+1:SL+L)=SUBS
X`20`20`20`20`20`20SL=SL+L
X`20`20`20`20`20`20RETURN
X`20`20`20`20`20`20END
$ call unpack QUEUE_1Q.FOR;1 1113778 ""
$!
$ create 'f'
X`5Binherit('sys$library:starlet','sys$library:pascal$lib_routines')`5D
X
Xprogram`20queue_1q(input,output);
X
Xconst
X`20`20`20string_length`20=`20256;
X
Xtype
X`20`20`20string`20`20`20=`20varying`20`5Bstring_length`5D`20of`20char;
X`20`20`20word`20`20`20`20`20=`20`5Bword`5D`200..65535;
X`20`20`20quad`20`20`20`20`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20l0,l1`20:`20unsigned;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20end;
X`20`20`20itemlist`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20buflen,code`20:`20word;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20bufadr,retlenadr`20:`20unsi
Vgned;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20end;
X
Xvar
X`20`20`20stat,qstat`20`20`20:`20unsigned;
X`20`20`20iosb`20`20`20`20`20`20`20`20`20:`20quad;
X`20`20`20qname,qstats`20:`20string;
X`20`20`20priv`20`20`20`20`20`20`20`20`20:`20quad;
X`20`20`20quilist`20`20`20`20`20`20:`20array`20`5B1..3`5D`20of`20itemlist;
X
Xbegin
X`20`20`20priv.l0:=PRV$M_OPER;
X`20`20`20priv.l1:=0;
X`20`20`20quilist`5B1`5D.buflen:=4;
X`20`20`20quilist`5B1`5D.code:=QUI$_QUEUE_STATUS;
X`20`20`20quilist`5B1`5D.bufadr:=iaddress(qstat);
X`20`20`20quilist`5B1`5D.retlenadr:=0;
X`20`20`20quilist`5B2`5D.buflen:=string_length;
X`20`20`20quilist`5B2`5D.code:=QUI$_SEARCH_NAME;
X`20`20`20quilist`5B2`5D.bufadr:=iaddress(qname.body);
X`20`20`20quilist`5B2`5D.retlenadr:=0;
X`20`20`20quilist`5B3`5D.buflen:=0;
X`20`20`20quilist`5B3`5D.code:=0;
X`20`20`20quilist`5B3`5D.bufadr:=0;
X`20`20`20quilist`5B3`5D.retlenadr:=0;
X`20`20`20stat:=$setprv(enbflg:=1,prvadr:=priv);
X`20`20`20lib$get_foreign(resultant_string:=qname.body,resultant_length:=qname.
Vlength);
X`20`20`20quilist`5B2`5D.buflen:=length(qname);
X`20`20`20stat:=$getquiw(func:=QUI$_DISPLAY_QUEUE,itmlst:=quilist,iosb:=iosb);
X`20`20`20qstats:='';
X`20`20`20if`20(uand(qstat,QUI$M_QUEUE_CLOSED)<>0)`20then`20qstats:=qstats+',CL
VOSED';
X`20`20`20if`20(uand(qstat,QUI$M_QUEUE_IDLE)<>0)`20then`20qstats:=qstats+',IDLE
V';
X`20`20`20if`20(uand(qstat,QUI$M_QUEUE_PAUSED)<>0)`20then`20qstats:=qstats+',PA
VUSED';
X`20`20`20if`20(uand(qstat,QUI$M_QUEUE_PAUSING)<>0)`20then`20qstats:=qstats+',P
VAUSING';
X`20`20`20if`20(uand(qstat,QUI$M_QUEUE_RESETTING)<>0)`20then`20qstats:=qstats+'
V,RESETTING';
X`20`20`20if`20(uand(qstat,QUI$M_QUEUE_RESUMING)<>0)`20then`20qstats:=qstats+',
VRESUMING';
X`20`20`20if`20(uand(qstat,QUI$M_QUEUE_STALLED)<>0)`20then`20qstats:=qstats+',S
VTALLED';
X`20`20`20if`20(uand(qstat,QUI$M_QUEUE_STARTING)<>0)`20then`20qstats:=qstats+',
VSTARTING';
X`20`20`20if`20(uand(qstat,QUI$M_QUEUE_STOPPED)<>0)`20then`20qstats:=qstats+',S
VTOPPED';
X`20`20`20if`20(uand(qstat,QUI$M_QUEUE_STOPPING)<>0)`20then`20qstats:=qstats+',
VSTOPPING';
X`20`20`20if`20length(qstats)=0`20then`20qstats:=',BUSY';
X`20`20`20qstats:=substr(qstats,2,length(qstats)-1);
X`20`20`20writeln(qname,'`20',qstats);
Xend.
$ call unpack QUEUE_1Q.PAS;1 778865157 ""
$!
$ create 'f'
X#include`20<stdio.h>
X#include`20<stdlib.h>
X#include`20<prvdef.h>
X#include`20<quidef.h>
X
Xstruct`20itemlist`20`7B
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20short`20buflen,code;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20long`20bufadr,retlenadr;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`7D;
X
Xlong`20sys$setprv();
Xlong`20sys$getquiw();
X
Xmain(int`20argc,char`20*argv`5B`5D)
X`7B
X`20`20`20long`20stat,iosb`5B2`5D,ent;
X`20`20`20short`20jnl,unl;
X`20`20`20char`20jn`5B33`5D,un`5B13`5D;
X`20`20`20long`20priv`5B2`5D`20=`20`7B`20PRV$M_OPER,0`20`7D;
X`20`20`20struct`20itemlist`20quilist`5B4`5D`20=`20`7B`20`7Bsizeof(jn)-1,QUI$_J
VOB_NAME,`26jn,`26jnl`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`7Bsizeof(un)-1,QUI$_USERNAME,`26un,`26unl`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`7Bsizeof(ent),QUI$_SEARCH_NUMBER,`26ent,0`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`7B0,0,0,0`7D`20`7D;
X`20`20`20stat`20=`20sys$setprv(1,priv,0,0);
X`20`20`20ent`20=`20atoi(argv`5B1`5D);
X`20`20`20stat`20=`20sys$getquiw(0,QUI$_DISPLAY_ENTRY,0,quilist,iosb,0,0);
X`20`20`20jn`5Bjnl`5D`20=`20'`5C0';
X`20`20`20un`5Bunl`5D`20=`20'`5C0';
X`20`20`20printf("%d`20%s`20%s`5Cn",ent,jn,un);
X`7D;
$ call unpack QUEUE_1Q1J.C;1 340549203 ""
$!
$ create 'f'
X$`20set`20proc/priv=oper
X$`20ent=f$integer(p1)
X$`20jn=f$getqui("DISPLAY_ENTRY","JOB_NAME",ent)
X$`20un=f$getqui("DISPLAY_ENTRY","USERNAME",ent)
X$`20write`20sys$output`20f$fao("!SL`20!AS`20!AS",ent,jn,un)
X$`20exit
$ call unpack QUEUE_1Q1J.COM;1 1968003552 ""
$!
$ create 'f'
X`20`20`20`20`20`20PROGRAM`20QUEUE_1Q1J
X`20`20`20`20`20`20INCLUDE`20'($PRVDEF)'
X`20`20`20`20`20`20INCLUDE`20'($QUIDEF)'
X`20`20`20`20`20`20STRUCTURE`20/ITEMLIST/
X`20`20`20`20`20`20`20`20INTEGER*2`20BUFLEN,CODE
X`20`20`20`20`20`20`20`20INTEGER*4`20BUFADR,RETLENADR
X`20`20`20`20`20`20ENDSTRUCTURE
X`20`20`20`20`20`20INTEGER*4`20STAT,IOSB(2),ENT
X`20`20`20`20`20`20INTEGER*2`20UNL,JNL,SL
X`20`20`20`20`20`20CHARACTER*12`20UN
X`20`20`20`20`20`20CHARACTER*32`20JN
X`20`20`20`20`20`20CHARACTER*80`20S
X`20`20`20`20`20`20INTEGER*4`20PRIV(2)
X`20`20`20`20`20`20RECORD`20/ITEMLIST/QUILIST(4)
X`20`20`20`20`20`20INTEGER*4`20SYS$SETPRV,SYS$GETQUIW
X`20`20`20`20`20`20DATA`20PRIV/PRV$M_OPER,0/
X`20`20`20`20`20`20QUILIST(1).BUFLEN=LEN(JN)
X`20`20`20`20`20`20QUILIST(1).CODE=QUI$_JOB_NAME
X`20`20`20`20`20`20QUILIST(1).BUFADR=%LOC(JN)
X`20`20`20`20`20`20QUILIST(1).RETLENADR=%LOC(JNL)
X`20`20`20`20`20`20QUILIST(2).BUFLEN=LEN(UN)
X`20`20`20`20`20`20QUILIST(2).CODE=QUI$_USERNAME
X`20`20`20`20`20`20QUILIST(2).BUFADR=%LOC(UN)
X`20`20`20`20`20`20QUILIST(2).RETLENADR=%LOC(UNL)
X`20`20`20`20`20`20QUILIST(3).BUFLEN=4
X`20`20`20`20`20`20QUILIST(3).CODE=QUI$_SEARCH_NUMBER
X`20`20`20`20`20`20QUILIST(3).BUFADR=%LOC(ENT)
X`20`20`20`20`20`20QUILIST(3).RETLENADR=0
X`20`20`20`20`20`20QUILIST(4).BUFLEN=0
X`20`20`20`20`20`20QUILIST(4).CODE=0
X`20`20`20`20`20`20QUILIST(4).BUFADR=0
X`20`20`20`20`20`20QUILIST(4).RETLENADR=0
X`20`20`20`20`20`20STAT=SYS$SETPRV(%VAL(1),PRIV,,)
X`20`20`20`20`20`20CALL`20LIB$GET_FOREIGN(S,,SL)
X`20`20`20`20`20`20READ(S(1:SL),'(I)')`20ENT
X`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_DISPLAY_ENTRY),,QUILIST,IOSB,,)
X`20`20`20`20`20`20WRITE(6,'(1X,I,1X,A,1X,A)')`20ENT,UN(1:UNL),JN(1:JNL)
X`20`20`20`20`20`20END
$ call unpack QUEUE_1Q1J.FOR;1 1880301094 ""
$!
$ create 'f'
X`5Binherit('sys$library:starlet','sys$library:pascal$lib_routines')`5D
X
Xprogram`20queue_1q1j(input,output);
X
Xconst
X`20`20`20string_length`20=`20256;
X
Xtype
X`20`20`20string`20`20`20=`20varying`20`5Bstring_length`5D`20of`20char;
X`20`20`20word`20`20`20`20`20=`20`5Bword`5D`200..65535;
X`20`20`20quad`20`20`20`20`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20l0,l1`20:`20unsigned;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20end;
X`20`20`20itemlist`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20buflen,code`20:`20word;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20bufadr,retlenadr`20:`20unsi
Vgned;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20end;
X
Xvar
X`20`20`20stat,ent`20:`20unsigned;
X`20`20`20iosb`20`20`20`20`20:`20quad;
X`20`20`20un,jn,s`20`20:`20string;
X`20`20`20priv`20`20`20`20`20:`20quad;
X`20`20`20quilist`20`20:`20array`20`5B1..4`5D`20of`20itemlist;
X
Xbegin
X`20`20`20priv.l0:=PRV$M_OPER;
X`20`20`20priv.l1:=0;
X`20`20`20quilist`5B1`5D.buflen:=string_length;
X`20`20`20quilist`5B1`5D.code:=QUI$_JOB_NAME;
X`20`20`20quilist`5B1`5D.bufadr:=iaddress(jn.body);
X`20`20`20quilist`5B1`5D.retlenadr:=iaddress(jn.length);
X`20`20`20quilist`5B2`5D.buflen:=string_length;
X`20`20`20quilist`5B2`5D.code:=QUI$_USERNAME;
X`20`20`20quilist`5B2`5D.bufadr:=iaddress(un.body);
X`20`20`20quilist`5B2`5D.retlenadr:=iaddress(un.length);
X`20`20`20quilist`5B3`5D.buflen:=4;
X`20`20`20quilist`5B3`5D.code:=QUI$_SEARCH_NUMBER;
X`20`20`20quilist`5B3`5D.bufadr:=iaddress(ent);
X`20`20`20quilist`5B3`5D.retlenadr:=0;
X`20`20`20quilist`5B4`5D.buflen:=0;
X`20`20`20quilist`5B4`5D.code:=0;
X`20`20`20quilist`5B4`5D.bufadr:=0;
X`20`20`20quilist`5B4`5D.retlenadr:=0;
X`20`20`20stat:=$setprv(enbflg:=1,prvadr:=priv);
X`20`20`20lib$get_foreign(resultant_string:=s.body,resultant_length:=s.length);
V
X`20`20`20readv(s,ent);
X`20`20`20stat:=$getquiw(func:=QUI$_DISPLAY_ENTRY,itmlst:=quilist,iosb:=iosb);
X`20`20`20writeln(ent,'`20',un,'`20',jn);
Xend.
$ call unpack QUEUE_1Q1J.PAS;1 1886597202 ""
$!
$ create 'f'
X#include`20<stdio.h>
X#include`20<stdlib.h>
X#include`20<string.h>
X#include`20<prvdef.h>
X#include`20<quidef.h>
X
Xstruct`20itemlist`20`7B
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20short`20buflen,code;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20long`20bufadr,retlenadr;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`7D;
X
Xlong`20sys$setprv();
Xlong`20sys$getquiw();
X
Xmain(int`20argc,char`20*argv`5B`5D)
X`7B
X`20`20`20long`20stat,iosb`5B2`5D,ne,ent`5B1000`5D,i;
X`20`20`20short`20jnl,unl;
X`20`20`20char`20qname`5B33`5D,jn`5B33`5D,un`5B13`5D;
X`20`20`20long`20flag1`20=`20QUI$M_SEARCH_WILDCARD;
X`20`20`20long`20flag2`20=`20QUI$M_SEARCH_ALL_JOBS;
X`20`20`20long`20priv`5B2`5D`20=`20`7B`20PRV$M_OPER,0`20`7D;
X`20`20`20struct`20itemlist`20quilist1`5B3`5D`20=`20`7B`20`7Bsizeof(qname)-1,QU
VI$_SEARCH_NAME,`26qname,0`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7Bsizeof(flag1),QUI$_SEARCH_FLAGS,`26flag1,0
V`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7B0,0,0,0`7D`20`7D;
X`20`20`20struct`20itemlist`20quilist2`5B3`5D`20=`20`7B`20`7Bsizeof(long),QUI$_
VENTRY_NUMBER,0,0`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7Bsizeof(flag2),QUI$_SEARCH_FLAGS,`26flag2,0
V`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7B0,0,0,0`7D`20`7D;
X`20`20`20struct`20itemlist`20quilist3`5B4`5D`20=`20`7B`20`7Bsizeof(jn)-1,QUI$_
VJOB_NAME,`26jn,`26jnl`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7Bsizeof(un)-1,QUI$_USERNAME,`26un,`26unl`7D
V`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7Bsizeof(ent`5B0`5D),QUI$_SEARCH_NUMBER,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`26ent`5B0`5D,0`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7B0,0,0,0`7D`20`7D;
X`20`20`20stat`20=`20sys$setprv(1,priv,0,0);
X`20`20`20stat`20=`20sys$getquiw(0,QUI$_CANCEL_OPERATION,0,0,iosb,0,0);
X`20`20`20strcpy(qname,argv`5B1`5D);
X`20`20`20quilist1`5B0`5D.buflen`20=`20strlen(qname);
X`20`20`20stat`20=`20sys$getquiw(0,QUI$_DISPLAY_QUEUE,0,quilist1,iosb,0,0);
X`20`20`20ne`20=`200;
X`20`20`20while`20(1)`20`7B
X`20`20`20`20`20`20quilist2`5B0`5D.bufadr`20=`20`26ent`5Bne`5D;
X`20`20`20`20`20`20stat`20=`20sys$getquiw(0,QUI$_DISPLAY_JOB,0,quilist2,iosb,0,
V0);
X`20`20`20`20`20`20if`20((stat`261)!=1)`20break;
X`20`20`20`20`20`20if`20((iosb`5B0`5D`261)!=1)`20break;
X`20`20`20`20`20`20ne++;
X`20`20`20`7D;
X`20`20`20for`20(i=0;i<ne;i++)`20`7B
X`20`20`20`20`20`20quilist3`5B2`5D.bufadr`20=`20`26ent`5Bi`5D;
X`20`20`20`20`20`20stat`20=`20sys$getquiw(0,QUI$_DISPLAY_ENTRY,0,quilist3,iosb,
V0,0);
X`20`20`20`20`20`20jn`5Bjnl`5D`20=`20'`5C0';
X`20`20`20`20`20`20un`5Bunl`5D`20=`20'`5C0';
X`20`20`20`20`20`20printf("%d`20%s`20%s`5Cn",ent`5Bi`5D,jn,un);
X`20`20`20`7D;
X`7D;
$ call unpack QUEUE_1QNJ.C;1 741692152 ""
$!
$ create 'f'
X$`20set`20proc/priv=oper
X$`20tmp=f$getqui("CANCEL_OPERATION")
X$`20tmp=f$getqui("DISPLAY_QUEUE","QUEUE_NAME",p1,"WILDCARD")
X$`20ne=0
X$`20loop1:
X$`20`20`20`20ent=f$getqui("DISPLAY_JOB","ENTRY_NUMBER",,"ALL_JOBS")
X$`20`20`20`20if`20ent`20.eqs.`20""`20then`20goto`20endloop1
X$`20`20`20`20ne=ne+1
X$`20`20`20`20ent_'ne'=ent
X$`20`20`20`20goto`20loop1
X$`20endloop1:
X$`20i=0
X$`20loop2:
X$`20`20`20`20i=i+1
X$`20`20`20`20if`20i`20.gt.`20ne`20then`20goto`20endloop2
X$`20`20`20`20jn=f$getqui("DISPLAY_ENTRY","JOB_NAME",ent_'i')
X$`20`20`20`20un=f$getqui("DISPLAY_ENTRY","USERNAME",ent_'i')
X$`20`20`20`20write`20sys$output`20f$fao("!SL`20!AS`20!AS",ent_'i',jn,un)
X$`20`20`20`20goto`20loop2
X$`20endloop2:
X$`20exit
$ call unpack QUEUE_1QNJ.COM;1 856952846 ""
$!
$ create 'f'
X`20`20`20`20`20`20PROGRAM`20QUEUE_1QNJ
X`20`20`20`20`20`20INCLUDE`20'($PRVDEF)'
X`20`20`20`20`20`20INCLUDE`20'($QUIDEF)'
X`20`20`20`20`20`20STRUCTURE`20/ITEMLIST/
X`20`20`20`20`20`20`20`20INTEGER*2`20BUFLEN,CODE
X`20`20`20`20`20`20`20`20INTEGER*4`20BUFADR,RETLENADR
X`20`20`20`20`20`20ENDSTRUCTURE
X`20`20`20`20`20`20INTEGER*4`20STAT,IOSB(2),NE,ENT(1000),I
X`20`20`20`20`20`20INTEGER*2`20UNL,JNL,QNAMEL
X`20`20`20`20`20`20CHARACTER*12`20UN
X`20`20`20`20`20`20CHARACTER*32`20JN,QNAME
X`20`20`20`20`20`20INTEGER*4`20FLAG1,FLAG2
X`20`20`20`20`20`20INTEGER*4`20PRIV(2)
X`20`20`20`20`20`20RECORD`20/ITEMLIST/QUILIST1(3),QUILIST2(3),QUILIST3(4)
X`20`20`20`20`20`20INTEGER*4`20SYS$SETPRV,SYS$GETQUIW
X`20`20`20`20`20`20DATA`20FLAG1/QUI$M_SEARCH_WILDCARD/
X`20`20`20`20`20`20DATA`20FLAG2/QUI$M_SEARCH_ALL_JOBS/
X`20`20`20`20`20`20DATA`20PRIV/PRV$M_OPER,0/
X`20`20`20`20`20`20QUILIST1(1).BUFLEN=LEN(QNAME)
X`20`20`20`20`20`20QUILIST1(1).CODE=QUI$_SEARCH_NAME
X`20`20`20`20`20`20QUILIST1(1).BUFADR=%LOC(QNAME)
X`20`20`20`20`20`20QUILIST1(1).RETLENADR=0
X`20`20`20`20`20`20QUILIST1(2).BUFLEN=4
X`20`20`20`20`20`20QUILIST1(2).CODE=QUI$_SEARCH_FLAGS
X`20`20`20`20`20`20QUILIST1(2).BUFADR=%LOC(FLAG1)
X`20`20`20`20`20`20QUILIST1(2).RETLENADR=0
X`20`20`20`20`20`20QUILIST1(3).BUFLEN=0
X`20`20`20`20`20`20QUILIST1(3).CODE=0
X`20`20`20`20`20`20QUILIST1(3).BUFADR=0
X`20`20`20`20`20`20QUILIST1(3).RETLENADR=0
X`20`20`20`20`20`20QUILIST2(1).BUFLEN=4
X`20`20`20`20`20`20QUILIST2(1).CODE=QUI$_ENTRY_NUMBER
X`20`20`20`20`20`20QUILIST2(1).BUFADR=0
X`20`20`20`20`20`20QUILIST2(1).RETLENADR=0
X`20`20`20`20`20`20QUILIST2(2).BUFLEN=4
X`20`20`20`20`20`20QUILIST2(2).CODE=QUI$_SEARCH_FLAGS
X`20`20`20`20`20`20QUILIST2(2).BUFADR=%LOC(FLAG2)
X`20`20`20`20`20`20QUILIST2(2).RETLENADR=0
X`20`20`20`20`20`20QUILIST2(3).BUFLEN=0
X`20`20`20`20`20`20QUILIST2(3).CODE=0
X`20`20`20`20`20`20QUILIST2(3).BUFADR=0
X`20`20`20`20`20`20QUILIST2(3).RETLENADR=0
X`20`20`20`20`20`20QUILIST3(1).BUFLEN=LEN(JN)
X`20`20`20`20`20`20QUILIST3(1).CODE=QUI$_JOB_NAME
X`20`20`20`20`20`20QUILIST3(1).BUFADR=%LOC(JN)
X`20`20`20`20`20`20QUILIST3(1).RETLENADR=%LOC(JNL)
X`20`20`20`20`20`20QUILIST3(2).BUFLEN=LEN(UN)
X`20`20`20`20`20`20QUILIST3(2).CODE=QUI$_USERNAME
X`20`20`20`20`20`20QUILIST3(2).BUFADR=%LOC(UN)
X`20`20`20`20`20`20QUILIST3(2).RETLENADR=%LOC(UNL)
X`20`20`20`20`20`20QUILIST3(3).BUFLEN=4
X`20`20`20`20`20`20QUILIST3(3).CODE=QUI$_SEARCH_NUMBER
X`20`20`20`20`20`20QUILIST3(3).BUFADR=0
X`20`20`20`20`20`20QUILIST3(3).RETLENADR=0
X`20`20`20`20`20`20QUILIST3(4).BUFLEN=0
X`20`20`20`20`20`20QUILIST3(4).CODE=0
X`20`20`20`20`20`20QUILIST3(4).BUFADR=0
X`20`20`20`20`20`20QUILIST3(4).RETLENADR=0
X`20`20`20`20`20`20STAT=SYS$SETPRV(%VAL(1),PRIV,,)
X`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_CANCEL_OPERATION),,,IOSB,,)
X`20`20`20`20`20`20CALL`20LIB$GET_FOREIGN(QNAME,,QNAMEL)
X`20`20`20`20`20`20QUILIST1(1).BUFLEN=QNAMEL
X`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_DISPLAY_QUEUE),,QUILIST1,IOSB,,)
V
X`20`20`20`20`20`20NE=0
X100`20`20`20QUILIST2(1).BUFADR=%LOC(ENT(NE+1))
X`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_DISPLAY_JOB),,QUILIST2,IOSB,,)
X`20`20`20`20`20`20IF((STAT.AND.1).NE.1)`20GOTO`20200
X`20`20`20`20`20`20IF((IOSB(1).AND.1).NE.1)`20GOTO`20200
X`20`20`20`20`20`20NE=NE+1
X`20`20`20`20`20`20GOTO`20100
X200`20`20`20DO`20300`20I=1,NE
X`20`20`20`20`20`20`20`20QUILIST3(3).BUFADR=%LOC(ENT(I))
X`20`20`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_DISPLAY_ENTRY),,QUILIST3,I
VOSB,,)
X`20`20`20`20`20`20`20`20WRITE(6,'(1X,I,1X,A,1X,A)')`20ENT(I),UN(1:UNL),JN(1:JN
VL)
X300`20`20`20CONTINUE
X`20`20`20`20`20`20END
$ call unpack QUEUE_1QNJ.FOR;1 1145907072 ""
$!
$ create 'f'
X`5Binherit('sys$library:starlet','sys$library:pascal$lib_routines')`5D
X
Xprogram`20queue_1qnj(input,output);
X
Xlabel
X`20`20`20fin;
X
Xconst
X`20`20`20string_length`20=`20256;
X
Xtype
X`20`20`20string`20`20`20=`20varying`20`5Bstring_length`5D`20of`20char;
X`20`20`20word`20`20`20`20`20=`20`5Bword`5D`200..65535;
X`20`20`20quad`20`20`20`20`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20l0,l1`20:`20unsigned;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20end;
X`20`20`20itemlist`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20buflen,code`20:`20word;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20bufadr,retlenadr`20:`20unsi
Vgned;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20end;
X
Xvar
X`20`20`20stat`20`20`20`20`20`20`20`20:`20unsigned;
X`20`20`20iosb`20`20`20`20`20`20`20`20:`20quad;
X`20`20`20ne,i`20`20`20`20`20`20`20`20:`20integer;
X`20`20`20ent`20`20`20`20`20`20`20`20`20:`20array`20`5B1..1000`5D`20of`20intege
Vr;
X`20`20`20un,jn,qname`20:`20string;
X`20`20`20flag1,flag2`20:`20unsigned;
X`20`20`20priv`20`20`20`20`20`20`20`20:`20quad;
X`20`20`20quilist1`20`20`20`20:`20array`20`5B1..3`5D`20of`20itemlist;
X`20`20`20quilist2`20`20`20`20:`20array`20`5B1..3`5D`20of`20itemlist;
X`20`20`20quilist3`20`20`20`20:`20array`20`5B1..4`5D`20of`20itemlist;
X
Xbegin
X`20`20`20flag1:=QUI$M_SEARCH_WILDCARD;
X`20`20`20flag2:=QUI$M_SEARCH_ALL_JOBS;
X`20`20`20priv.l0:=PRV$M_OPER;
X`20`20`20priv.l1:=0;
X`20`20`20quilist1`5B1`5D.buflen:=string_length;
X`20`20`20quilist1`5B1`5D.code:=QUI$_SEARCH_NAME;
X`20`20`20quilist1`5B1`5D.bufadr:=iaddress(qname.body);
X`20`20`20quilist1`5B1`5D.retlenadr:=0;
X`20`20`20quilist1`5B2`5D.buflen:=4;
X`20`20`20quilist1`5B2`5D.code:=QUI$_SEARCH_FLAGS;
X`20`20`20quilist1`5B2`5D.bufadr:=iaddress(flag1);
X`20`20`20quilist1`5B2`5D.retlenadr:=0;
X`20`20`20quilist1`5B3`5D.buflen:=0;
X`20`20`20quilist1`5B3`5D.code:=0;
X`20`20`20quilist1`5B3`5D.bufadr:=0;
X`20`20`20quilist1`5B3`5D.retlenadr:=0;
X`20`20`20quilist2`5B1`5D.buflen:=4;
X`20`20`20quilist2`5B1`5D.code:=QUI$_ENTRY_NUMBER;
X`20`20`20quilist2`5B1`5D.bufadr:=0;
X`20`20`20quilist2`5B1`5D.retlenadr:=0;
X`20`20`20quilist2`5B2`5D.buflen:=4;
X`20`20`20quilist2`5B2`5D.code:=QUI$_SEARCH_FLAGS;
X`20`20`20quilist2`5B2`5D.bufadr:=iaddress(flag2);
X`20`20`20quilist2`5B2`5D.retlenadr:=0;
X`20`20`20quilist2`5B3`5D.buflen:=0;
X`20`20`20quilist2`5B3`5D.code:=0;
X`20`20`20quilist2`5B3`5D.bufadr:=0;
X`20`20`20quilist2`5B3`5D.retlenadr:=0;
X`20`20`20quilist3`5B1`5D.buflen:=string_length;
X`20`20`20quilist3`5B1`5D.code:=QUI$_JOB_NAME;
X`20`20`20quilist3`5B1`5D.bufadr:=iaddress(jn.body);
X`20`20`20quilist3`5B1`5D.retlenadr:=iaddress(jn.length);
X`20`20`20quilist3`5B2`5D.buflen:=string_length;
X`20`20`20quilist3`5B2`5D.code:=QUI$_USERNAME;
X`20`20`20quilist3`5B2`5D.bufadr:=iaddress(un.body);
X`20`20`20quilist3`5B2`5D.retlenadr:=iaddress(un.length);
X`20`20`20quilist3`5B3`5D.buflen:=4;
X`20`20`20quilist3`5B3`5D.code:=QUI$_SEARCH_NUMBER;
X`20`20`20quilist3`5B3`5D.bufadr:=0;
X`20`20`20quilist3`5B3`5D.retlenadr:=0;
X`20`20`20quilist3`5B4`5D.buflen:=0;
X`20`20`20quilist3`5B4`5D.code:=0;
X`20`20`20quilist3`5B4`5D.bufadr:=0;
X`20`20`20quilist3`5B4`5D.retlenadr:=0;
X`20`20`20stat:=$setprv(enbflg:=1,prvadr:=priv);
X`20`20`20stat:=$getquiw(func:=QUI$_CANCEL_OPERATION,iosb:=iosb);
X`20`20`20lib$get_foreign(resultant_string:=qname.body,resultant_length:=qname.
Vlength);
X`20`20`20quilist1`5B1`5D.buflen:=length(qname);
X`20`20`20stat:=$getquiw(func:=QUI$_DISPLAY_QUEUE,itmlst:=quilist1,iosb:=iosb);
V
X`20`20`20ne:=0;
X`20`20`20while(true)`20do`20begin
X`20`20`20`20`20`20quilist2`5B1`5D.bufadr:=iaddress(ent`5Bne+1`5D);
X`20`20`20`20`20`20stat:=$getquiw(func:=QUI$_DISPLAY_JOB,itmlst:=quilist2,iosb:
V=iosb);
X`20`20`20`20`20`20if`20not(odd(stat))`20then`20goto`20fin;
X`20`20`20`20`20`20if`20not(odd(iosb.l0))`20then`20goto`20fin;
X`20`20`20`20`20`20ne:=ne+1;
X`20`20`20end;
Xfin:
X`20`20`20for`20i:=1`20to`20ne`20do`20begin
X`20`20`20`20`20`20quilist3`5B3`5D.bufadr:=iaddress(ent`5Bi`5D);
X`20`20`20`20`20`20stat:=$getquiw(func:=QUI$_DISPLAY_ENTRY,itmlst:=quilist3,ios
Vb:=iosb);
X`20`20`20`20`20`20writeln(ent`5Bi`5D,'`20',un,'`20',jn);
X`20`20`20end;
Xend.
$ call unpack QUEUE_1QNJ.PAS;1 1532654521 ""
$!
$ create 'f'
X#include`20<stdio.h>
X#include`20<stdlib.h>
X#include`20<string.h>
X#include`20<prvdef.h>
X#include`20<quidef.h>
X
Xstruct`20itemlist`20`7B
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20short`20buflen,code;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20long`20bufadr,retlenadr;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`7D;
X
Xlong`20sys$setprv();
Xlong`20sys$getquiw();
X
Xmain()
X`7B
X`20`20`20long`20stat,iosb`5B2`5D,qstat;
X`20`20`20short`20qnamel;
X`20`20`20char`20qname`5B33`5D,qstats`5B81`5D;
X`20`20`20char`20all`5B`5D`20=`20"*";
X`20`20`20long`20priv`5B2`5D`20=`20`7B`20PRV$M_OPER,0`20`7D;
X`20`20`20struct`20itemlist`20quilist`5B4`5D`20=`20`7B`20`7Bsizeof(all)-1,QUI$_
VSEARCH_NAME,`26all,0`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`7Bsizeof(qname)-1,QUI$_QUEUE_NAME,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`26qname,`26qnamel`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`7Bsizeof(qstat),QUI$_QUEUE_STATUS,`26qstat,0`7D
V`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`7B0,0,0,0`7D`20`7D;
X`20`20`20stat`20=`20sys$setprv(1,priv,0,0);
X`20`20`20stat`20=`20sys$getquiw(0,QUI$_CANCEL_OPERATION,0,0,iosb,0,0);
X`20`20`20while`20(1)`20`7B
X`20`20`20`20`20`20stat`20=`20sys$getquiw(0,QUI$_DISPLAY_QUEUE,0,quilist,iosb,0
V,0);
X`20`20`20`20`20`20if`20((stat`261)!=1)`20break;
X`20`20`20`20`20`20if`20((iosb`5B0`5D`261)!=1)`20break;
X`20`20`20`20`20`20qname`5Bqnamel`5D`20=`20'`5C0';
X`20`20`20`20`20`20strcpy(qstats,"");
X`20`20`20`20`20`20if`20(qstat`26QUI$M_QUEUE_CLOSED)`20strcat(qstats,",CLOSED")
V;
X`20`20`20`20`20`20if`20(qstat`26QUI$M_QUEUE_IDLE)`20strcat(qstats,",IDLE");
X`20`20`20`20`20`20if`20(qstat`26QUI$M_QUEUE_PAUSED)`20strcat(qstats,",PAUSED")
V;
X`20`20`20`20`20`20if`20(qstat`26QUI$M_QUEUE_PAUSING)`20strcat(qstats,",PAUSING
V");
X`20`20`20`20`20`20if`20(qstat`26QUI$M_QUEUE_RESETTING)`20strcat(qstats,",RESET
VTING");
X`20`20`20`20`20`20if`20(qstat`26QUI$M_QUEUE_RESUMING)`20strcat(qstats,",RESUMI
VNG");
X`20`20`20`20`20`20if`20(qstat`26QUI$M_QUEUE_STALLED)`20strcat(qstats,",STALLED
V");
X`20`20`20`20`20`20if`20(qstat`26QUI$M_QUEUE_STARTING)`20strcat(qstats,",STARTI
VNG");
X`20`20`20`20`20`20if`20(qstat`26QUI$M_QUEUE_STOPPED)`20strcat(qstats,",STOPPED
V");
X`20`20`20`20`20`20if`20(qstat`26QUI$M_QUEUE_STOPPING)`20strcat(qstats,",STOPPI
VNG");
X`20`20`20`20`20`20if`20(strlen(qstats)==0)`20strcat(qstats,",BUSY");
X`20`20`20`20`20`20printf("%s`20%s`5Cn",qname,`26qstats`5B1`5D);
X`20`20`20`7D;
X`7D;
$ call unpack QUEUE_NQ.C;1 1846901528 ""
$!
$ create 'f'
X$`20tmp=f$getqui("CANCEL_OPERATION")
X$`20loop:
X$`20`20`20`20qname=f$getqui("DISPLAY_QUEUE","QUEUE_NAME","*")
X$`20`20`20`20if`20qname`20.eqs.`20""`20then`20goto`20endloop
X$`20`20`20`20stat=""
X$`20`20`20`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_CLOSED","*","FREEZE_CONTEXT"
V)`20then`20-
X`20`20`20`20`20`20`20`20stat=stat+",CLOSED"
X$`20`20`20`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_IDLE","*","FREEZE_CONTEXT")
V`20then`20-
X`20`20`20`20`20`20`20`20stat=stat+",IDLE"
X$`20`20`20`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_PAUSED","*","FREEZE_CONTEXT"
V)`20then`20-
X`20`20`20`20`20`20`20`20stat=stat+",PAUSED"
X$`20`20`20`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_PAUSING","*","FREEZE_CONTEXT
V")`20then`20-
X`20`20`20`20`20`20`20`20stat=stat+",PAUSING"
X$`20`20`20`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_RESETTING","*","FREEZE_CONTE
VXT")`20then`20-
X`20`20`20`20`20`20`20`20stat=stat+",RESETTING"
X$`20`20`20`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_RESUMING","*","FREEZE_CONTEX
VT")`20then`20-
X`20`20`20`20`20`20`20`20stat=stat+",RESUMING"
X$`20`20`20`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_STALLED","*","FREEZE_CONTEXT
V")`20then`20-
X`20`20`20`20`20`20`20`20stat=stat+",STALLED"
X$`20`20`20`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_STARTING","*","FREEZE_CONTEX
VT")`20then`20-
X`20`20`20`20`20`20`20`20stat=stat+",STARTING"
X$`20`20`20`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_STOPPED","*","FREEZE_CONTEXT
V")`20then`20-
X`20`20`20`20`20`20`20`20stat=stat+",STOPPED"
X$`20`20`20`20if`20f$getqui("DISPLAY_QUEUE","QUEUE_STOPPING","*","FREEZE_CONTEX
VT")`20then`20-
X`20`20`20`20`20`20`20`20stat=stat+",STOPPING"
X$`20`20`20`20stat=stat-","
X$`20`20`20`20if`20f$length(stat)`20.eq.`200`20then`20stat="BUSY"
X$`20`20`20`20write`20sys$output`20f$fao("!AS`20!AS",qname,stat)
X$`20`20`20`20goto`20loop
X$`20endloop:
X$`20exit
$ call unpack QUEUE_NQ.COM;1 755456698 ""
$!
$ create 'f'
X`20`20`20`20`20`20PROGRAM`20QUEUE_NQ
X`20`20`20`20`20`20INCLUDE`20'($PRVDEF)'
X`20`20`20`20`20`20INCLUDE`20'($QUIDEF)'
X`20`20`20`20`20`20STRUCTURE`20/ITEMLIST/
X`20`20`20`20`20`20`20`20INTEGER*2`20BUFLEN,CODE
X`20`20`20`20`20`20`20`20INTEGER*4`20BUFADR,RETLENADR
X`20`20`20`20`20`20ENDSTRUCTURE
X`20`20`20`20`20`20INTEGER*4`20STAT,IOSB(2),QSTAT
X`20`20`20`20`20`20INTEGER*2`20QNAMEL,QSTATSL
X`20`20`20`20`20`20CHARACTER*32`20QNAME
X`20`20`20`20`20`20CHARACTER*80`20QSTATS
X`20`20`20`20`20`20CHARACTER*1`20ALL
X`20`20`20`20`20`20INTEGER*4`20PRIV(2)
X`20`20`20`20`20`20RECORD`20/ITEMLIST/QUILIST(4)
X`20`20`20`20`20`20INTEGER*4`20SYS$SETPRV,SYS$GETQUIW
X`20`20`20`20`20`20DATA`20ALL/'*'/
X`20`20`20`20`20`20DATA`20PRIV/PRV$M_OPER,0/
X`20`20`20`20`20`20QUILIST(1).BUFLEN=LEN(ALL)
X`20`20`20`20`20`20QUILIST(1).CODE=QUI$_SEARCH_NAME
X`20`20`20`20`20`20QUILIST(1).BUFADR=%LOC(ALL)
X`20`20`20`20`20`20QUILIST(1).RETLENADR=0
X`20`20`20`20`20`20QUILIST(2).BUFLEN=LEN(QNAME)
X`20`20`20`20`20`20QUILIST(2).CODE=QUI$_QUEUE_NAME
X`20`20`20`20`20`20QUILIST(2).BUFADR=%LOC(QNAME)
X`20`20`20`20`20`20QUILIST(2).RETLENADR=%LOC(QNAMEL)
X`20`20`20`20`20`20QUILIST(3).BUFLEN=4
X`20`20`20`20`20`20QUILIST(3).CODE=QUI$_QUEUE_STATUS
X`20`20`20`20`20`20QUILIST(3).BUFADR=%LOC(QSTAT)
X`20`20`20`20`20`20QUILIST(3).RETLENADR=0
X`20`20`20`20`20`20QUILIST(4).BUFLEN=0
X`20`20`20`20`20`20QUILIST(4).CODE=0
X`20`20`20`20`20`20QUILIST(4).BUFADR=0
X`20`20`20`20`20`20QUILIST(4).RETLENADR=0
X`20`20`20`20`20`20STAT=SYS$SETPRV(%VAL(1),PRIV,,)
X`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_CANCEL_OPERATION),,,IOSB,,)
X100`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_DISPLAY_QUEUE),,QUILIST,IOSB,,)
X`20`20`20`20`20`20IF((STAT.AND.1).NE.1)`20GOTO`20200
X`20`20`20`20`20`20IF((IOSB(1).AND.1).NE.1)`20GOTO`20200
X`20`20`20`20`20`20QSTATSL=0
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_CLOSED).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',CLOSED')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_IDLE).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',IDLE')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_PAUSED).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',PAUSED')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_PAUSING).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',PAUSING')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_RESETTING).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',RESETTING')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_RESUMING).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',RESUMING')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_STALLED).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',STALLED')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_STARTING).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',STARTING')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_STOPPED).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',STOPPED')
X`20`20`20`20`20`20IF((QSTAT.AND.QUI$M_QUEUE_STOPPING).NE.0)
X`20`20`20`20`20+`20`20`20CALL`20STRAPP(QSTATS,QSTATSL,',STOPPING')
X`20`20`20`20`20`20IF(QSTATSL.EQ.0)`20CALL`20STRAPP(QSTATS,QSTATSL,',BUSY')
X`20`20`20`20`20`20WRITE(6,'(1X,A,1X,A)')`20QNAME(1:QNAMEL),QSTATS(2:QSTATSL)
X`20`20`20`20`20`20GOTO`20100
X200`20`20`20CONTINUE
X`20`20`20`20`20`20END
XC
X`20`20`20`20`20`20SUBROUTINE`20STRAPP(S,SL,SUBS)
X`20`20`20`20`20`20CHARACTER*(*)`20S
X`20`20`20`20`20`20INTEGER*2`20SL
X`20`20`20`20`20`20CHARACTER*(*)`20SUBS
X`20`20`20`20`20`20INTEGER*2`20L
X`20`20`20`20`20`20L=LEN(SUBS)
X`20`20`20`20`20`20S(SL+1:SL+L)=SUBS
X`20`20`20`20`20`20SL=SL+L
X`20`20`20`20`20`20RETURN
X`20`20`20`20`20`20END
$ call unpack QUEUE_NQ.FOR;1 1462058055 ""
$!
$ create 'f'
X`5Binherit('sys$library:starlet')`5D
X
Xprogram`20queue_nq(input,output);
X
Xlabel
X`20`20`20fin;
X
Xconst
X`20`20`20string_length`20=`20256;
X
Xtype
X`20`20`20string`20`20`20=`20varying`20`5Bstring_length`5D`20of`20char;
X`20`20`20word`20`20`20`20`20=`20`5Bword`5D`200..65535;
X`20`20`20quad`20`20`20`20`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20l0,l1`20:`20unsigned;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20end;
X`20`20`20itemlist`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20buflen,code`20:`20word;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20bufadr,retlenadr`20:`20unsi
Vgned;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20end;
X
Xvar
X`20`20`20stat,qstat`20`20`20:`20unsigned;
X`20`20`20iosb`20`20`20`20`20`20`20`20`20:`20quad;
X`20`20`20qname,qstats`20:`20string;
X`20`20`20all`20`20`20`20`20`20`20`20`20`20:`20string;
X`20`20`20priv`20`20`20`20`20`20`20`20`20:`20quad;
X`20`20`20quilist`20`20`20`20`20`20:`20array`20`5B1..4`5D`20of`20itemlist;
X
Xbegin
X`20`20`20all:='*';
X`20`20`20priv.l0:=PRV$M_OPER;
X`20`20`20priv.l1:=0;
X`20`20`20quilist`5B1`5D.buflen:=length(all);
X`20`20`20quilist`5B1`5D.code:=QUI$_SEARCH_NAME;
X`20`20`20quilist`5B1`5D.bufadr:=iaddress(all.body);
X`20`20`20quilist`5B1`5D.retlenadr:=0;
X`20`20`20quilist`5B2`5D.buflen:=string_length;
X`20`20`20quilist`5B2`5D.code:=QUI$_QUEUE_NAME;
X`20`20`20quilist`5B2`5D.bufadr:=iaddress(qname.body);
X`20`20`20quilist`5B2`5D.retlenadr:=iaddress(qname.length);
X`20`20`20quilist`5B3`5D.buflen:=4;
X`20`20`20quilist`5B3`5D.code:=QUI$_QUEUE_STATUS;
X`20`20`20quilist`5B3`5D.bufadr:=iaddress(qstat);
X`20`20`20quilist`5B3`5D.retlenadr:=0;
X`20`20`20quilist`5B4`5D.buflen:=0;
X`20`20`20quilist`5B4`5D.code:=0;
X`20`20`20quilist`5B4`5D.bufadr:=0;
X`20`20`20quilist`5B4`5D.retlenadr:=0;
X`20`20`20stat:=$setprv(enbflg:=1,prvadr:=priv);
X`20`20`20stat:=$getquiw(func:=QUI$_CANCEL_OPERATION,iosb:=iosb);
X`20`20`20while(true)`20do`20begin
X`20`20`20`20`20`20stat:=$getquiw(func:=QUI$_DISPLAY_QUEUE,itmlst:=quilist,iosb
V:=iosb);
X`20`20`20`20`20`20if`20not(odd(stat))`20then`20goto`20fin;
X`20`20`20`20`20`20if`20not(odd(iosb.l0))`20then`20goto`20fin;
X`20`20`20`20`20`20qstats:='';
X`20`20`20`20`20`20if`20(uand(qstat,QUI$M_QUEUE_CLOSED)<>0)`20then
X`20`20`20`20`20`20`20`20`20qstats:=qstats+',CLOSED';
X`20`20`20`20`20`20if`20(uand(qstat,QUI$M_QUEUE_IDLE)<>0)`20then
X`20`20`20`20`20`20`20`20`20qstats:=qstats+',IDLE';
X`20`20`20`20`20`20if`20(uand(qstat,QUI$M_QUEUE_PAUSED)<>0)`20then
X`20`20`20`20`20`20`20`20`20`20qstats:=qstats+',PAUSED';
X`20`20`20`20`20`20if`20(uand(qstat,QUI$M_QUEUE_PAUSING)<>0)`20then
X`20`20`20`20`20`20`20`20`20qstats:=qstats+',PAUSING';
X`20`20`20`20`20`20if`20(uand(qstat,QUI$M_QUEUE_RESETTING)<>0)`20then
X`20`20`20`20`20`20`20`20`20qstats:=qstats+',RESETTING';
X`20`20`20`20`20`20if`20(uand(qstat,QUI$M_QUEUE_RESUMING)<>0)`20then
X`20`20`20`20`20`20`20`20`20qstats:=qstats+',RESUMING';
X`20`20`20`20`20`20if`20(uand(qstat,QUI$M_QUEUE_STALLED)<>0)`20then
X`20`20`20`20`20`20`20`20`20qstats:=qstats+',STALLED';
X`20`20`20`20`20`20if`20(uand(qstat,QUI$M_QUEUE_STARTING)<>0)`20then
X`20`20`20`20`20`20`20`20`20qstats:=qstats+',STARTING';
X`20`20`20`20`20`20if`20(uand(qstat,QUI$M_QUEUE_STOPPED)<>0)`20then
X`20`20`20`20`20`20`20`20`20qstats:=qstats+',STOPPED';
X`20`20`20`20`20`20if`20(uand(qstat,QUI$M_QUEUE_STOPPING)<>0)`20then
X`20`20`20`20`20`20`20`20`20qstats:=qstats+',STOPPING';
X`20`20`20`20`20`20if`20length(qstats)=0`20then`20qstats:=',BUSY';
X`20`20`20`20`20`20qstats:=substr(qstats,2,length(qstats)-1);
X`20`20`20`20`20`20writeln(qname,'`20',qstats);
X`20`20`20end;
Xfin:
Xend.
$ call unpack QUEUE_NQ.PAS;1 2083276432 ""
$!
$ create 'f'
X#include`20<stdio.h>
X#include`20<stdlib.h>
X#include`20<string.h>
X#include`20<prvdef.h>
X#include`20<quidef.h>
X
Xstruct`20itemlist`20`7B
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20short`20buflen,code;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20long`20bufadr,retlenadr;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`7D;
X
Xlong`20sys$setprv();
Xlong`20sys$getquiw();
X
Xmain()
X`7B
X`20`20`20long`20stat,iosb`5B2`5D,nq,ne,ent`5B1000`5D,i,j;
X`20`20`20short`20qnamel,jnl,unl;
X`20`20`20char`20qname`5B100`5D`5B33`5D,jn`5B33`5D,un`5B13`5D;
X`20`20`20char`20all`5B`5D`20=`20"*";
X`20`20`20long`20flag1`20=`20QUI$M_SEARCH_WILDCARD;
X`20`20`20long`20flag2`20=`20QUI$M_SEARCH_ALL_JOBS;
X`20`20`20long`20priv`5B2`5D`20=`20`7B`20PRV$M_OPER,0`20`7D;
X`20`20`20struct`20itemlist`20quilist1`5B3`5D`20=`20`7B`20`7Bsizeof(all)-1,QUI$
V_SEARCH_NAME,`26all,0`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7B32,QUI$_QUEUE_NAME,0,`26qnamel`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7B0,0,0,0`7D`20`7D;
X`20`20`20struct`20itemlist`20quilist2`5B3`5D`20=`20`7B`20`7B0,QUI$_SEARCH_NAME
V,0,0`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7Bsizeof(flag1),QUI$_SEARCH_FLAGS,`26flag1,0
V`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7B0,0,0,0`7D`20`7D;
X`20`20`20struct`20itemlist`20quilist3`5B3`5D`20=`20`7B`20`7Bsizeof(long),QUI$_
VENTRY_NUMBER,0,0`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7Bsizeof(flag2),QUI$_SEARCH_FLAGS,`26flag2,0
V`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7B0,0,0,0`7D`20`7D;
X`20`20`20struct`20itemlist`20quilist4`5B4`5D`20=`20`7B`20`7Bsizeof(jn)-1,QUI$_
VJOB_NAME,`26jn,`26jnl`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7Bsizeof(un)-1,QUI$_USERNAME,`26un,`26unl`7D
V`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7Bsizeof(ent`5B0`5D),QUI$_SEARCH_NUMBER,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`26ent`5B0`5D,0`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`7B0,0,0,0`7D`20`7D;
X`20`20`20stat`20=`20sys$setprv(1,priv,0,0);
X`20`20`20stat`20=`20sys$getquiw(0,QUI$_CANCEL_OPERATION,0,0,iosb,0,0);
X`20`20`20nq`20=`200;
X`20`20`20while`20(1)`20`7B
X`20`20`20`20`20`20quilist1`5B1`5D.bufadr`20=`20`26qname`5Bnq`5D`5B0`5D;
X`20`20`20`20`20`20stat`20=`20sys$getquiw(0,QUI$_DISPLAY_QUEUE,0,quilist1,iosb,
V0,0);
X`20`20`20`20`20`20if`20((stat`261)!=1)`20break;
X`20`20`20`20`20`20if`20((iosb`5B0`5D`261)!=1)`20break;
X`20`20`20`20`20`20qname`5Bnq`5D`5Bqnamel`5D`20=`20'`5C0';
X`20`20`20`20`20`20nq++;
X`20`20`20`7D;
X`20`20`20for`20(j=0;j<nq;j++)`20`7B
X`20`20`20`20`20`20quilist2`5B0`5D.buflen`20=`20strlen(qname`5Bj`5D);
X`20`20`20`20`20`20quilist2`5B0`5D.bufadr`20=`20`26qname`5Bj`5D`5B0`5D;
X`20`20`20`20`20`20stat`20=`20sys$getquiw(0,QUI$_DISPLAY_QUEUE,0,quilist2,iosb,
V0,0);
X`20`20`20`20`20`20ne`20=`200;
X`20`20`20`20`20`20while`20(1)`20`7B
X`20`20`20`20`20`20`20`20`20quilist3`5B0`5D.bufadr`20=`20`26ent`5Bne`5D;
X`20`20`20`20`20`20`20`20`20stat`20=`20sys$getquiw(0,QUI$_DISPLAY_JOB,0,quilist
V3,iosb,0,0);
X`20`20`20`20`20`20`20`20`20if`20((stat`261)!=1)`20break;
X`20`20`20`20`20`20`20`20`20if`20((iosb`5B0`5D`261)!=1)`20break;
X`20`20`20`20`20`20`20`20`20ne++;
X`20`20`20`20`20`20`7D;
X`20`20`20`20`20`20for`20(i=0;i<ne;i++)`20`7B
X`20`20`20`20`20`20`20`20`20quilist3`5B2`5D.bufadr`20=`20`26ent`5Bi`5D;
X`20`20`20`20`20`20`20`20`20stat`20=`20sys$getquiw(0,QUI$_DISPLAY_ENTRY,0,quili
Vst4,iosb,0,0);
X`20`20`20`20`20`20`20`20`20jn`5Bjnl`5D`20=`20'`5C0';
X`20`20`20`20`20`20`20`20`20un`5Bunl`5D`20=`20'`5C0';
X`20`20`20`20`20`20`20`20`20printf("%s`20%d`20%s`20%s`5Cn",qname`5Bj`5D,ent`5Bi
V`5D,jn,un);
X`20`20`20`20`20`20`7D;
X`20`20`20`7D;
X`7D;
$ call unpack QUEUE_NQNJ.C;1 1830541662 ""
$!
$ create 'f'
X$`20set`20proc/priv=oper
X$`20tmp=f$getqui("CANCEL_OPERATION")
X$`20nq=0
X$`20loop1:
X$`20`20`20`20qname=f$getqui("DISPLAY_QUEUE","QUEUE_NAME","*")
X$`20`20`20`20if`20qname`20.eqs.`20""`20then`20goto`20endloop1
X$`20`20`20`20nq=nq+1
X$`20`20`20`20qname_'nq'=qname
X$`20`20`20`20goto`20loop1
X$`20endloop1:
X$`20j=0
X$`20loop2:
X$`20`20`20`20j=j+1
X$`20`20`20`20if`20j`20.gt.`20nq`20then`20goto`20endloop2
X$`20`20`20`20tmp=f$getqui("")
X$`20`20`20`20tmp=f$getqui("DISPLAY_QUEUE","QUEUE_NAME",qname_'j',"WILDCARD")
X$`20`20`20`20ne=0
X$`20`20`20`20loop3:
X$`20`20`20`20`20`20`20ent=f$getqui("DISPLAY_JOB","ENTRY_NUMBER",,"ALL_JOBS")
X$`20`20`20`20`20`20`20if`20ent`20.eqs.`20""`20then`20goto`20endloop3
X$`20`20`20`20`20`20`20ne=ne+1
X$`20`20`20`20`20`20`20ent_'ne'=ent
X$`20`20`20`20`20`20`20goto`20loop3
X$`20`20`20`20endloop3:
X$`20`20`20`20i=0
X$`20`20`20`20loop4:
X$`20`20`20`20`20`20`20i=i+1
X$`20`20`20`20`20`20`20if`20i`20.gt.`20ne`20then`20goto`20endloop4
X$`20`20`20`20`20`20`20jn=f$getqui("DISPLAY_ENTRY","JOB_NAME",ent_'i')
X$`20`20`20`20`20`20`20un=f$getqui("DISPLAY_ENTRY","USERNAME",ent_'i')
X$`20`20`20`20`20`20`20write`20sys$output`20f$fao("!AS`20!SL`20!AS`20!AS",qname
V_'j',ent_'i',jn,un)
X$`20`20`20`20`20`20`20goto`20loop4
X$`20`20`20`20endloop4:
X$`20`20`20`20goto`20loop2
X$`20endloop2:
X$`20exit
$ call unpack QUEUE_NQNJ.COM;1 1281991191 ""
$!
$ create 'f'
X`20`20`20`20`20`20PROGRAM`20QUEUE_NQNJ
X`20`20`20`20`20`20INCLUDE`20'($PRVDEF)'
X`20`20`20`20`20`20INCLUDE`20'($QUIDEF)'
X`20`20`20`20`20`20STRUCTURE`20/ITEMLIST/
X`20`20`20`20`20`20`20`20INTEGER*2`20BUFLEN,CODE
X`20`20`20`20`20`20`20`20INTEGER*4`20BUFADR,RETLENADR
X`20`20`20`20`20`20ENDSTRUCTURE
X`20`20`20`20`20`20INTEGER*4`20STAT,IOSB(2),NQ,NE,ENT(1000),I,J
X`20`20`20`20`20`20INTEGER*2`20UNL,JNL,QNAMEL(100)
X`20`20`20`20`20`20CHARACTER*12`20UN
X`20`20`20`20`20`20CHARACTER*32`20JN,QNAME(100)
X`20`20`20`20`20`20INTEGER*4`20FLAG1,FLAG2
X`20`20`20`20`20`20CHARACTER*1`20ALL
X`20`20`20`20`20`20INTEGER*4`20PRIV(2)
X`20`20`20`20`20`20RECORD`20/ITEMLIST/QUILIST1(3),QUILIST2(3),QUILIST3(3),QUILI
VST4(4)
X`20`20`20`20`20`20INTEGER*4`20SYS$SETPRV,SYS$GETQUIW
X`20`20`20`20`20`20DATA`20ALL/'*'/
X`20`20`20`20`20`20DATA`20FLAG1/QUI$M_SEARCH_WILDCARD/
X`20`20`20`20`20`20DATA`20FLAG2/QUI$M_SEARCH_ALL_JOBS/
X`20`20`20`20`20`20DATA`20PRIV/PRV$M_OPER,0/
X`20`20`20`20`20`20QUILIST1(1).BUFLEN=LEN(ALL)
X`20`20`20`20`20`20QUILIST1(1).CODE=QUI$_SEARCH_NAME
X`20`20`20`20`20`20QUILIST1(1).BUFADR=%LOC(ALL)
X`20`20`20`20`20`20QUILIST1(1).RETLENADR=0
X`20`20`20`20`20`20QUILIST1(2).BUFLEN=32
X`20`20`20`20`20`20QUILIST1(2).CODE=QUI$_QUEUE_NAME
X`20`20`20`20`20`20QUILIST1(2).BUFADR=0
X`20`20`20`20`20`20QUILIST1(2).RETLENADR=0
X`20`20`20`20`20`20QUILIST1(3).BUFLEN=0
X`20`20`20`20`20`20QUILIST1(3).CODE=0
X`20`20`20`20`20`20QUILIST1(3).BUFADR=0
X`20`20`20`20`20`20QUILIST1(3).RETLENADR=0
X`20`20`20`20`20`20QUILIST2(1).BUFLEN=0
X`20`20`20`20`20`20QUILIST2(1).CODE=QUI$_SEARCH_NAME
X`20`20`20`20`20`20QUILIST2(1).BUFADR=0
X`20`20`20`20`20`20QUILIST2(1).RETLENADR=0
X`20`20`20`20`20`20QUILIST2(2).BUFLEN=4
X`20`20`20`20`20`20QUILIST2(2).CODE=QUI$_SEARCH_FLAGS
X`20`20`20`20`20`20QUILIST2(2).BUFADR=%LOC(FLAG1)
X`20`20`20`20`20`20QUILIST2(2).RETLENADR=0
X`20`20`20`20`20`20QUILIST2(3).BUFLEN=0
X`20`20`20`20`20`20QUILIST2(3).CODE=0
X`20`20`20`20`20`20QUILIST2(3).BUFADR=0
X`20`20`20`20`20`20QUILIST2(3).RETLENADR=0
X`20`20`20`20`20`20QUILIST3(1).BUFLEN=4
X`20`20`20`20`20`20QUILIST3(1).CODE=QUI$_ENTRY_NUMBER
X`20`20`20`20`20`20QUILIST3(1).BUFADR=0
X`20`20`20`20`20`20QUILIST3(1).RETLENADR=0
X`20`20`20`20`20`20QUILIST3(2).BUFLEN=4
X`20`20`20`20`20`20QUILIST3(2).CODE=QUI$_SEARCH_FLAGS
X`20`20`20`20`20`20QUILIST3(2).BUFADR=%LOC(FLAG2)
X`20`20`20`20`20`20QUILIST3(2).RETLENADR=0
X`20`20`20`20`20`20QUILIST3(3).BUFLEN=0
X`20`20`20`20`20`20QUILIST3(3).CODE=0
X`20`20`20`20`20`20QUILIST3(3).BUFADR=0
+-+-+-+-+-+-+-+-  END  OF PART 2 +-+-+-+-+-+-+-+-