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* |