Routine: PRSATAPE

Information

PRSATAPE ; HISC/FPT-Load 8B's onto Tape ;8/17/95 08:43

Source file <PRSATAPE.m>

Name	Comments	DBIA/ICR reference
TAPE	; make a tape of 8b records
LOAD	; load records onto tape
PROCESS	; write records onto tape
AGAIN
MAIL	; move 8b tape data into mail messages
KILL
M1	; move 8b records to mail messages
M2
M3

Name	Line Occurrences
Function Call: WRITE	Prompt: XMSUB Line Location: LOAD+3
Function Call: WRITE	Prompt: "." Line Location: LOAD+5
Function Call: WRITE	Prompt: "* END *"_$J("",69) Line Location: LOAD+6
Function Call: WRITE	Prompt: RECORD_$J("",80-$L(RECORD)) Line Location: AGAIN+0
Function Call: WRITE	Prompt: $E(RECORD,1,LENGTH-2)_$J("",80-(LENGTH-2)) Line Location: AGAIN+2
Function Call: READ	Variable: HEADER Timeout: 60 Line Location: MAIL+2
Function Call: WRITE	Prompt: !!,RECCNT," Records / ",MSGCNT," Messages",! Line Location: MAIL+3
Function Call: READ	Variable: X Timeout: 60 Line Location: M1+1
Function Call: WRITE	Prompt: "." Line Location: M3+0
Routine Call	%ZIS Line Location: TAPE+4 MAIL+1
Routine Call	%ZIS Line Location: TAPE+4 MAIL+1
Routine Call	DIC Line Location: TAPE+2

FileNo	Call Tags
^PRST(458 - [#458]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	LOAD+2
^DIC(4 - [#4]	LOAD+1
^PRSPC - [#450]	PROCESS+1
^PRST(458 - [#458]	TAPE+1, TAPE+2, LOAD+2, LOAD+5, PROCESS+1, PROCESS+2
^TMP($J	M1+1!*, M2!
^XMB(1 - [#4.3]	LOAD+1

Name	Field # of Occurrence
%ZIS	TAPE+4!, MAIL+1!, KILL!
%ZIS("A"	TAPE+4, MAIL+1
%ZIS("B"	TAPE+4, MAIL+1
DIC	TAPE+2!*
DIC("B"	TAPE+2*
DIC(0	TAPE+2*
HEADER	MAIL+2*, KILL!, M3+1
IEN	LOAD+4, LOAD+5, PROCESS+1, PROCESS+2, KILL!
IO	TAPE+5, LOAD+3, LOAD+6, AGAIN, AGAIN+2, MAIL+2, M1+1
IO(0	LOAD+5, PROCESS+1, M3
LENGTH	AGAIN!, AGAIN+1*, AGAIN+2
LOOP	KILL!, M1+1*
MSGCNT	MAIL+2, MAIL+3, KILL!, M3+2
NAME	PROCESS+1*!
POP	TAPE+4, MAIL+1, KILL!
PPIEN	TAPE+1, TAPE+2, TAPE+3, LOAD+2, LOAD+5, PROCESS+1, PROCESS+2, KILL!
RECCNT	LOAD+4, LOAD+5, AGAIN, AGAIN+2, MAIL+2, MAIL+3, KILL!, M1+1*
RECORD	PROCESS+2, AGAIN!, AGAIN+1, AGAIN+2
SN	LOAD+1*, LOAD+2, KILL!
STUB	PROCESS+2*, AGAIN!, AGAIN+2
U	TAPE+1, TAPE+2, LOAD+2, PROCESS+1
X	KILL!, M1+1*
XMDUZ	KILL!, M3+2*
XMSUB	LOAD+2, LOAD+3, KILL!, M3+1*
XMTEXT	KILL!, M3+2*
XMY	KILL!
XMY("XXX@Q-TAB.DOMAIN.EXT"	M3*
Y	TAPE+2, TAPE+3, KILL!