Routine: PSXDODNT

Information

PSXDODNT ;CMC/WPB Utility to watch DoD directories ;04/01/02 16:52:42

Name	Comments	DBIA/ICR reference
EN	;reads the directory for files
DIRECT	;reads the FILE variable to see what types files are available for processing and then sends process to the appropriate routine
FINISH	;
PULL
ARCHIVE	;
REMOVE
KVAR	;K FILELIST,FILE,Y,PATH,BADFILE
ROU	; nest the new command so variables will be protected
ZTER	;Friendly RE-cycle error and move to next file
PULL2
HOLD
ARCHIVE2
REMOVE2
FALERT(FILE,PATH,GBL)	;fail to pass file into target directory, send alert, store for later
STORE	; store file intO XTMP if GBL PROVIDED
RESEND	; SCAN XTMP and if entries put the files into the boxes
CLEAR	; CLEAR PREVIOUS NODES history nodes
KILLERR	; kill the error LOG ^XTMP("PSXDODERR", )
START	;enable/start auto error trapping
STOP	;disable auto error trapping
EDIT	; edit the PSX DODNT option K8 SYS pg 342
DISP	; display schedule
CLEARALL	; clear boxes out, archive, hold of all files

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"STOPPING" Line Location: EN+4
Function Call: WRITE	Prompt: !,"Processing Files:" Line Location: DIRECT+1
Function Call: WRITE	Prompt: !,?5,FILENM Line Location: DIRECT+1
Function Call: WRITE	Prompt: !,"Nxtfile3a ",FILENM Line Location: DIRECT+5
Function Call: WRITE	Prompt: !,"nxtfile3b ",FILENM Line Location: DIRECT+5
Function Call: WRITE	Prompt: !,JOBBEG,?20,^XTMP(PSXJOB,JOBBEG) Line Location: DIRECT+13
Function Call: WRITE	Prompt: !,%,?20,^XTMP(PSXJOB,JOBBEG) Line Location: DIRECT+16
Function Call: WRITE	Prompt: !,"nxtfile4 Finish of ",FILENM Line Location: FINISH+1
Function Call: WRITE	Prompt: !,FILENM," ",ROU Line Location: ROU+2
Function Call: WRITE	Prompt: !,"zter2:Error Finish & Removal of ",FILENM Line Location: ZTER+12
Function Call: WRITE	Prompt: !,X Line Location: CLEAR+1

FileNo	Call Tags
^PSX(554 - [#554]	GET1^DIQ