DGPTAPA ;MTC/ALB - PTF Archive Utilities; 10-14-92
Source file <DGPTAPA.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 3 | DGPT A/P ARCHIVE DGPT REMOVE A/P DGPT SELECT A/P |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ARC | ;-- entry point to Archive PTF records
|
|
| ARCQ | ||
| ADDARC(TEMP) | ;-- This function will add archive date, user and status
|
|
| ADDARCQ | ;
|
|
| ARCEX | ;-- exit point from protocol
|
|
| MKARC(DGTMP,REGEN) | ;-- this function will create the word process field that contains the
; archive data if one does not exists. If a field already exist then ; the data will be deleted and the new field will be created. |
|
| MKARCQ | ||
| CHDATA() | ;-- if data already exists in WP field ask if should be purged
; OUTPUT : 1 - ok continue ; 0 - don't continue ; -1 - user enters a "^" |
|
| CHECK | ;
|
|
| WR(DGTMP,REGEN) | ;-- this function will write the archived data out to a sequential
; device. ; INPUT : DGTMP - Active PTF A/P template ; REGEN - regeneration flag ; OUTPUT : 1 - ok continue ; 0 - don't continue |
|
| WRQ | ;
|
|
| WRITEM | ;-- loop thru write archive data
|
|
| WRITEMQ | ;
|
|
| BLDAD(DGTMP) | ;-- This function will load the Archive data into the wp
; field in the A/P template. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DGP(45.62 - [#45.62] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGP(45.62 - [#45.62] | ARC+10, ADDARC+6, MKARC+12, MKARC+14, WRITEM+6, WRITEM+7, BLDAD+10, BLDAD+15 |
| ^DIBT - [#.401] | BLDAD+16 |
| ^TMP("ARCPTF" | ARC+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | WR+10* |
| DA | ADDARC+9*, MKARC+17*!, BLDAD+8*!, BLDAD+11*! |
| DATE | MKARC+9~, BLDAD+5~, BLDAD+10* |
| >> DGP( | BLDAD+7 |
| DGPTF | WRITEM+1~, BLDAD+5~, BLDAD+15*, BLDAD+16* |
| DGTMP | ARC+1~, ARC+7*, ARC+10, ARC+12, ARC+14, ARC+16, MKARC~, MKARC+12, MKARC+14, MKARC+17 , CHECK+1, WR~, WRITEM+4, WRITEM+6, WRITEM+7, BLDAD~, BLDAD+7, BLDAD+8, BLDAD+10, BLDAD+11 , BLDAD+15 |
| DIE | ADDARC+9*, MKARC+17*!, BLDAD+8*!, BLDAD+11*! |
| DIR | CHDATA+7! |
| DIR("A" | CHDATA+5* |
| DIR("B" | CHDATA+5* |
| DIR(0 | CHDATA+5* |
| >> DIRUT | CHDATA+6 |
| DR | ADDARC+9*, MKARC+17*!, BLDAD+8*!, BLDAD+11*! |
| EXIST | MKARC+9~, MKARC+10*, MKARC+14*, MKARC+16, MKARC+20, MKARC+21*, MKARCQ, CHDATA+4~, CHDATA+6*, CHDATA+8 |
| I | WRITEM+1~, WRITEM+6*, WRITEM+7 |
| IO | WRITEM+2 |
| IO("Q" | WR+11, WR+13! |
| >> POP | WR+10 |
| REGEN | ARC+1~, ARC+4*, ARC+12, ARC+14, MKARC~, MKARC+18*, MKARC+20*, WR~, WRITEM+4 |
| RESULT | WR+7~, WR+8*, WR+10*, WRQ+1 |
| SRTMP | ADDARC+4~, BLDAD+5~, BLDAD+15*, BLDAD+16 |
| TEMP | ADDARC~, ADDARC+6, ADDARC+9 |
| U | ARC+10, MKARC+12, BLDAD+10, BLDAD+15 |
| >> VALMBCK | ARCEX+2* |
| >> VALMY | ARC+6 |
| >> VALMY(0 | ARC+7 |
| X | WRITEM+1~, WRITEM+7*, WRITEM+8 |
| >> Y | CHDATA+6, CHECK+1* |
| >> ZTDESC | WR+12* |
| >> ZTRTN | WR+12* |
| >> ZTSAVE("DGTMP" | WR+12* |
| >> ZTSAVE("REGEN" | WR+12* |
