SCCVDEL ;ALB/TMP - OLD SCHED VISITS FILE DELETE; [ 03/04/98 09:39 AM ]
Source file <SCCVDEL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Main entry point - display scheduling files to delete
|
|
INIT | ; -- set up initial variables
|
|
FNL | ; Clean up
|
|
BLD | ;Build parameter display
|
|
DELDD | ; Delete DDs and templates for files
|
|
DELDDQ | ||
GAP() | ; -- check to see if there gaps in conversion
; -- return: 1 - no gap | 0 - gaps exist |
|
GAPQ | ||
COMPL() | ; -- check if conversion complete flag is set
; -- return: 1 - set | 0 - not set |
|
COMPLQ | ||
DELFIL(FNO,FNM) | ;Delete dd and templates for the specified file #FNO
; FNM = the file name in () |
|
DFQ | ||
MSG(FNO) | ; -- display protect message
|
|
MSGQ | ||
LOG(FILE,USER,TYPE) | ; -- log file deletion
|
|
LOGQ | ||
FNAME(FNO) | ; -- get file name
|
|
FGLB(FNO) | ; -- get data global for file
|
|
FDELDT(FNO) | ; -- get date the site must convert back to in order to delete
; file dd and data |
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |
---|---|
^SD(404.91 - [#404.91] | Classic Fileman Calls |