       $set intlevel"4"
        working-storage section.
        	copy "javatypes.cpy".
       	linkage section.
        01 a usage jint.
        01 b usage jlong.
        01 c usage jdouble.
        01 d usage jfloat.
        01 e usage jboolean.
        01 f usage jshort.
        01 g usage jbyte.
        01 h usage jchar.
        01 lnk-string pic x(1000).
        procedure division using a,b,c,d,e,f,g,h.
		add 1 to a
		add 1 to b
		add 1 to c
		add 1 to d
		if e equals JNI-TRUE
			move JNI-FALSE to e
		else
			move JNI-TRUE to e
		end-if
		add 1 to f
		add 1 to g
		add 1 to h
		exit program returning 42.
