Routine: AFSHARC0

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	4	^%DT ^%DTC ^DIK ^DIR
NCR Financial System	3	(ABEND,ENDX,JCANCEL)^AFSHARC1 (ERROR,M9,OPENHFS)^AFSHCK1 HOSTCMD^AFSHCKZC
Commitment Register	2	$$ARMSDIR^ACRFSYS TCMD^ACRFUTL
Kernel	2	($$DEL,$$STATUS)^%ZISH ($$FMADD,$$FMTE)^XLFDT

Package

Total

Call Graph

VA Fileman

^%DT ^%DTC ^DIK ^DIR

NCR Financial System

(ABEND,ENDX,JCANCEL)^AFSHARC1 (ERROR,M9,OPENHFS)^AFSHCK1 HOSTCMD^AFSHCKZC

Commitment Register

$$ARMSDIR^ACRFSYS TCMD^ACRFUTL

Kernel

($$DEL,$$STATUS)^%ZISH ($$FMADD,$$FMTE)^XLFDT

Package	Total	Caller Graph
NCR Financial System	1	AFSHEXU0

Package

Total

Caller Graph

NCR Financial System

AFSHEXU0

Entry Points

External References

Name	Field # of Occurrence
^%DT	JDATECV+18
^%DTC	SETUP+10
$$DEL^%ZISH	ZDEL+2
$$STATUS^%ZISH	LISTEM+9
$$ARMSDIR^ACRFSYS	MEDIA+5, SETUP+8
TCMD^ACRFUTL	TAREXIT+1, LISTEM+2
ABEND^AFSHARC1	LISTEM+8
ENDX^AFSHARC1	TAREXIT+1, SETUP+2, DEVEOF+1, FILEDSP+2, LISTEND+1, FILEDEX
JCANCEL^AFSHARC1	LISTEND
ERROR^AFSHCK1	LISTEM+8
M9^AFSHCK1	LISTEND
OPENHFS^AFSHCK1	LISTEM+7
HOSTCMD^AFSHCKZC	TRYBK+3
^DIK	ZDEL+6
^DIR	DEVEOF+6, FILEDSP, LISTEND
$$FMADD^XLFDT	JDATECV+19
$$FMTE^XLFDT	JDATECV+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NOT AN ENTRY POINT" Line Location: AFSHARC0+3
Function Call: WRITE	Prompt: !!,?10,"Backing up ",AFSHEXFN," to ",AFSHDNME,! Line Location: TRYBK+1
Function Call: WRITE	Prompt: !!,?10,"Backup to ",AFSHDNME," was SUCCESSFUL" Line Location: TRYBK+5
Function Call: WRITE	Prompt: *7,!!?10,"Backup to ",AFSHDNME," was NOT SUCCESSFUL -- NOTIFY SUPERVISOR" Line Location: ERROR+0
Function Call: WRITE	Prompt: !,"FILE: ",%FN Line Location: SETUP+1
Function Call: WRITE	Prompt: "FILE NAME ERROR" Line Location: SETUP+2
Function Call: READ	Timeout: 1 Variable: AFSHX Line Location: LISTEM+9
Function Call: WRITE	Prompt: !!,"NUMBER OF PREVIOUSLY EXPORTED FILES = ",AFSHFCNT Line Location: DEVEOF+2
Function Call: WRITE	Prompt: ! Line Location: DEVEOF+6
Function Call: WRITE	Prompt: ! Line Location: FILEDSP+0
Function Call: WRITE	Prompt: !!,"SEQ # ","# RCDS EXPORT - DATE FILE NAME - SFX OK-TX? COLOR",!! Line Location: A20+1
Function Call: WRITE	Prompt: !,$J(AFSHSEQ,3),?6,$J(X,6),?17,Y Line Location: FILEDSPB+7
Function Call: WRITE	Prompt: ?33,$E(X,1,AFSHFNLN),?45,$E(X,AFSHFNLN+1,AFSHFNLN+1),?51,AFSHXST Line Location: FILEDSPB+9
Function Call: WRITE	Prompt: !,"** END OF LIST ** ",! Line Location: LISTEND+0
Function Call: WRITE	Prompt: ! Line Location: FILEDEL+1
Function Call: WRITE	Prompt: !,AFSHFILN," UNIX FILE DELETED" Line Location: ZDEL+4
Routine Call	DIR Line Location: DEVEOF+6 FILEDSP LISTEND

