Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AFSHARC0

Package: NCR Financial System

Routine: AFSHARC0


Information

AFSHARC0 ; IHS/OIRM/DSD/JDM-ARCHIVE & JULIAN DATE CONVERSION RTN; [ 10/27/2004 4:20 PM ]

Source Information

Source file <AFSHARC0.m>

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
NCR Financial System 1 AFSHEXU0  

Entry Points

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 ;ACR*2.1*13.06 IM14144
LISTEND
DEVEOF
LISTEM ;
TRYBK ;

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

Global Variables Directly Accessed

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

Naked Globals

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*

Marked Items

Name Field # of Occurrence
$T(M9^AFSHCK1 LISTEND
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All