The steps are as follows:
1. create global
For I=1:1:200 Set ^ABC(I)=""
For I=1:1:200 Set ^XYZ(I)=""
For I=1:1:100 Kill ^ABC(I)
2. create ZJRNFILT
ZJRNFILT(jid,dir,glo,type,restmode,addr,time) /*Filter*/
Set restmode=1 /*Return 1 for restore*/
If glo["^ABC",type="K" Set restmode=0 /*except if a kill on ^ABC*/
Quit
;
3. restore