44 lines
573 B
Plaintext
44 lines
573 B
Plaintext
COMPILE ROUTINE MOVE_RDS_LAYER(Dummy)
|
|
ROWDEF (CHARSTR)
|
|
|
|
DECLARE SUBROUTINE SEND_INFO, SEND_DYN, Utility, msg
|
|
|
|
$INSERT RDS_LAYER_EQUATES
|
|
debug
|
|
|
|
OPEN 'BACK_RDS_LAYER' TO FileIn ELSE
|
|
GOTO Bail
|
|
END
|
|
|
|
OPEN 'RDS_LAYER' TO RDSLayer ELSE
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
SELECT FileIn
|
|
|
|
RecCnt = 0
|
|
Done = 0
|
|
LOOP
|
|
ReadNext LayerKey ELSE Done = 1
|
|
UNTIL Done
|
|
READ LayerRec FROM FileIn,LayerKey THEN
|
|
WRITE LayerRec ON RDSLayer,LayerKey THEN
|
|
RecCnt += 1
|
|
Send_Info(RecCnt)
|
|
|
|
END
|
|
END
|
|
|
|
REPEAT
|
|
|
|
|
|
|
|
*UNLOCK All
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|