Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGPTAPA

Package: Registration

Routine: DGPTAPA


Information

DGPTAPA ;MTC/ALB - PTF Archive Utilities; 10-14-92

Source Information

Source file <DGPTAPA.m>

Entry Points

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.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,">>> PTF Archived Data Already Purged..."
  • Line Location: ARC+10
Function Call: WRITE
  • Prompt: !,">>> Adding Archive data to PTF Archive/Purge History entry."
  • Line Location: ADDARC+8
Function Call: WRITE
  • Prompt: !!,*7,">>> Select Device for Archiving PTF Data."
  • Line Location: WR+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGP(45.62 - [#45.62] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call