$JOB ACCOUNT [1,1]
$SET /UIC=[1,6]
$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
$SET /UIC=[1,1]
$EOJ