SET ACCOUNTING/FILE:ACNTRN.SYS;0
SHOW ACCOUNTING/DATATRIEVE:ACNTRN.SYS;-1 ACCOUNT.SEQ
PIP ACNTRN.SYS/PU
DEF @ACCOUNT.DEF
IFL ACCOUNT.DOM=ACCOUNT.SEQ
PIP ACCOUNT.SEQ;*,ACCOUNT.DOM;*/PU