	.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.SETS LI ""
	.SETS MP ""
	.IFNDF $SYSAC .ASK $SYSAC HAVE YOU INCORPORATED THE SYSTEM ACCOUNTING DATA BASES
	.IFT $SYSAC .SETF $LOGIT
	.IFF $SYSAC .ASK $LOGIT DO YOU WANT LOGON DATA SENT TO LOG...
	.IFNDF $RESLB .ASK $RESLB DO YOU WISH TO BUILD UPDATE WITH AN FCS RESIDENT LIBRARY
.10:	.IFDF $ASM .GOTO START
	.SETF $MAP
	.SETF $LIST
	.IFNDF $TKB .SETF $TKB
	.IFNDF $ASM .SETF $ASM
	.SETF $TKB
	.ASK $ASM ASSEMBLE
	.IFT $ASM .ASK $LIST LIST
	.IFT $LIST .SETS LI ",TI:"
.START:	.IFT $ASM PIP UPDATE.OBJ;*/DE/NM
	.IFT $ASM .OPEN UPDATEASM.CMD;1
	.IFT $ASM .DATA UPDATE'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.IFT $ASM .DATA SY:'UIC'UPDATE
	.IFT $ASM .CLOSE
	.IFT $ASM MAC @UPDATEASM
	.IFT $ASM PIP UPDATEASM.CMD;1/DE/NM
	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
	.IFT $TKB .ASK $MAP MAP
	.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP UPDATE.TSK;*/DE/NM
	.IFT $TKB .OPEN UPDATEBLD.CMD;1
	.IFT $TKB .DATA UPDATE.TSK;1/PR/MM/CP'MP'=UPDATE,MCR/LB:ACTFIL
	.IFT $TKB .DATA MCR/LB,LB0:[1,54]RSX11M.STB,[1,1]EXELIB/LB
	.IFT $TKB .DATA /
	.IFT $TKB .DATA PAR=GEN
	.IFT $TKB .IFT $RESLB .DATA LIBR=FCSRES:RO:6
	.IFT $TKB .DATA ASG=TI:1
	.IFT $TKB .DATA ASG=SY:2
	.IFT $TKB .DATA STACK=64
	.IFT $TKB .DATA TASK=...UPD
	.IFT $TKB .DATA ; IF ONE DOES NOT WANT TO INCORPORATE THE CHANGES TO SYSCM
	.IFT $TKB .DATA ; THAT ALLOW CPU TIME LOGGING TO OCCUR, ONE MAY STILL BUILD
	.IFT $TKB .DATA ; A VERSION OF UPDATE WHICH WILL EITHER BEHAVE AS BEFORE OR
	.IFT $TKB .DATA ; SEND OFF LOGON STATISTICS TO A TASK LOG...
	.IFT $TKB .IFF $SYSAC .IFF $LOGIT .DATA GBLDEF=$ACMSK:0	; DON"T SEND DATA TO LOG...
	.IFT $TKB .IFT $LOGIT .DATA GBLDEF=$ACMSK:200 ; SEND DATA TO LOG...
	.IFT $TKB .DATA PRI=70
	.IFT $TKB .DATA /
	.IFT $TKB .CLOSE
	.IFT $TKB TKB @UPDATEBLD
;	.IFT $TKB PIP UPDATEBLD.CMD;1/DE
.EEND:	;EOF UPDATE
