Removing RPL from an account?

RPL can be removed from an account using the DataBasic program provided.

Cut & Paste the program into a Reality Item then compile and run it.

001 PERFORM 'SELECT /SYSFILES/RPL-NEWAC' RTNLIST RPL CAPTURING OUTPUT
002 PERFORM 'SAVE-LIST RPL.VERBS' PASSLIST RPL CAPTURING OUTPUT
003 PERFORM 'DELETE MD' PASSLIST RPL  CAPTURING OUTPUT
004 PERFORM 'SELECT /SYSFILES/NEWAC' RTNLIST VERBS CAPTURING OUTPUT
005 PERFORM 'SAVE-LIST VERBS' PASSLIST VERBS CAPTURING OUTPUT
006 PERFORM 'AND-LISTS VERBS RPL.VERBS' RTNLIST CVERBS CAPTURING OUTPUT
007 DATA '(MD)'
008 PERFORM 'COPY /SYSFILES/NEWAC ' PASSLIST CVERBS CAPTURING OUTPUT
009 PERFORM 'DELETE-LIST VERBS' CAPTURING OUTPUT
010 PERFORM 'DELETE-LIST RPL.VERBS' CAPTURING OUTPUT

Back to articles