.enable substitution
.sets cli <cli>
.if cli ne "DCL" set /dcl=ti:
.testfile fcspre.mac
.if <filerr> eq 1 .goto 210
.ifnins ...pip ins $pip
mcr pip sy:/cd=[50,10]fcspre.mac
.210:
.sets uic <uic>
.parse uic "," group prog
del 'group',24]*.obj;*,'group',34]*.lst;*
mcr mac 'group',24]DIRFND,'group',34]DIRFND/-SP='uic'micro,FCSPRE,DIRFND
.if <exstat> ne 1 .goto end
set def [1,24]
del pirbld.*;*,[3,54]pir.tsk;*,[1,34]pir.map;*
ass sy: mp:
.sets debug ""
.ASK YN Do you want ODT included in the task build
.ift yn .sets debug "/da"
.open pirbld.cmd
.enable data
;
; TKB BUILD FILE FOR pir
; ON AN RSX-11M-PLUS SYSTEM
; USING SYSLIB
; CREATED BY SYSGEN3.CMD VERSION 03.01
;
SY:[3,54]pir/-SG/FU/-FP/CP/MM'DEBUG',MP:[1,34]pir/-SP=
[1,24]pirBLD/MP
IDENT=17.00
TASK=...pir
STACK=64
UNITS=6
ASG=TI:1:2,SY:5
PAR=GEN:0:0
EXTTSK=4096
PRI=50
TSKV=SSTTAB:7
;
; TO MAKE PRESERVATION OF CREATION DATE THE DEFAULT, UNCOMMENT THE NEXT LINE
;GBLPAT=PIP:$DEFSW:1
;
; PATCH THE LUN USED BY GERRM
;
GBLPAT=ERROR:.EOLUN:5
;
; PUT THE LINE PRINTER WIDTH (OCTAL) AFTER LPTLEN: IN THE FOLLOWING COMMAND
; 120 OCTAL FOR 80 COLUMN PRINTER, 204 OCTAL FOR 132 COLUMN PRINTER
;
GBLPAT=PIP:LPTLEN:204
;
; WHEN COPYING FILES TO THE LINE PRINTER, PIP WILL ISSUE A FORM
; FEED BEFORE COPYING THE FILE. IF THIS IS UNDESIRABLE, REMOVE
; THE COMMENT FROM THE NEXT GBLPAT
;
;GBLPAT=PIPCPY:.LPCHK+10:410
;
; MODULE RWLONG IS NOT USED SO DO NOT INCLUDE IT
;
GBLDEF=..RWLG:0
/
.disable data
.close
.open pirbld.odl
.enable data
;
; TKB ODL FILE FOR pir
; ON AN RSX-11M-PLUS SYSTEM
; USING SYSLIB
; CREATED BY SYSGEN3.CMD VERSION 03.01
;
	.ROOT	FCS-PIP-sy:[1,1]SYSLIB/DL
;
;	PUT ALL THE COMMON PIP MODULES AND FCS IN THE ROOT
;
FCS:	.FCTR	CMDS-FCSSEG-ERRSEG
;
;	THIS IS THE ROOT OF PIP
;
CMDS:	.FCTR	CMDS1-CMDS2-CMDS3
CMDS1:	.FCTR	[1,24]PIP/LB:PIP:PIPSBR:.CSI3:WLDSUB
CMDS2:	.FCTR	[1,24]PIPUTL/LB:HDRSYM:WLDPRS:MVSTRG:IOCSI:DFLTNM
CMDS3:	.FCTR	sy:[1,1]SYSLIB/LB:RWFSR2:EDTMG:ASCPPN:.CSI2
;
;	BUILD THE FCS CO-TREE
;
FCSSEG:	.FCTR	FCSRT-FCSB1-FCSB2
;
;	THIS IS THE ROOT OF THE CO-TREE
;
FCSRT:	.FCTR	FCSR1A-FCSR1B-FCSR1C-FCSR1D
	.NAME	FCSROT
