Here it is.
OS version is 4.3.3 level 9
----------------------------------------------------
if [ "$SHELL" = "/usr/bin/rksh" -o "$SHELL" = "/bin/rksh" ]
then
DSPMSG=dspmsg
TR=tr
AWK=awk
else
DSPMSG=/usr/bin/dspmsg
TR=/usr/bin/tr
AWK=/usr/bin/awk
fi
if MSGSTRUN=`$DSPMSG qstat.cat -s 2 4 "RUNNING"`
then :
else MSGSTRUN="RUNNING"; fi
if MSGSTQUE=`$DSPMSG qstat.cat -s 2 5 "QUEUED"`
then :
else MSGSTQUE="QUEUED"; fi
if MSGSTRDY=`$DSPMSG qstat.cat -s 2 31 "READY"`
then :
else MSGSTRDY="READY"; fi
if MSGDWN2=`$DSPMSG rem.cat 40 "HOST_DOWN"`
then :
else MSGDWN2="HOST_DOWN"; fi
AQUE=$1
RQUE=$2
$TR -d '\0' | $AWK '
BEGIN {
#----Set the state machine to read in messages and header lines
STATE = 0
#----Read in the arguments sent from qstatus, set up variables
QNAME = "'"$AQUE"'" # First parameter is used for name of queue
RNAME = "'"$RQUE"'" # Second parameter is used for remote queue name
STATUS = "'"$MSGSTRUN"'" # Status used for active job on queue
HOSTDOWN = "'"$MSGDWN2"'" # Status saying host is not responding for some reason
}
{
#----If we are still in header section of remote status output...
if(STATE == 0) {
#----Unable to communicate with host.
if ($1 == HOSTDOWN) {
printf("%-7.7s %-5.5s %-9.9s\n",QNAME,RNAME,HOSTDOWN);
}
#----Empty queue, "no entries"
else if ($1 == "no"
{
STATUS = "'"$MSGSTRDY"'" # Empty queue, ready
printf("%-7.7s",QNAME) # Queue name
printf(" %-5.5s",RNAME) # Remote queue name
printf(" %-9.9s",STATUS) # Device status
printf("\n"
}
#----If we are at field descriptor section, dont print,
# and go on to status section, where the stuff we want is
else if ($1 == "Rank"
{
++STATE
}
#----Otherwise, print the line because the user might want to see it
else if (NF > 0) {
printf("%s: %s\n",QNAME,$0)
}
}
#----Otherwise, we are in the status info lines for the remote queue
else {
#----If a valid status line...
#----NOTE: The socket attaches a '\0' at the end of the qstatus
# output from the remote server. AWK interprets this as
# another line. Thus, we check the number of fields to
# insure a blank line is not printed.
if((NF > 0) && (($1 ~ /^[0-9]+[a-z][a-z]$/) || ($1 ~ /active/))) {
#----Do some massaging to necessary fields
$1 = substr($1,1,length($1) - 2)
BLOCKS = ($5 / 512) + 1
#----If in the first line of the status section, we want
# to print the queue and device names in the proper fields
if(STATE == 1) {
printf("%-7.7s",QNAME) # Queue name
printf(" %-5.5s",RNAME) # Remote queue name
#----Otherwise, just leave space in the queue and device fields
} else {
printf("%-13.13s",""
# Empty que and dev fields
}
#----Print the rest of the status fields
printf(" %-9.9s",STATUS) # Dev status
printf("%4d",$3) # Job number
printf(" %-19.19s",$4) # Files to print
printf(" %-10.10s",$2) # User requesting job
printf("%5.1d",0) # Pages to print
printf(" %2.1d",0) # Percentage printed
printf("%6.1d",BLOCKS) # No. of blocks to print
printf("%3.1d",1) # No. of copies
printf("%4.1d",$1) # Ranking of job
printf("\n"
#----Insure state machine says that we are now past first
# status line, and adjust output fields accordingly
++STATE
STATUS = "'"$MSGQUE"'"
}
}
}
'
