>>-ISREDIT--NUMBER----------------------------------------------> (1) .-+-STD---+-----. .-ON-. | '-COBOL-' | >--+-+----+--+---------------+--+---------+-+------------------>< | +-STD COBOL-----+ '-DISPLAY-' | | +-NOSTD---------+ | | +-NOCOBOL-------+ | | '-NOSTD NOCOBOL-' | '-OFF------------------------------------'
>>-ISREDIT--(var1,var2)--=--NUMBER-----------------------------><
>>-ISREDIT--NUMBER--=-------------------------------------------> >--+----+--+-----+--+---------+--+-----+--+-------+-------------> '-ON-' '-STD-' '-DISPLAY-' '-OFF-' '-COBOL-' >--+------------+--+-------+--+---------+--+----------------+-->< '-STD--COBOL-' '-NOSTD-' '-NOCOBOL-' '-NOSTD--NOCOBOL-'