PSUDBQUE ; IHS/ADC/GTH - DOUBLE QUEUING SHELL HANDLER; 04 NOV 1997
Source file <PSUDBQUE.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;
|
|
| EN | ;PEP for double queuing
|
|
| ZIS | ;
|
|
| ZISQ | ;
|
|
| QUE1 | ;
|
|
| DEQUE1 | ;> 1st deque
|
|
| COMPUTE | ;>do computing | routine
|
|
| QUE2 | ;
|
|
| DEQUE2 | ;>EP 2nd Deque | printing
|
|
| END | ;>End | cleanup
|
|
| END0 | ;EP - from compute cycle when PSU("RP") EXISTS
|
|
| END1 | ;EP clean out PSU as passed in
|
|
| ENDC | ;EP - end computing cycle
|
|
| SUB | ;>Subroutines
|
|
| NORC | ;used if no PSURC identified
|
|
| SETIOPN | ;EP Set IOP parameters with (N)o open
|
|
| PGMNOTE | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("ERRTN" | QUE2+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %H | SETIOPN+12* |
| >> %ZIS | ZIS+3*, SETIOPN+11* |
| >> %ZIS("HFSMODE" | EN+28*, SETIOPN+8* |
| >> %ZIS("HFSNAME" | EN+28*, SETIOPN+8* |
| >> %ZIS("IOPAR" | EN+24*, SETIOPN+4* |
| DIR | ZISQ+4!, ZISQ+7!, ZISQ+16! |
| DIR("A" | ZISQ+5*, ZISQ+16* |
| DIR("B" | ZISQ+5* |
| DIR(0 | ZISQ+5*, ZISQ+16* |
| IO | EN+3, EN+7, ZIS+6, ZISQ+3, DEQUE2+6 |
| IO("Q" | ZIS+1!, ZISQ+1, ZISQ+9*, QUE1+1! |
| IO(0 | ZISQ+3 |
| >> IOCPU | ZIS+6 |
| IOM | EN+7*, EN+8, ZIS+6 |
| ION | EN+7*, EN+8, ZIS+6 |
| IOP | EN+3*, EN+22*, QUE1+1*, END1+2*, END1+4!, SETIOPN+2* |
| IOPAR | EN+9, ZIS+6, END1+4! |
| IOSL | EN+7*, EN+8, ZIS+6 |
| IOST | EN+7*, EN+8, ZIS+6 |
| IOUPAR | END1+4! |
| >> POP | ZIS+5 |
| PSU | EN+1~, END1+5! |
| PSU("CPU" | ZIS+6*, QUE1+7 |
| PSU("IO" | ZIS+6*, QUE2+6 |
| PSU("ION" | ZIS+6* |
| PSU("IOP" | EN+21*, ZIS+6*, SETIOPN+1, SETIOPN+2 |
| PSU("IOP1" | EN+8*, QUE1+1, END1+2 |
| PSU("IOPAR" | EN+9*, EN+24, EN+25, EN+26, EN+27, ZIS+6*, SETIOPN+4, SETIOPN+5, SETIOPN+6, SETIOPN+7 |
| PSU("NS" | EN+14*, EN+15*, EN+18*, QUE1+9, QUE2+8 |
| PSU("RC" | EN+11*, COMPUTE+2, QUE2+5 |
| PSU("RP" | EN+11*, QUE2+3, QUE2+5, DEQUE2+4, DEQUE2+7, ENDC+1 |
| PSU("RX" | EN+11*, END+2 |
| PSU("TITLE" | EN+6*, QUE1+3, QUE2+4 |
| PSU("ZTSK" | ZISQ+12!, ZISQ+13*, QUE1+1, DEQUE1+3!, DEQUE1+4*, DEQUE2+1!, DEQUE2+2*, END0+1 |
| PSUDBQUE | QUE2+12*, END1+5! |
| PSUDTH | EN+4*, QUE1+6, QUE1+10!, DEQUE1+2!, END1+5! |
| PSUERR | QUE2+11*, END1+5! |
| PSUFQ | EN+4*, ZISQ+1, ZISQ+2*, QUE1+1, QUE1+10!, DEQUE1+2!, END1+5! |
| >> PSUHFSMD | EN+27*, EN+28, SETIOPN+7*, SETIOPN+8 |
| >> PSUHFSNM | EN+26*, EN+28, SETIOPN+6*, SETIOPN+8 |
| PSUI | EN+14*, QUE1+10!, END1+5! |
| PSUIOP | EN+21, EN+22, QUE1+10!, DEQUE1+2!, END1+5! |
| PSUNS | EN+13*, EN+14, QUE1+10!, DEQUE1+2!, END1+5! |
| PSUNS( | EN+18 |
| PSUNSX | EN+14*, EN+17*, EN+18*, QUE1+8*, QUE1+9*, QUE1+10!, QUE2+7*, QUE2+8*, END1+5! |
| PSUPAR | QUE1+10!, DEQUE1+2!, END1+5! |
| PSUQUIT | ZISQ+8*, ZISQ+16, END1+5! |
| PSURC | EN+5, EN+10*, EN+11, ZIS+2, QUE1+4, QUE1+10!, DEQUE1+2!, END1+5! |
| PSURP | EN+5, EN+11, ZIS+2, ZISQ+3, QUE1+4, QUE1+10!, DEQUE1+2!, END1+5! |
| PSURX | EN+11, QUE1+10!, DEQUE1+2!, END1+5! |
| PSUTITLE | EN+6! |
| PSUTZTSK | END0+1*! |
| >> X | ZISQ+8 |
| >> Y | ZISQ+9 |
| >> ZTCPU | QUE1+7* |
| >> ZTDESC | QUE1+3*, QUE1+4*, QUE2+4*, QUE2+5* |
| >> ZTDTH | QUE1+6*, QUE2+6* |
| ZTIO | QUE1+5*, QUE1+11*, QUE2+6*, QUE2+9! |
| >> ZTQUEUED | EN+4, ZISQ+2, ZISQ+13, QUE1+1, DEQUE1+4, QUE2+2, DEQUE2+2, END1+1, END1+3 |
| >> ZTRTN | QUE1+5*, QUE2+6* |
| >> ZTSAVE( | QUE1+9*, QUE2+8* |
| ZTSK | ZISQ+13, ZISQ+14!, QUE1+1, DEQUE1+4, QUE2+11, DEQUE2+2, END0+1*! |
