Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: TIUUPLD

Package: Text Integration Utility

Routine: TIUUPLD


Information

TIUUPLD ; SLC/JER - ASCII Upload ;9/11/98@16:39:47

Source Information

Source file <TIUUPLD.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Control branching
REMOTE(DA) ; Read ASCII stream from remote computer
REMHDR(PRTCL) ; Write Header for Remote upload
KERMIT(DA) ; Use Kermit Protocol Driver
HFS(DA) ; Read HFS file
STRIP(X) ; Strip control characters
MAKEBUF() ; Subroutine to create buffer records
MAKEBUX
FILE(DA) ; Completes upload transaction, invokes filer/router
FILEX
HELP(X) ; Process HELP for Remote upload

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),$C(7),"No End of Message Signal Defined - Contact IRM.",!
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: $C(7),$C(7),$C(7),"No Record Header Signal Defined - Contact IRM.",!
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: $C(7),$C(7),$C(7),"Unable to create a Buffer File Record - Contact IRM.",!
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: $C(7),$C(7),$C(7),!,"File Transfer Error: ",$G(TIUERR),!!,"Please re-transmit the file...",!
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: $C(7),$C(7),$C(7),"No Pace Character Defined - Contact IRM.",!
  • Line Location: REMOTE+4
Function Call: WRITE
  • Prompt: !,$C(TIUPAC)
  • Line Location: REMOTE+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: REMOTE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: REMOTE+12
Function Call: WRITE
  • Prompt: !,$C(TIUPAC)
  • Line Location: REMOTE+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REMHDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: KERMIT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HFS+3
Function Call: WRITE
  • Prompt: !!,"Select Host File:",!
  • Line Location: HFS+4
Function Call: WRITE
  • Prompt: !,$C(7),"Device unavailable."
  • Line Location: HFS+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HFS+5
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HFS+6
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Filer/Router Queued!",1:"Filer/Router Cancelled!")
  • Line Location: FILE+11
Function Call: WRITE
  • Prompt: !!,"File Transfer Complete--Now Filing Records..."
  • Line Location: FILE+13
Function Call: WRITE
  • Prompt: !?3,"Begin file transfer using ASCII protocol upload procedure.",!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?3,"Consult your terminal emulator's User Manual to determine",!
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?3,"how to set-up and initiate an ASCII protocol file transfer.",!
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?3,"Enter '^' or '^^' to exit.",!
  • Line Location: HELP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.2 - [#8925.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call