1 /*
 2           call cobol_call_op(op_num,tagno);
 3 
 4           call cobol_call_op(op_num,tagno,tag1);
 5 
 6           call cobol_call_op$get_op(operator_struc_ptr);
 7 
 8                     declare (tagno,tag1) fixed bin , op_num fixed bin , operator_struc_ptr ptr;
 9 
10 */