;*** START OF DOCUMENT TRANSFER ***
.ENABLE SUBSTITUTION
.SETN N 1.
.OPEN INDEX.DAT
.LOOP:
.INC N
.ASKS WHO HIT CR OR ENTER DESTINATION STAFFS FOR DOCUMENT #'N'
.IF <STRLEN> EQ 0 .GOTO FIN
.DATA <n>'WHO' <#>'N'<>
.GOTO LOOP
.FIN:
.CLOSE INDEX.DAT
DXF DOC001.W11/TYPE:DOC=INDEX.DAT/TYPE:PM
BMP '<UIC>'
PIP INDEX.DAT;*/DE
TIM
;*** END OF DOCUMENT TRANSFER ***
