IBPU1 ;ALB/CPM - ARCHIVE/PURGING UTILITIES (CON'T.) ; 20-APR-92
Source file <IBPU1.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 |
|---|---|---|
| NODUZ() | ; Check for the existence of DUZ
; Input: NONE ; Output: 0 -- has DUZ, 1 -- no DUZ |
|
| NOESIG(USER) | ; Check Electronic Signature Code
; Input: USER -- ien in New Person file ; Output: 0 -- has code, 1 -- no code |
|
| ESIG(USER) | ; Enter Electronic Signature Code
; Input: USER -- ien in New Person file ; Output: 0 -- not entered or '^' out, 1 -- entered OK |
|
| OKAY(JOB) | ; Okay to queue this job?
; Input: JOB -- 1 - Search, 2 - Archive, 3 - Purge ; Output: 0 -- No, not okay, 1 -- Yes, okay to continue |
|
| TASK | ; Task off job.
; Input: IBOP -- 1 - Search, 2 - Archive, 3 - Purge ; IBD( -- input data |
|
| DEL(FILE) | ; Delete a search template from file #.401 (Sort Templates)
; Input: FILE -- file for which template must be deleted ; Output: None |
|
| UPD(LOG,FIELD,VALUE) | ; Update/Delete Log Entry fields
; Input: LOG -- ien of log entry to be updated ; FIELD -- field number of field being updated ; VALUE -- value to be stuffed into field ; Output: NONE |
|
| LOGIEN(FILE) | ; Find the most current log entry for a file
; Input: FILE -- file for which log entry must be deleted ; Output: ien of most current log entry for a file |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIBT - [#.401] | Classic Fileman Calls |
| ^IBE(350.6 - [#350.6] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("EOFF" | ESIG+4 |
| ^%ZOSF("EON" | ESIG+4 |
| ^DIBT("B" | DEL+6 |
| ^IBE(350.6 - [#350.6] | DEL+5, LOGIEN+3 |
| ^VA(200 - [#200] | NOESIG+4, ESIG+3 |
| Name | Line Occurrences |
|---|---|
| $$LOGIEN | DEL+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOGIEN+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DEL+3~, DEL+4*, DEL+5, DEL+6*, UPD+5~, UPD+6* |
| DIE | UPD+5~, UPD+6* |
| DIK | DEL+3~, DEL+6* |
| DIR | OKAY+3~ |
| DIR("?" | OKAY+5*, OKAY+6* |
| DIR("A" | OKAY+4* |
| DIR(0 | OKAY+4* |
| DIRUT | OKAY+3~, OKAY+7 |
| DR | UPD+5~, UPD+6* |
| DTIME | ESIG+4 |
| DTOUT | OKAY+3~, OKAY+7 |
| DUOUT | OKAY+3~, OKAY+7 |
| DUZ | NODUZ+4 |
| FIELD | UPD~, UPD+6 |
| FILE | DEL~, DEL+4, LOGIEN~, LOGIEN+3 |
| I | ESIG+3~ |
| >> IBOP | TASK+3, TASK+4 |
| ION | TASK+3 |
| J | ESIG+3~, ESIG+4* |
| JOB | OKAY~, OKAY+4 |
| LOG | UPD~, UPD+6 |
| SIG | ESIG+3~*, ESIG+4 |
| TMPL | DEL+3~, DEL+5*, DEL+6 |
| USER | NOESIG~, NOESIG+4, ESIG~, ESIG+3 |
| VALUE | UPD~, UPD+6 |
| X | ESIG+3~, ESIG+4* |
| Y | NODUZ+3~, NODUZ+4*, NODUZ+5, NOESIG+3~, NOESIG+4*, NOESIG+5, ESIG+3~*, ESIG+4*, ESIG+5, ESIG+6 , OKAY+3~, OKAY+7 |
| >> ZTDESC | TASK+4* |
| >> ZTDTH | TASK+3* |
| >> ZTIO | TASK+3* |
| >> ZTRTN | TASK+3* |
| >> ZTSAVE("IBD(" | TASK+3* |
| >> ZTSAVE("IBOP" | TASK+3* |
| ZTSK | TASK+5, TASK+6! |
