[Info-vax] RECALL command

[Brian Schenkenberger]

On 2023-06-22 17:35:28 +0000, Chris Townley said:

> Just being playing with a routine to squirrel away the command buffer 
> on logout, which be quite useful after a system maintenance session.
> 
> However when run in a command procedure, it just doesn't produce anything.
> 
> Is this normal?
> 
> BTW on E9.2-1

Set the procedure level to 0 in your command procedure before executing 
the RECALL commands.

File PROCLVL0.MAR is:

	.TITLE	PROCLVL0
	.IDENT	"V01.0 %2023.185"

	$SSDEF

	.ENTRY	GO,0
	$CMEXEC_S	routin	= PROCLVL0
	RET

	.ENTRY	PROCLVL0,0

	MOVAB	@#CTL$AG_CLIDATA,R0		; get the base of CLI data region
	MOVL	PPD$L_PRC(R0),R0		; add address of CLI own storage
	CLRW	PRC_W_PROCLEVEL(R0)	; zap current DCL procedure level
	MOVL	#SS$_NORMAL,R0
	RET

	.END	GO

$ MACRO PROCLVL0
$ LINK/SYSEXE PROCLVL0,SYS$LOADABLE_IMAGES:DCLDEF.STB


File LOGOUT_SAVE_RECALL.COM is:

$ RUN PROCLVL0
$ RECALL/ALL
$ RECALL/OUTPUT=RECALL.BUFFER
$ LOGOUT/FULL

Don't muck about in DCL too much after you've zapped its procedure level.