Name	Line Occurrences (* Changed, ! Killed)
^AFSHPARM(	MEDIA+1
^AFSTXLOG(	FILEDSPB+1, FILEDSPB+3, ZDEL+5

Label References

Name	Line Occurrences
ARCHLIST	DEVEOF+8, FILEDSP+1
DEVEOF	LISTEM+9
ERROR	MEDIA+9
FILEDEL	DEVEOF+7
FILEDELA	FILEDELA+4, ZDEL+3, ZDEL+7
FILEDEX	FILEDELA
FILEDSP	DEVEOF+4
FILEDSPA	FILEDSPB
FILEDSPB	FILEDSPB+10
JDATECV	FILEDSPB+5, SUB2END, FILEDELA+2
JDATEQ	JDATECV+16
LISTEND	FILEDSPA
SUB1	LISTEM+9
SUB2	DEVEOF+3
SUB2A	SUB2A+2
SUB2END	SUB2A
TAREXIT	TRYBK+5
ZDEL	FILEDELA+3

Name	Field # of Occurrence
^(0	FILEDSPB+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DEV	LISTEM+7, LISTEM+8, LISTEM+9
%DT	JDATECV+18~
>> %FN	MEDIA+9, MEDIA+10, TRYBK+2, SETUP+1, SETUP+2, SETUP+3, SETUP+5, LISTEM+1, LISTEM+4*, LISTEM+7
>> %FNSAV	SETUP+5*
>> %OPT	SETUP+4*, DEVEOF+1
>> %SDIR	MEDIA+5, MEDIA+6, TRYBK+2, TAREXIT+1, SETUP+8, SETUP+9, LISTEM+1, LISTEM+7, ZDEL+2
>> AFSHCLRN	FILEDSPB+3*
>> AFSHCMDR	TRYBK+2, TAREXIT+1, LISTEM+1*, LISTEM+2
AFSHDA	JDATEQ!
>> AFSHDCNT	LISTEM+9, SUB1+2, SUB2+1, SUB2A+1
>> AFSHDLDT	SUB2END*, FILEDELA+3
>> AFSHDNME	MEDIA+8*, TRYBK+1, TRYBK+5, ERROR
>> AFSHDSVE	FILEDELA+2*
>> AFSHDTJL	SETUP+10*
>> AFSHDTYE	MEDIA+3*, MEDIA+7, MEDIA+8
>> AFSHDTYP	MEDIA+7*, TRYBK+2
>> AFSHEMSG	LISTEND*
>> AFSHEXFN	TRYBK+1
>> AFSHFCNT	LISTEM+9, DEVEOF+2, SUB1+1
>> AFSHFILN	ZDEL*, ZDEL+2, ZDEL+4, ZDEL+5
AFSHFLES	SETUP+6!
AFSHFLES(	FILEDSPB+1, FILEDSPB+3, FILEDSPB+5, FILEDSPB+6, FILEDSPB+8, SUB1+2, FILEDELA, FILEDELA+1, ZDEL, ZDEL+4!
AFSHFLES("C"	FILEDSPA, FILEDSPB, SUB1+2, SUB1+3*, SUB2A, ZDEL+4!
AFSHFLES("N"	SUB1+5*, ZDEL+4!
>> AFSHFNLN	MEDIA+10, SETUP+3, FILEDSPB+9
>> AFSHFNME	FILEDSPB+1*
>> AFSHI	LISTEM+9*, SUB1+2, SUB1+3, SUB1+5
AFSHJDD	JDATEQ!
AFSHJFLG	SETUP+3!, LISTEND*
AFSHJYR	JDATECV+17*, JDATECV+18, JDATECV+19, JDATEQ!
>> AFSHLDAT	DEVEOF+4, SUB2+1, SUB2A+1, SUB2END
AFSHMM	JDATEQ!
>> AFSHOPT(3	MEDIA+1*, MEDIA+2
>> AFSHR	DEVEOF, A20, FILEDSPA, FILEDSPB, SUB2+1, SUB2A, SUB2A+1, FILEDEL+1, FILEDELA*, FILEDELA+1 , ZDEL, ZDEL+4
>> AFSHRR	A20, FILEDSPB, FILEDSPB+1, FILEDSPB+3, FILEDSPB+5, FILEDSPB+6, FILEDSPB+8
>> AFSHRTCD	MEDIA+2, TRYBK+4
>> AFSHSEQ	A20, FILEDSPB+7
>> AFSHSZ	FILEDSPB+6, FILEDSPB+8, FILEDSPB+9, FILEDELA+1, FILEDELA+2, JDATECV+14, JDATECV+15*, JDATECV+16, JDATECV+17, JDATECV+19
>> AFSHX	LISTEM+9*, SUB1+2, SUB1+4
>> AFSHXPT	FILEDSPB+1, FILEDSPB+3, ZDEL+5, ZDEL+6
>> AFSHXSAV	FILEDELA+2*, ZDEL+4
>> AFSHXST	FILEDSPB+3*, FILEDSPB+9
>> AFSHY	SUB1+2*, SUB1+3, SUB1+5
>> AFSHZ	SUB1+4*, SUB1+5
AFSHZDT	JDATEQ!
>> DA	ZDEL+6*
>> DA(1	ZDEL+6*
>> DIK	ZDEL+6*
DIR	DEVEOF+6!, FILEDSP!, LISTEND!
DIR("A"	DEVEOF+6, FILEDSP
DIR("B"	DEVEOF+6, FILEDSP
DIR(0	DEVEOF+6, FILEDSP, LISTEND*
DT	SETUP+10, JDATECV+15
>> DTOUT	ARCHLIST+1, DEVEOF+8, FILEDSP+1
>> DUOUT	ARCHLIST+1, DEVEOF+8, FILEDSP+1
DUZ(2	MEDIA+1, FILEDSPB+1, FILEDSPB+3, ZDEL+5, ZDEL+6
I	JDATEQ!
IO(0	TRYBK+1, TRYBK+3, SETUP+1, SETUP+2, DEVEOF+2
>> X	TRYBK+4, TRYBK+5, SETUP+10, FILEDSPB+5, FILEDSPB+6, FILEDSPB+7, FILEDSPB+9, SUB2END, FILEDELA+2, FILEDELA+3 , ZDEL+2, ZDEL+3, JDATECV+14, JDATECV+15, JDATECV+18, JDATECV+19, JDATECV+20
>> X1	SETUP+10*
>> X2	SETUP+10*
>> Y	LISTEM+6, DEVEOF+6, DEVEOF+7, FILEDSP+2, FILEDSPB+7, LISTEND, JDATECV+16, JDATECV+19, JDATECV+20*

Customize PDF page

Package: NCR Financial System

Routine: AFSHARC0

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
TARBKUP	;EP; DO 'TAR' BACKUP OF OPERATING SYSTEM FILE
SETUP	;
ERROR
FILEDELA
ZDEL
FILEDSP
SUB2END
SUB2A
FILEDEX
SUB1	;
FILEDEL	;
ARCHLIST	;EP; LIST APPROPRIATE FILES IN OPERATING SYSTEM
MEDIA	;
JDATECV	;EP; JULIAN DATE CONVERSION ; beginning Y2K fix block
FILEDSPA
FILEDSPB
SUB2	;
JDATEQ
A20
TAREXIT	;S AFSHCMDR="cd /usr/spool/afsdata" D TCMD^ACRFUTL G ENDX^AFSHARC1 ;ACR2.113.06 IM14144
LISTEND
DEVEOF
LISTEM	;
TRYBK	;