FCSR1A:	.FCTR	FCSROT-sy:[1,1]SYSLIB/LB:XQIOU:XQIOI:WAITI:COMMON
FCSR1B:	.FCTR	sy:[1,1]SYSLIB/LB:PARSE:PARSDV:ANSPAD:BKRG:DIRECT
FCSR1C:	.FCTR	sy:[1,1]SYSLIB/LB:RETADR:RDWAIT:WTWAIT:BIGBUF:RWBLK
FCSR1D:	.FCTR	sy:[1,1]SYSLIB/LB:EOFCHK:WATNOD:WATSET:CKALOC
;
;	THIS IS THE "OPEN/CLOSE" LEG
;
FCSB1:	.FCTR	FCSB01-FCSB02
	.NAME	FCSBR1
FCSB01:	.FCTR	FCSBR1-sy:[1,1]SYSLIB/LB:OPFNB:CLOSE:DELETE-sy:'group',24]DIRFND
FCSB02:	.FCTR	sy:[1,1]SYSLIB/LB:UDIREC:ASSLUN:FINIT
;
;	THIS IS THE "GET/PUT" LEG
;
FCSB2:	.FCTR	FCSB2A-FCSB2B
	.NAME	FCSBR2
FCSB2A:	.FCTR	FCSBR2-sy:[1,1]SYSLIB/LB:GETSQ:PUTSQ
FCSB2B:	.FCTR	sy:[1,1]SYSLIB/LB:PNTMRK:EXTEND
;
;	THIS LEG IS USED FOR ERROR PROCESSING
;
ERRSEG:	.FCTR	ERR1-ERR2
	.NAME	ERROR
; MODULE ERRANS IS NECESSARY TO REPORT AN ANSI TAPE 17 CHAR FILENAME FROM THE 
; FDB.  IF THIS MODULE IS TO BE INCLUDED, IT **MUST** FOLLOW ERRPRT (OR ERRPRT)
; IN ORDER FOR THE OVR PSECT "ANSERR" TO OVERLAY PROPERLY.
ERR1:	.FCTR	ERROR-[1,24]PIPUTL/LB:ERRTRP:ERRPRT:ERRANS
ERR2:	.FCTR	[1,24]PIPUTL/LB:FCSERR:GERRM:GTKNM-[1,24]PIP/LB:PIPMSG
;
;	NOW A DUMMY ROOT SECTION FOR THE PIP OVERLAYS
;
	.NAME	PIPROT
PIP:	.FCTR	PIPROT-CMDOV
CMDOV:	.FCTR	GCMLOV-CPYOV-DIROV-DELOV-RENOV-FREOV-DEFOV
;
;	THESE ARE THE PIP COMMAND OVERLAYS
;
	.NAME	GETCMD
GCMLOV:	.FCTR	GETCMD-[1,24]PIP/LB:PIPDSP:.GCML-GCML1
GCML1:	.FCTR	[1,24]PIPUTL/LB:MULCML-GCML2
GCML2:	.FCTR	sy:[1,1]SYSLIB/LB:EXST:.CSI1
	.NAME	PIPCPY
CPYOV:	.FCTR	PIPCPY-[1,24]PIP/LB:PIPCPY:PIPSB1-CPYSET-CPYCPY
	.NAME	SETUP
CPYSET:	.FCTR	SETUP-[1,24]PIP/LB:PIPCP1
	.NAME	COPY
CPYCPY:	.FCTR	COPY-[1,24]PIP/LB:PIPCP2:PIPBFM
	.NAME	PIPDIR
DIROV:	.FCTR	PIPDIR-[1,24]PIP/LB:PIPDIR-[1,24]PIPUTL/LB:HDRMG
	.NAME	PIPDEL
DELOV:	.FCTR	PIPDEL-[1,24]PIP/LB:PIPDEL
	.NAME	PIPREN
RENOV:	.FCTR	PIPREN-[1,24]PIP/LB:PIPREN:PIPPRO:PIPUNL:PIPSPL
	.NAME	PIPFRE
FREOV:	.FCTR	PIPFRE-[1,24]PIP/LB:PIPFRE:PIPTRN:PIPEOF
	.NAME	PIPDEF
DEFOV:	.FCTR	PIPDEF-[1,24]PIP/LB:PIPDEF
;
	.END
.disable data
.close
link @pirbld
.end:
set def 'uic'
set /'cli'=ti:
