.;
.;----------------------------------------------------------------------------
.;
.; CMD-file:	R P T W E E K
.;
.; Purpose:	Generating Summary Report of Last Week's Error Log. 
.;
.; Author:	Jan H. Belgraver
.;
.; Date:	14-NOV-84
.;
.; Version:	1.4	10-Jun-87
.;
.; Description:	Switches used:
.; 		/Format:Brief
.; 		/Type:All
.; 		/Date:Previous:7
.; 		/Device:All
.; 		/Packet:*:*
.; 		/Width:wide
.;
.; Calls to:	PIP,	REM,	RPT,	SRD
.;		P16L3, P16L9 IN BIOREGAN.CLB
.;
.; Modified by:	Jan H. Belgraver	17-JAN-86	JB01	V1.1
.;		Layout before inserting in BIOREGAN.CLB
.;
.;		Jan H. Belgraver	18-Jun-86	JB02	V1.2
.;		1. Pre- and postfix RPT list file with escape-sequences for
.;		printer control.
.;		2. Selectively delete list files with SRD.
.;
.;		Jan H. Belgraver	2-SEP-86	JB03	V1.3
.;
.;		Jan H. Belgraver	10-Jun-87	JB04	V1.4
.;		Fetch P16L3.CMD resp. P16L9.CMD from BIOREGAN.CLB
.;----------------------------------------------------------------------------
.;
.;

.enable	substitution
;
; Generating Summary Report of Last Week's Error Log 
;
;		B U S Y . . .
;
.enable	quiet
.ifnins	RPT	INS $RPT/TASK=...RPT
.;
	RPT	RPTWEEK.LST=/REPORT:WEEK
	SRD 	RPTWEEK/NA/WB/NOLI					! JB02
.;
.;	Get printer set/reset escape-sequences in files.
	@[5,104]BIOREGAN/lb:P16L3					! JB04
	.sets	PREFIL	$PRSET						! JB02
	@[5,104]BIOREGAN/lb:P16L9					! JB04
	.sets	PSTFIL	$PRSET						! JB02
.;
	PIP	RPTWEEK.LST='PREFIL'/RE/NV				! JB02
	PIP	RPTWEEK.LST=RPTWEEK.LST;-1/AP	! Append to prefix file	  JB02
	PIP	RPTWEEK.LST='PSTFIL'/AP		! Append postfix file	  JB02
	PIP	RPTWEEK.LST/PU/NM					! JB03
.;
	.if	<EXSTAT> eq 1	PRI TT4:/NOFL=RPTWEEK.LST
.;
	SRD	RPTWEEK.LST;*/SD/MI					! JB02
	PIP	'PREFIL';*,'PSTFIL';*/DE/NM				! JB02
.;
	REM RPT
	.disable display
.exit