version	U12.1.00
uid	rexx.u1-1784908807-0
impl	error
global	5
	0,000005,RexxActive,0
	1,000005,RexxVar,1
	2,000005,RexxSet,2
	3,000005,RexxDrop,2
	4,000005,RexxAll,0

proc RexxActive
	local	0,000000,callout
	con	0,010000,7,162,145,170,170,166,141,162
	con	1,010000,1,141
	con	2,010000,29,122,145,170,170,040,145,162,162,157,162,072,040,116,157,040,105,130,105,103,040,151,163,040,141,143,164,151,166,145
	declend
	filen	rexx.icn
	line	55
	colm	11
	synt	any
	mark	L1
	line	56
	colm	4
	synt	ifelse
	mark	L2
	pnull
	var	0
	str	0
	str	1
	line	56
	colm	14
	synt	any
	invoke	2
	str	2
	line	56
	colm	31
	synt	any
	lexeq
	unmark
	line	57
	colm	7
	synt	any
	pfail
	goto	L3
lab L2
	mark	L4
	line	58
	colm	16
	synt	any
	keywd	null
	line	58
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
lab L3
	line	56
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	63
	colm	1
	synt	any
	pfail
	end
proc RexxVar
	local	0,001000,var
	local	1,000020,result
	local	2,000000,callout
	local	3,000000,write
	local	4,000000,runerr
	con	0,010000,7,162,145,170,170,166,141,162
	con	1,002000,1,1
	con	2,010000,1,075
	con	3,002000,1,2
	con	4,002000,1,0
	con	5,002000,1,4
	con	6,010000,4,122,145,170,170
	con	7,010000,12,122,145,170,170,040,145,162,162,157,162,072,040
	con	8,002000,3,500
	declend
	line	65
	colm	11
	synt	any
	mark	L1
	line	68
	colm	4
	synt	if
	mark0
	mark	L2
	pnull
	var	1
	var	2
	str	0
	var	0
	line	68
	colm	29
	synt	any
	invoke	2
	line	68
	colm	19
	synt	any
	asgn
	unmark
	efail
lab L2
	pnull
	unmark
	line	68
	colm	52
	synt	any
	pfail
	line	68
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	line	69
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	1
	int	1
	line	69
	colm	13
	synt	any
	subsc
	str	2
	line	69
	colm	17
	synt	any
	lexeq
	unmark
	mark	L4
	pnull
	var	1
	int	3
	int	4
	line	69
	colm	44
	synt	any
	synt	any
	sect
	line	69
	colm	29
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	69
	colm	4
	synt	endif
	unmark
lab L3
	mark	L5
	line	75
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	1
	int	1
	dup
	int	5
	line	75
	colm	15
	synt	any
	plus
	synt	any
	sect
	str	6
	line	75
	colm	20
	synt	any
	lexne
	unmark
	pnull
	var	1
	pnull
	str	7
	var	1
	line	75
	colm	60
	synt	any
	cat
	line	75
	colm	43
	synt	any
	asgn
	line	75
	colm	4
	synt	endif
	unmark
lab L5
	mark	L6
	line	76
	colm	4
	synt	if
	mark0
	pnull
	line	76
	colm	7
	synt	any
	keywd	error
	int	4
	line	76
	colm	14
	synt	any
	numeq
	unmark
	var	3
	line	76
	colm	29
	synt	any
	keywd	errout
	var	1
	line	76
	colm	28
	synt	any
	invoke	2
	line	76
	colm	4
	synt	endif
	unmark
lab L6
	mark	L7
	var	4
	int	8
	var	1
	line	77
	colm	10
	synt	any
	invoke	2
	unmark
lab L7
	pnull
	line	78
	colm	1
	synt	any
	pfail
	end
proc RexxSet
	local	0,001000,var
	local	1,001000,value
	local	2,000020,result
	local	3,000000,callout
	local	4,000000,type
	local	5,000000,write
	local	6,000000,runerr
	con	0,010000,7,162,145,170,170,163,145,164
	con	1,010000,6,163,164,162,151,156,147
	con	2,002000,1,1
	con	3,002000,1,4
	con	4,010000,4,122,145,170,170
	con	5,010000,12,122,145,170,170,040,145,162,162,157,162,072,040
	con	6,002000,1,0
	con	7,002000,3,500
	declend
	line	80
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	str	0
	var	0
	var	1
	line	83
	colm	21
	synt	any
	invoke	3
	line	83
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	84
	colm	4
	synt	ifelse
	mark	L3
	pnull
	var	4
	var	2
	line	84
	colm	11
	synt	any
	invoke	1
	str	1
	line	84
	colm	20
	synt	any
	lexeq
	unmark
	mark	L5
	line	85
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	2
	int	2
	dup
	int	3
	line	85
	colm	18
	synt	any
	plus
	synt	any
	sect
	str	4
	line	85
	colm	23
	synt	any
	lexne
	unmark
	pnull
	var	2
	pnull
	str	5
	var	2
	line	85
	colm	63
	synt	any
	cat
	line	85
	colm	46
	synt	any
	asgn
	line	85
	colm	7
	synt	endif
	unmark
lab L5
	mark	L6
	line	86
	colm	7
	synt	if
	mark0
	pnull
	line	86
	colm	10
	synt	any
	keywd	error
	int	6
	line	86
	colm	17
	synt	any
	numeq
	unmark
	var	5
	line	86
	colm	32
	synt	any
	keywd	errout
	var	2
	line	86
	colm	31
	synt	any
	invoke	2
	line	86
	colm	7
	synt	endif
	unmark
lab L6
	var	6
	int	7
	var	2
	line	87
	colm	13
	synt	any
	invoke	2
	goto	L4
