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 |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AZSLS03

Package: Local Area Programs

Routine: AZSLS03


Information

AZSLS03 ; LOAD S03 TABLE INTO PROVIDER/VENDOR [ 12/23/85 1:50 PM ]

Source Information

Source file <AZSLS03.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
RMB ; REMOVE LEADING AND TRAILING BLANKS AND BLANK AFTER COMMA
READ ; READ INPUT FILE
EOJ ; CLOSE INPUT FILE AND QUIT
SETAFFL ; SET AFFILIATION
OERR ; OPEN ERROR
PROC ; PROCESS INPUT RECORDS

External References

Name Field # of Occurrence
^DIC PROC+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Opening input file. Please wait."
  • Line Location: AZSLS03+4
Function Call: WRITE
  • Prompt: *5
  • Line Location: AZSLS03+6
Function Call: WRITE
  • Prompt: !!,"Records read=",INC,!
  • Line Location: AZSLS03+8
Function Call: WRITE
  • Prompt: !!,"Error encountered. Job aborted!",!!
  • Line Location: AZSLS03+9
Function Call: WRITE
  • Prompt: !!,"Load complete!",!!
  • Line Location: AZSLS03+10
Function Call: WRITE
  • Prompt: !,"Bad data=",X,!
  • Line Location: PROC+5
Function Call: WRITE
  • Prompt: !,AFFL," ",DISC," ",CODE," ",NAME
  • Line Location: PROC+7
Function Call: WRITE
  • Prompt: !!,X,"/",DR("DR")
  • Line Location: PROC+9
Function Call: READ
  • Timeout: $ZA\16384#2
  • Variable: X S
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: BEEP
  • Line Location: OERR+1
Function Call: WRITE
  • Prompt: !!,"Open error on input file!",!!
  • Line Location: OERR+2
Routine Call
  • DIC
  • Line Location:
    • PROC+8

Label References

Name Line Occurrences
EOJ AZSLS03+9
OERR AZSLS03+5
PROC AZSLS03+7
READ PROC+1
RMB PROC+4
SETAFFL PROC+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AFFL PROC+7, PROC+8, SETAFFL+1*, SETAFFL+2*, SETAFFL+4*, SETAFFL+6*, SETAFFL+7*, SETAFFL+8*, SETAFFL+9*, SETAFFL+11*
, SETAFFL+12*, SETAFFL+14*, SETAFFL+15*, SETAFFL+16*, SETAFFL+17*, SETAFFL+18*, SETAFFL+19*
>> BEEP AZSLS03+2*, OERR+1
>> CODE PROC+4*, PROC+5, PROC+7, PROC+8, SETAFFL+2, SETAFFL+4, SETAFFL+6, SETAFFL+7, SETAFFL+15, SETAFFL+16
, SETAFFL+19
>> DIC AZSLS03+3*
>> DIC("DR" PROC+8*
>> DIC(0 AZSLS03+3*
>> DISC PROC+4*, PROC+5, PROC+7, PROC+8, SETAFFL+2, SETAFFL+3, SETAFFL+4, SETAFFL+5, SETAFFL+6, SETAFFL+7
, SETAFFL+8, SETAFFL+9, SETAFFL+10, SETAFFL+11, SETAFFL+12, SETAFFL+13, SETAFFL+14, SETAFFL+15, SETAFFL+16, SETAFFL+17
, SETAFFL+18, SETAFFL+19
>> DLAYGO AZSLS03+3*
>> DR("DR" PROC+9
DUZ(0 AZSLS03+3*
>> I RMB+1*
>> INC AZSLS03+2*, AZSLS03+8, PROC+3*
>> L AZSLS03+7*, RMB+2*
>> NAME PROC+4*, PROC+5, PROC+7, PROC+8, RMB+1*, RMB+2*, RMB+3, RMB+4*
>> POS RMB+3*, RMB+4
>> QFLG AZSLS03+2*, AZSLS03+7, AZSLS03+9, PROC+2, PROC+5*, PROC+9*, READ+1*
U AZSLS03+2*
>> X PROC+4, PROC+5, PROC+8*, PROC+9, READ+1*
>> Y PROC+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All