[DOCUMENT]
INPUT=
FORMAT=
DESCRIPTION=
RECDATE=
DELETEINPUT=NO
NODE_ID=1
VOLUME_ID=1
[CBNTFLDR]
CABINET=
FOLDER=
[USER_DEFINITIONS]
Freq:Daily Application:
####
use strict;
use warnings;
use Text::CSV_XS;
my $file = "C:\\Users\\..\\Desktop\\reportlist.csv";
open my $fh, "<", $file or die "$file: $!";
my $csv = Text::CSV_XS->new ({
binary => 1, # Allow special character. Always set this
auto_diag => 1, # Report irregularities immediately
});
while (my $row = $csv->getline ($fh)) {
print "@$row\n";
}
close $fh;
##
##
Report Name Report Description Actual Filename Report Format Report Execution Frequency Cabinet Folder Application
GACCNTS MIS report csv Monthly DBNLRP GACCOUNT IDMS
IDEALSCT IDEALIncomingCreditTransfers NVSEPAORT.yyyymmddnn.01 txt Monthly DBNLNVRP IDEALSCT MINT
OVRSTPRJ OVERSTAP Rejected Transactions SEPAORT.yyyymmddnn.01 txt Monthly DBNLRP OVRSTPRJ RANSYS
NLACGLST AcceptGiroVolumeperAccount SEPAAGL.yyyymmdd.01 txt Monthly DBNLRP NLACGRVL MERVA
NLACGVLM AcceptGiroVolume SEPAAGV.yyyymmdd.01 txt Monthly DBNLRP NLACGRLS FMS
NVACGLST AcceptGiroVolumeperAccount NVSEPAAGL.yyyymmdd.01 txt Monthly DBNLNVRP NVACGRVL FMSFIN
NVACGVLM AcceptGiroVolume NVSEPAAGV.yyyymmdd.01 txt Monthly DBNLNVRP NVACGRLS DBCORAL