.; inl.cmd - insert program into library
.; p1	object name					[camelot,castle]foo
.; p2	object purpose					IND_written_in_RPG
.; p3	library name (full)				silly.olb
.; p4	library purpose					scare_bezeredi
.; #1	cleanup commands file
.; #2	backout commands file
.; #3	requirements file
.;
	.enable substitution
	.enable escape
	.data #3 you will insert 'p1'.obj into 'p3'.olb
	@ini ...lbr $lbr DEC_program_librarian
	@inn 'p3' 'p4'
.retry:
.;	.test p1 "]"
.;	.sets modnam p1[1+'<strlen>':*]
.;	lbr 'p3'/de:'modnam'
	lbr 'p3'/rp='p1'
	.if <exstat> = <succes> .exit <succes>
	; PROBLEM -- I can''t insert 'p1' into 'p3' library
	; 'p1' is for 'p2'
	; library 'p3' is for 'p4'
	.asks junk type <ESCAPE> to continue regardless, <RETURN> to retry
	.ift <escape> .goto banzai
	.pause
	.goto retry
.banzai:
