DGPTAPSL ;MTC/ALB - PTF Archive and Purge Selection Routines; 9/11/92
Source file <DGPTAPSL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SEL() | ;-- the routine will get the date range for the a/p process
|
|
SELQ | ||
MAXDT() | ;-- This function will return the lastest date allowable for
|
|
SRCH(GLB,DRANGE) | ;-- search PTF file by adm date
; INPUT: GLB - Global to load entries ex. "^TMP("MATT",$J," ; DRANGE - start date ^ end date in FM format ; ; OUTPUT: Total # of entires loaded into GLB |
|
SHUDADD(PTF,DRANGE) | ;-- routine to determin if the PTF records should be added to purge
; INPUT : PTF - record to check ; DRANGE - start and end date of search ; OUTPUT: 1=OK, 0=Don't Purge |
|
SHUDEND | ||
CRTEMP | ;-- This function will create a sort template containing the
; items from the PTF File (#45) that should be Archived/Purged. The ; name of the template will be derive from the date range selected. ; Lastly, if items are selected, then an entry will be made in the ; PTF Archive/Purge History File (#45.62). |
|
CRQ | ||
CRHIS(FNAME,NUMREC,DRANGE) | ;-- This function will create an entry in the
; PTF Archive/Purge History File (#45.62). |
|
DELENTRY(FNAME) | ;-- This function will delete the entry in the
; the PTF Archive/Purge History file and the search ; template. ; INPUT : FNAME - History File to delete. |
|
DELENQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DIBT - [#.401] | Classic Fileman Calls |
^DGP(45.62 - [#45.62] | Classic Fileman Calls |