VENPCCP ; IHS/OIT/GIS - PRINT DEAMON - MANAGE BACKGROUND PRINTING ; [ 03/03/09 5:46 PM ]
Source file <VENPCCP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
UNIX(PATH,EX) | ; EP-EXAMINE A UNIX DIRECTORY
|
|
FMVARS | ||
VARS | ; EP-OLD WAY OF GETTING ENVIRONMENTAL VARS TO POPULATE ERROR MSG FILE
|
|
OTCP(IP,SOCKET) | ; EP-OPEN TCP
|
|
ADDBLANK | ||
RETRY | ||
JUMP25 | ||
OPN(PATH,FILE,RW,EX) | ; EP-CLEAN HFS OPEN, USE, EXECUTE, CLOSE
|
|
OPN1 | ||
LOOPFAIL | ||
TASK | ; EP - PRINT DEAMON ; THERE SHOULD ONLY BE 1 PRINT DEAMON PROCESS RUNNING AT A TIME
|
|
FUNC(ACT) | ; EP-MSM/NT FUNCTIONS
|
|
MRPFLAG | ||
PGIEN | ||
DEFEF | ||
COUNT1 | ||
NOTOPEN | ||
SEND(SOCKET,IP,IPA) | ; EP - FOR SENDING A RECORD TO THE PRINT SERVICE
; SEND(SOCKET,IP,IPA,PGIEN,MRPFLAG) ; EP FOR SENDING A RECORD TO THE PRINT SERVICE ; REC MUST EXIST AS AN ARRAY (VER 2.5) OR A LOCAL VARIABLE (PREVIOUS VERSIONS) ; IP IS THE TCP/IP ADDRESS. IPA IS THE ALTERNATE IP ADDRESS (IPA IS OPTIONAL) ; SOCKET IS THE TCP SOCKET NUMBER ON THIS MACHINE ; REC IS THE RECORD ; THE RECORD MUST BE '^' DELIMITED. FIRST PIECE: HEADER NAME/MNEMONIC. SECOND PIECE: TEMPLATE NAME/MNEMONIC. THIRD PIECE: PRINTER DESTINATION. FOUTH PIECE: ENVIRONMANTAL INFO OTHER PIECES: DATA ; THIS FUNCTION RETURNS '1' IF THE TRANSMISSION WAS SUCCESSFUL OR AN ERROR CODE IF IT WAS UNSUCCESSFUL ; UPDATED TO SUPPERT THE VER 2.5 PRINT SERVICE ; |
|
FIND1 | ||
MERGFAIL | ||
SUCCESS | ||
EVAR | ||
CHK | ||
TRY | ||
MERGE | ||
COUNT(PATH) | ; EP-COUNT FILES WAITING TO BE PROCESSED
|
|
SPLIT | ||
HOLD(FILE,PATH) | ; EP-IF TRANSMISSION FAILS, PUT THE FILE SET AT THE BACK OF THE LINE
|
|
VAR | ; EP-GET MISC VARS REQUIRED FOR ERROR PROCESSING
; GET ENVIRONMENTAL VARS: VISIT, DUZ, DUZ(2), DFN, DUZ(0), VENDEV, DEFEF, MRPFLG |
|
N1 | ||
FIRST(PATH) | ; EP-FIRST FILE IN THE PATH
|
|
DEL(PATH,F) | ; EP-FROM VENPCC2A - DELETE A FILE FROM THE PRINT QUEUE
|
|
START | ||
CTCP | ; EP-CLOSE TCP
|
|
CLOSESVS | ||
FIND(PATH,TARGET) | ;EP-RETURN A '1' IF A FILE EXISTS
|
|
KT | ||
KILLTASK | ; EP - DEFINITIVE WAY TO STOP ALL INSTANCES OF THE PRINT DEAMON
|
|
UCMD(CMD) | ;EP-UNIX COMMANDS
|
|
LOOP |
Name | Field # of Occurrence |
---|---|
CALL^%ZISTCP | OTCP+2 |
$$OTCP^VENPCCP | TRY |
^VENPCCP1 | TASK+3 |
MERGFAIL^VENPCCP2 | MERGFAIL |
REG^VENPCCP2 | CHK+1, TRY+1, TRY+2, NOTOPEN+2, NOTOPEN+3, NOTOPEN+4, LOOPFAIL+2, LOOPFAIL+3 |
$$CFG^VENPCCU | CTCP+2, KILLTASK+5 |
$$MRP^VENPCCU | VAR+38, MRPFLAG |
$$OS^VENPCCU | FIRST+2, DEL+1, DEL+3, COUNT+3, FIND+3, HOLD+6 |
$$VEN^VENPCCU | CHK+5, OPN+2, FIRST+1, DEL+1, DEL+2, COUNT+2, FIND+2, OTCP+2, CTCP+1, HOLD+5 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: READ |
|
Function Call: READ |
|
Function Call: READ |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("VEN TASK" | TASK+1, TASK+4!, OPN1+8, KILLTASK+3, KILLTASK+4! |
^VEN(7.4 - [#19707.4] | VAR+37, VAR+38, PGIEN+1, MRPFLAG |
^VEN(7.41 - [#19707.41] | VAR+28, DEFEF+1 |
^VEN(7.5 - [#19707.5] | UNIX+2, CTCP+2, KILLTASK+5 |
Name | Line Occurrences |
---|---|
$$FIND | HOLD+3 |
$$OPN | UNIX+5 |
$$UNIX | FIRST+2, COUNT+3, FIND+3 |
COUNT1 | COUNT1+3 |
CTCP | NOTOPEN, LOOPFAIL+1, CLOSESVS |
DEL | UNIX+6, HOLD+5, HOLD+6 |
EVAR | JUMP25 |
FIND1 | FIND1+3 |
FUNC | FIRST+5, DEL+6, COUNT+6, COUNT1, FIND+6, FUNC+7, FUNC+8, FUNC+9 |
KILLTASK | TASK+2, TASK+4 |
LOOP | START+2 |
N1 | NOTOPEN+3 |
NOTOPEN | START+4 |
OPN1 | OPN1+10 |
START | START+4 |
TRY | TRY+2, N1+1, RETRY |
UCMD | DEL+3, UNIX+4, HOLD+6 |
VAR | EVAR |
VARS | VAR+2 |
Name | Field # of Occurrence |
---|---|
^( | VAR+28, DEFEF+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | CHK+2~, SPLIT*, SPLIT+1*, VAR+3~, VAR+13*, VAR+14, VAR+15, VAR+16*, VAR+17, VAR+22* , VAR+23, VAR+24*, VAR+26, VAR+28, VAR+33*, VAR+34, VAR+35*, VAR+37, VARS+1~, FMVARS* , FMVARS+2, DEFEF*, DEFEF+1, PGIEN*, PGIEN+1, DEL+4~, FUNC+1~, FUNC+2*, FUNC+3, FUNC+4 , FUNC+5, HOLD+1~ |
ACK | CHK+2~, START!, START+1*, START+2, START+4, NOTOPEN+2, NOTOPEN+3, NOTOPEN+4, LOOP+4!, LOOP+5* , LOOP+6, LOOP+7*, LOOP+8, MERGE+1!, MERGE+2*, SUCCESS, RETRY, MERGFAIL |
ACT | FUNC~, FUNC+3, FUNC+4, FUNC+5, FUNC+6 |
BLANK | CHK+3~, ADDBLANK*, SPLIT+1* |
BUFF | CHK+3~, CHK+5*, SPLIT, SPLIT+1 |
CACHE | CHK+3~, CHK+5*, START, LOOP+4, MERGE+1, OPN+1~, OPN+2*, OPN1, OPN1+1 |
>> CFIGIEN | UNIX+2 |
CKSUM | CHK+3~, ADDBLANK*, START, VAR+5*, VAR+7* |
CMD | UCMD~, UCMD+1, UNIX+1~, UNIX+3*, UNIX+4, HOLD+1~, HOLD+5*, HOLD+6* |
CNT | VAR+3~, VAR+5*, VAR+6*, VAR+7, VAR+8, VAR+9, COUNT+1~, COUNT+2, COUNT+4~, COUNT+8* , COUNT1+1, COUNT1+2* |
>> DEFEF | VAR+25*, VAR+28*, DEFEF*, DEFEF+1* |
DEV | OPN+1~, OPN1+2* |
>> DFN | VAR+15*, FMVARS+2* |
ECNT | CHK+3~, CHK+4*, RETRY*, RETRY+1 |
ELIG | CHK+2~ |
ERR | CHK+2~ |
EX | OPN~, UNIX~, UNIX+5 |
F | OPN+1~, OPN+2*, OPN1+2, DEL~, DEL+1, DEL+2, DEL+3, DEL+5, HOLD+1~, HOLD+3* , HOLD+4, HOLD+5, HOLD+6 |
FILE | OPN~, OPN+2, COUNT+1~, FIND+1~, UNIX+1~, UNIX+3*, UNIX+5, UNIX+6, HOLD~, HOLD+2 |
I | CHK+2~, SPLIT*, SPLIT+1* |
IO | OTCP+1~ |
IOF | OTCP+1~ |
IOST | OTCP+1~ |
IOT | OTCP+1~ |
IP | SEND~, CHK, CHK+6*, TRY, TRY+1, TRY+2*, N1, N1+1*, RETRY+2*, OTCP~ , OTCP+2, OTCP+3 |
IPA | SEND~, CHK+6*, TRY+1, TRY+2, N1, N1+1, RETRY+2 |
LASTPCE | CHK+3~, SPLIT*, SPLIT+1 |
LEN | CHK+2~ |
M | HOLD+1~, HOLD+3* |
MAXPCE | CHK+3~, SPLIT+1*, VAR+5*, VAR+8* |
>> MRPFLAG | MERGFAIL, VAR+36*, VAR+38*, PGIEN*, MRPFLAG* |
>> MSG | MERGE, SUCCESS, RETRY+1 |
N | CHK+2~, ADDBLANK*, HOLD+1~, HOLD+2*, HOLD+3 |
OK | CHK+2~ |
PATH | OPN~, OPN+2, FIRST~, FIRST+1, FIRST+2, FIRST+4, DEL~, DEL+1, DEL+2, DEL+3 , DEL+5, COUNT~, COUNT+3, COUNT+5, FIND~, FIND+3, FIND+5, UNIX~, UNIX+2, FUNC+8 , FUNC+9, HOLD~, HOLD+3, HOLD+4, HOLD+5, HOLD+6 |
PATH2 | UNIX+1~, UNIX+2*, UNIX+3, UNIX+5, UNIX+6 |
PATHX | UNIX+1~, UNIX+2*, UNIX+3 |
PCE | CHK+2~, LOOP*, LOOP+2*, LOOP+3 |
PF | FIRST+3~, FIRST+4*, DEL+4~, DEL+5*, COUNT+4~, COUNT+5*, FIND+4~, FIND+5*, FUNC+5, FUNC+8* , FUNC+9* |
>> PGIEN | MERGFAIL, VAR+36*, VAR+37*, VAR+38, PGIEN*, PGIEN+1*, MRPFLAG |
POP | TRY*, TRY+1, TRY+2, OPN+1~, OPN+2*, OPN1+1, OPN1+6, UNIX+5*, OTCP+1~, OTCP+2 , OTCP+3*, OTCP+4 |
R | HOLD+1~, HOLD+4* |
>> REC | CHK, ADDBLANK, SPLIT*, LOOP+3*, LOOP+4 |
>> REC( | SPLIT*, SPLIT+1*, LOOP+2, LOOP+3, VAR+6, VAR+7, VAR+9 |
>> REC(1 | FMVARS, DEFEF, PGIEN |
RESULT | FIRST+1, FIRST+2*, COUNT+3~*, FIND+3~*, UNIX+1~, UNIX+2*, UNIX+7 |
RSTG | CHK+2~ |
RW | OPN~, OPN1+2* |
SEX | CHK+2~ |
SOCKET | SEND~, CHK, TRY, OTCP~, OTCP+2, OTCP+3, CTCP+2~*, CTCP+3 |
SSN | CHK+2~ |
STG | VAR+3~, VAR+9*, VAR+12, VAR+13, VAR+21, VAR+22, VAR+32, VAR+33, HOLD+1~, HOLD+4* , HOLD+5, HOLD+6 |
STOP | CHK+2~, CHK+3~, LOOP!, LOOP+2, LOOP+6*, LOOP+8*, LOOPFAIL, LOOPFAIL+2 |
>> SWAP | CHK+6, TRY+1, TRY+2*, N1, N1+1* |
TARGET | FIND~, FIND+2, FIND+5, FIND+8, FIND1+2 |
>> TMP | TRY+2, START+4, START+8, START+9, NOTOPEN+1, LOOP+1, MERGE, SUCCESS, RETRY+1 |
TRY | CHK+3~, TRY+3*, START+4, START+5*, START+6, START+9, OPN+1~, OPN+2*, OPN1+9* |
U | ADDBLANK, START, VAR+13, VAR+15, VAR+17, VAR+23, VAR+24, VAR+28, VAR+34, VAR+35 , VAR+38, FMVARS, FMVARS+2, DEFEF, DEFEF+1, PGIEN, MRPFLAG, FIRST+6, FIND+8, FIND1+2 , UCMD+2, CTCP+2, FUNC+8, FUNC+9 |
VCN | CHK+2~ |
VD | VAR+3~, VAR+4*, VAR+19, VAR+25* |
VE | VAR+3~, VAR+4*, VAR+10, VAR+15* |
>> VENDEV | VAR+15*, FMVARS+2* |
>> VER25 | JUMP25, VAR+2 |
>> VISIT | VAR+15*, FMVARS+2* |
VP | VAR+3~, VAR+4*, VAR+30, VAR+36* |
X | VAR+3~, VAR+10*, VAR+11, VAR+19*, VAR+20, VAR+30*, VAR+31, VARS+1~, FIRST+3~, FIRST+6 , DEL+4~, COUNT+3~, COUNT+7, COUNT1+1, FIND+3~, FIND+7, FIND+8, FIND1+1, FIND1+2, FUNC+7 , FUNC+8*, FUNC+9*, HOLD+1~, KILLTASK+1~, KILLTASK+2*, KILLTASK+3*, KILLTASK+4 |
Y | VAR+3~, VAR+11*, VAR+12, VAR+13, VAR+20*, VAR+21, VAR+22, VAR+31*, VAR+32, VAR+33 , FUNC+1~, FUNC+8*, FUNC+9* |
Z | VAR+3~, VAR+27*, VAR+28*, VARS+1~, FMVARS+1*, FMVARS+2, DEFEF*, DEFEF+1* |