FORK Examples

FORK Examples

Example 1:

DEVNULL	INIT	"/dev/null"
.
MAIN	...........
	CALL	FORKSUB	;Record retrieval routine
	GOTO	MAIN
.
FORKSUB	FORK	DEVNULL,DEVNULL
	GOTO	FORKERR IF ZERO	;ZERO indicates failed
	RETURN	IF NOT OVER	;NOT OVER = Parent
CHILD	SPLOPEN	"PRTFILE","Q"	;OPEN the spool file
	PRINT	.............	;Actual PRINT routine
	SPLCLOSE
	SHUTDOWN		;terminate CHILD

Example 2:

DEVNULL	INIT	"/dev/null"
MAIN	CALL	FORKSUB	;Record retrieval routine
	GOTO	MAIN
.
FORKSUB
	FORK	DEVNULL,DEVNULL
	GOTO	FORKERR IF ZERO	;ZERO indicates failed
	CHAIN	"NEXTPROG"	:FORK continues until
	RETURN	IF NOT OVER	;NOT OVER = parent
	SHUTDOWN

PL/B Language Reference

FOR Examples

FORM Examples