lab L3
	mark	L7
	var	2
	line	89
	colm	9
	synt	any
	pret
lab L7
	synt	any
	pfail
lab L4
	line	84
	colm	4
	synt	endifelse
	unmark
lab L2
	pnull
	line	90
	colm	1
	synt	any
	pfail
	end
proc RexxDrop
	local	0,001000,var
	local	1,001000,value
	local	2,000020,result
	local	3,000000,callout
	local	4,000000,type
	local	5,000000,write
	local	6,000000,runerr
	con	0,010000,8,162,145,170,170,144,162,157,160
	con	1,010000,6,163,164,162,151,156,147
	con	2,002000,1,1
	con	3,002000,1,4
	con	4,010000,4,122,145,170,170
	con	5,010000,12,122,145,170,170,040,145,162,162,157,162,072,040
	con	6,002000,1,0
	con	7,002000,3,500
	declend
	line	92
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	str	0
	var	0
	var	1
	line	95
	colm	21
	synt	any
	invoke	3
	line	95
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	96
	colm	4
	synt	ifelse
	mark	L3
	pnull
	var	4
	var	2
	line	96
	colm	11
	synt	any
	invoke	1
	str	1
	line	96
	colm	20
	synt	any
	lexeq
	unmark
	mark	L5
	line	97
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	2
	int	2
	dup
	int	3
	line	97
	colm	18
	synt	any
	plus
	synt	any
	sect
	str	4
	line	97
	colm	23
	synt	any
	lexne
	unmark
	pnull
	var	2
	pnull
	str	5
	var	2
	line	97
	colm	63
	synt	any
	cat
	line	97
	colm	46
	synt	any
	asgn
	line	97
	colm	7
	synt	endif
	unmark
lab L5
	mark	L6
	line	98
	colm	7
	synt	if
	mark0
	pnull
	line	98
	colm	10
	synt	any
	keywd	error
	int	6
	line	98
	colm	17
	synt	any
	numeq
	unmark
	var	5
	line	98
	colm	32
	synt	any
	keywd	errout
	var	2
	line	98
	colm	31
	synt	any
	invoke	2
	line	98
	colm	7
	synt	endif
	unmark
lab L6
	var	6
	int	7
	var	2
	line	99
	colm	13
	synt	any
	invoke	2
	goto	L4
lab L3
	mark	L7
	var	2
	line	101
	colm	9
	synt	any
	pret
lab L7
	synt	any
	pfail
lab L4
	line	96
	colm	4
	synt	endifelse
	unmark
lab L2
	pnull
	line	102
	colm	1
	synt	any
	pfail
	end
proc RexxAll
	local	0,000020,result
	local	1,000020,allofthem
	local	2,000020,nextvar
	local	3,000000,table
	local	4,000000,callout
	local	5,000000,write
	local	6,000000,runerr
	local	7,000000,RexxVar
	con	0,010000,8,162,145,170,170,156,145,170,164
	con	1,002000,1,1
	con	2,010000,1,075
	con	3,002000,1,4
	con	4,010000,4,122,145,170,170
	con	5,010000,12,122,145,170,170,040,145,162,162,157,162,072,040
	con	6,002000,1,0
	con	7,002000,3,500
	con	8,002000,1,2
	declend
	line	104
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	3
	line	116
	colm	22
	synt	any
	invoke	0
	line	116
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	117
	colm	4
	synt	while
	mark0
	pnull
	var	2
	var	4
	str	0
	line	117
	colm	28
	synt	any
	invoke	1
	line	117
	colm	18
	synt	any
	asgn
	unmark
	mark	L3
	mark	L6
	line	118
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	2
	int	1
	line	118
	colm	17
	synt	any
	subsc
	str	2
	line	118
	colm	21
	synt	any
	lexne
	unmark
	mark	L7
	line	119
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	2
	int	1
	dup
	int	3
	line	119
	colm	22
	synt	any
	plus
	synt	any
	sect
	str	4
	line	119
	colm	27
	synt	any
	lexne
	unmark
	pnull
	var	0
	pnull
	str	5
	var	2
	line	120
	colm	37
	synt	any
	cat
	line	120
	colm	20
	synt	any
	asgn
	line	119
	colm	10
	synt	endif
	unmark
lab L7
	mark	L8
	line	121
	colm	10
	synt	if
	mark0
	pnull
	line	121
	colm	13
	synt	any
	keywd	error
	int	6
	line	121
	colm	20
	synt	any
	numeq
	unmark
	var	5
	line	121
	colm	35
	synt	any
	keywd	errout
	var	0
	line	121
	colm	34
	synt	any
	invoke	2
	line	121
	colm	10
	synt	endif
	unmark
lab L8
	mark	L9
	var	6
	int	7
	var	0
	line	122
	colm	16
	synt	any
	invoke	2
	unmark
lab L9
	line	123
	colm	10
	synt	any
	pfail
	line	118
	colm	7
	synt	endif
	unmark
lab L6
	mark	L10
	pnull
	var	2
	pnull
	var	2
	int	8
	int	6
	line	125
	colm	27
	synt	any
	synt	any
	sect
	line	125
	colm	15
	synt	any
	asgn
	unmark
lab L10
	pnull
	pnull
	var	1
	var	2
	line	126
	colm	16
	synt	any
	subsc
	var	7
	var	2
	line	126
	colm	36
	synt	any
	invoke	1
	line	126
	colm	26
	synt	any
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	117
	colm	4
	synt	endwhile
	unmark
lab L2
	mark	L11
	mark	L12
	var	1
	line	128
	colm	4
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	129
	colm	1
	synt	any
	pfail
	end
