 |
GnuCOBOL
2.0
A free COBOL compiler
|
|
GnuCOBOL
2.0
A free COBOL compiler
|
Functions | |
| CB_FLAG_RQ (cb_stack_size, 0,"stack-size", 255, 1, _("Define PERFORM stack size\n\t\t\t- Default : 255")) CB_FLAG_RQ(cb_if_cutoff | |
| if | _ ("Define cutoff depth for IF statements\n\t\t\t- Default : 3")) CB_FLAG_RQ(cb_ebcdic_sign |
| if | _ ("Define display sign representation\n\t\t\t- ASCII or EBCDIC (Default : machine native)")) CB_FLAG_RQ(cb_fold_copy |
| if fold | _ ("Fold COPY subject to value\n\t\t\t- UPPER or LOWER (Default : no transformation)")) CB_FLAG_RQ(cb_fold_call |
| if fold fold | _ ("Fold PROGRAM-ID, CALL, CANCEL subject to value\n\t\t\t- UPPER or LOWER (Default : no transformation)")) CB_FLAG_RQ(cb_default_byte |
| if fold fold | _ ("Initialize fields without VALUE to decimal value\n\t\t\t- 0 to 255 (Default : initialize to picture)")) CB_FLAG_NQ(1 |
| if fold fold | _ ("Intrinsics to be used without FUNCTION keyword\n\t\t\t- ALL or intrinsic function name (,name,...)")) CB_FLAG(cb_flag_static_call |
| if fold fold static | _ ("Output static function calls for the CALL statement")) CB_FLAG(cb_flag_computed_goto |
| if fold fold static computed | _ ("Generate computed goto C statements")) CB_FLAG(cb_flag_alt_ebcdic |
| if fold fold static computed alternate | _ ("Use restricted ASCII to EBCDIC translate")) CB_FLAG(cb_flag_extra_brace |
| if fold fold static computed alternate extra | _ ("Generate extra braces in generated C code")) CB_FLAG(cb_flag_correct_numeric |
| if fold fold static computed alternate extra correct | _ ("Attempt correction of invalid numeric display items")) CB_FLAG(cb_flag_stack_on_heap |
| if fold fold static computed alternate extra correct stack on | _ ("PERFORM stack allocated on heap")) CB_FLAG(cb_flag_trace |
| if fold fold static computed alternate extra correct stack on | _ ("Generate trace code\n\t\t\t- Executed SECTION/PARAGRAPH")) CB_FLAG(cb_flag_traceall |
| if fold fold static computed alternate extra correct stack on | _ ("Generate trace code\n\t\t\t- Executed SECTION/PARAGRAPH/STATEMENTS\n\t\t\t- Turned on by -debug")) CB_FLAG(cb_flag_syntax_only |
| if fold fold static computed alternate extra correct stack on syntax | _ ("Syntax error checking only; don't emit any output")) CB_FLAG(cb_flag_debugging_line |
| if fold fold static computed alternate extra correct stack on syntax debugging | _ ("Enable debugging lines\n\t\t\t- 'D' in indicator column or floating >>D")) CB_FLAG(cb_flag_source_location |
| if fold fold static computed alternate extra correct stack on syntax debugging source | _ ("Generate source location code\n\t\t\t- Turned on by -debug/-g/-ftraceall")) CB_FLAG(cb_flag_implicit_init |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit | _ ("Automatic initialization of the Cobol runtime system")) CB_FLAG(cb_flag_stack_check |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack | _ ("PERFORM stack checking\n\t\t\t- Turned on by -debug or -g")) CB_FLAG(cb_flag_syntax_extension |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax | _ ("Allow syntax extensions\n\t\t\t- eg. Switch name SW1, etc.")) CB_FLAG(cb_flag_write_after |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | _ ("Use AFTER 1 for WRITE of LINE SEQUENTIAL\n\t\t\t- Default : BEFORE 1")) CB_FLAG(cb_flag_mfcomment |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | _ ("'*' or '/' in column 1 treated as comment\n\t\t\t- FIXED format only")) CB_FLAG(cb_flag_acucomment |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | _ ("'$' in indicator area treated as '*',\n\t\t\t'|' treated as floating comment")) CB_FLAG(cb_flag_notrunc |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | _ ("Allow numeric field overflow\n\t\t\t- Non-ANSI behaviour")) CB_FLAG(cb_flag_odoslide |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | _ ("Adjust items following OCCURS DEPENDING\n\t\t\t- Requires implicit/explicit relaxed syntax")) CB_FLAG(cb_flag_apostrophe |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single | _ ("Use a single quote (apostrophe) for QUOTE\n\t\t\t- Default : double quote")) CB_FLAG(cb_flag_recursive |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive | _ ("Check recursive program call")) CB_FLAG(cb_flag_relaxed_syntax |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive relax | _ ("Relax syntax checking\n\t\t\t- eg. REDEFINES position")) CB_FLAG(cb_flag_optional_file |
Variables | |
| if | cutoff |
| if | sign |
| if fold | copy |
| if fold fold | call |
| if fold fold | defaultbyte |
| if fold fold | intrinsics |
| if fold fold static computed | goto |
| if fold fold static computed alternate | ebcdic |
| if fold fold static computed alternate extra | brace |
| if fold fold static computed alternate extra correct | numeric |
| if fold fold static computed alternate extra correct stack on | heap |
| if fold fold static computed alternate extra correct stack on | trace |
| if fold fold static computed alternate extra correct stack on | traceall |
| if fold fold static computed alternate extra correct stack on syntax | only |
| if fold fold static computed alternate extra correct stack on syntax debugging | line |
| if fold fold static computed alternate extra correct stack on syntax debugging source | location |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit | init |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack | check |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax | extension |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | after |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | mfcomment |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | acucomment |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | notrunc |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | odoslide |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single | quote |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive relax | syntax |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive relax optional | file |
| if fold fold _ | ( | "Fold PROGRAM- | ID, |
| CALL | , | ||
| CANCEL subject to value\n\t\t\t-UPPER or LOWER(Default:no transformation)" | |||
| ) |
| if fold fold _ | ( | "Initialize fields without VALUE to decimal value\n\t\t\t- 0 to 255 (Default : initialize to picture)" | ) |
| if fold fold _ | ( | "Intrinsics to be used without FUNCTION keyword\n\t\t\t- ALL or intrinsic function name (,name,...)" | ) |
| if fold fold static computed alternate extra _ | ( | "Generate extra braces in generated C code" | ) |
| if fold fold static computed alternate extra correct _ | ( | "Attempt correction of invalid numeric display items" | ) |
| if fold fold static computed alternate extra correct stack on _ | ( | "PERFORM stack allocated on heap" | ) |
| if fold fold static computed alternate extra correct stack on _ | ( | "Generate trace code\n\t\t\t- Executed SECTION/PARAGRAPH" | ) |
| if fold fold static computed alternate extra correct stack on _ | ( | "Generate trace code\n\t\t\t- Executed SECTION/PARAGRAPH/STATEMENTS\n\t\t\t- Turned on by -debug" | ) |
| if fold fold static computed alternate extra correct stack on syntax _ | ( | "Syntax error checking only; don't emit any output" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging _ | ( | "Enable debugging lines\n\t\t\t- 'D' in indicator column or floating >>D" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source _ | ( | "Generate source location code\n\t\t\t- Turned on by -debug/-g/-ftraceall" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit _ | ( | "Automatic initialization of the Cobol runtime system" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack _ | ( | "PERFORM stack checking\n\t\t\t- Turned on by -debug or -g" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax _ | ( | "Allow syntax extensions\n\t\t\t- eg. Switch name | SW1, |
| etc." | |||
| ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write _ | ( | "Use AFTER 1 for WRITE of LINE SEQUENTIAL\n\t\t\t- Default : BEFORE 1" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write _ | ( | "'*' or '/' in column 1 treated as comment\n\t\t\t- FIXED format only" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write _ | ( | "'$' in indicator area treated as '*' | , |
| \n\t\t\t'|'treated as floating comment" | |||
| ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write _ | ( | "Allow numeric field overflow\n\t\t\t- Non-ANSI behaviour" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write _ | ( | "Adjust items following OCCURS DEPENDING\n\t\t\t- Requires implicit/explicit relaxed syntax" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single _ | ( | "Use a single quote (apostrophe) for QUOTE\n\t\t\t- Default : double quote" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive _ | ( | "Check recursive program call" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive relax _ | ( | "Relax syntax checking\n\t\t\t- eg. REDEFINES position" | ) |
| CB_FLAG_RQ | ( | cb_stack_size | , |
| 0 | , | ||
| "stack-size" | , | ||
| 255 | , | ||
| 1 | , | ||
| _("Define PERFORM stack size\n\t\t\t- Default : 255") | |||
| ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write acucomment |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write after |
| if fold fold static computed alternate extra brace |
| if fold fold static call |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive check |
Referenced by cb_build_move().
| if fold copy |
Referenced by cb_to_cname().
| if cutoff |
| if fold fold defaultbyte |
| if fold fold static computed alternate ebcdic |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax extension |
Referenced by process_filename().
| if fold fold static computed goto |
| if fold fold static computed alternate extra correct stack on heap |
| if fold fold intrinsics |
Referenced by cb_emit_accept(), cb_emit_display(), cb_gen_field_accept(), cb_load_conf(), output_stmt(), and switch_to_buffer().
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write mfcomment |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write notrunc |
| if fold fold static computed alternate extra correct numeric |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write odoslide |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single quote |
| if sign |
Referenced by cb_build_binary_picture(), cb_emit_call(), cob_alloc_field(), cob_cmp_all(), cob_cmp_packed(), cob_decimal_do_round(), cob_decimal_get_binary(), cob_decimal_get_display(), cob_decimal_get_ieee128dec(), cob_decimal_get_ieee64dec(), cob_decimal_get_packed(), cob_decimal_pow(), cob_decimal_set_display(), cob_decimal_set_double(), cob_decimal_set_ieee128dec(), cob_decimal_set_ieee64dec(), cob_decimal_set_packed(), cob_display_get_int(), cob_display_get_long_long(), cob_intr_annuity(), cob_intr_exp10(), cob_intr_integer(), cob_intr_numval(), cob_intr_numval_c(), cob_is_numeric(), cob_mod_or_rem(), cob_move_alphanum_to_display(), cob_move_alphanum_to_edited(), cob_move_binary_to_binary(), cob_move_binary_to_display(), cob_move_display_to_alphanum(), cob_move_display_to_binary(), cob_move_display_to_display(), cob_move_display_to_edited(), cob_move_display_to_packed(), cob_move_edited_to_display(), cob_move_packed_to_display(), cob_mpf_sin(), cob_packed_get_int(), cob_packed_get_long_long(), output_bin_field(), output_call(), output_call_by_value_args(), ppp_set_value(), scan_define_options(), scan_floating_numeric(), and scan_numeric().
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive relax syntax |
| if fold fold static computed alternate extra correct stack on trace |
| if fold fold static computed alternate extra correct stack on traceall |
1.8.3.1 
