/ 
oEdtk-2.1128
/ oEdtk::Infinite

NAME

oEdtk::Infinite - delegate to the oEUser Infinite record import

SYNOPSIS

use oEdtk::Infinite qw(import_cobol_X);

my $val = import_cobol_X( $line, $pos, $len );    # see oEUser::Infinite

DESCRIPTION

The Infinite record import is corporate; it lives in oEUser::Infinite. This module keeps the old oEdtk::Infinite name available to existing callers and forwards every function to the companion distribution, which is loaded on demand. When oEUser is not installed, the call fails with a clear message.

Every function below forwards its arguments to the same-named function in oEUser::Infinite and returns its result:

import_cobol_X, import_cobol_S9V9
is_entete, is_flux, is_ligne, is_option
id_ligne, is_asspri, record_values, extract_options
build_address, ED_adresse_payeur, EL_adresse_souscripteur, IG_adresse_cpam
ED_index_variables, ED_restitution, EL_restitution, EI_restitution
E7_adresse, E7_adresse_agence, E7_index_variables
compute_pic, compute_value, map_sub, sub_list

FUNCTIONS

import_cobol_X

my $value = import_cobol_X(\$line, $position, $length);

Import $length characters from $line at the 1-based $position, with the trailing spaces removed.

import_cobol_S9V9

my $value = import_cobol_S9V9(\$line, $position, $int_len, $frac_len);

Import a signed decimal Cobol field, int_len digits and frac_len decimals, from $line at $position.

is_entete

my $bool = is_entete(\$line);

True when the line is a header (ENTETE) record.

is_flux

my $bool = is_flux(\$line);

True when the line is a flux (FLUX) record.

is_ligne

my $bool = is_ligne(\$line);

True when the line is a detail (LIGNE) record.

is_option

my $bool = is_option(\$line);

True when the line is an option record.

id_ligne

my $id = id_ligne(\$line);

Return the two-character identifier of a detail line.

is_asspri

my $flag = is_asspri(\$line);

Return the associate/insured indicator of the line.

record_values

my @errors = record_values(\%record, \%map, \$line);

Populate %record by applying %map to $line, and return the list of errors (empty on success).

extract_options

my $options = extract_options(\$line);

Split an option line into its option list.

Every function forwards its arguments to the same-named function of the companion oEUser::Infinite, loaded on demand; a missing oEUser fails with a clear message.

AUTHOR

The oEdtk team.