conf/normalize/csv_ff-peri.pl

sub csv { to('csv',@_) }

if ( rec('200','a') ) {

## 022

if ( ! rec('225','a') ) {
        csv('A',
                rec('11')
        );
}

csv('B',
        join_with('',
                uc( config() ),
                ' P',
                rec('000')
        )
);

csv('C',
        rec('101')
);


csv('D',
        rec('675','a')
);

csv('E',
        join_with(', ',
                rec('700', 'a'),
                rec('700', 'b')
        )
);

csv('F',
        rec('710','a')
);

csv('G',
        rec('710','c')
);

csv('H',
        lookup(
                sub { rec('530','a') },
                'nsk','bbaza',
                sub { rec('011','a') },
                sub { rec('11') },
        ) 
);

csv('I',
        rec('200','a')
);

csv('J',
        rec('200','d')
);

csv('K',
        rec('200','e')
);


csv('L',
        rec('532')
);


csv('M',
        join_with(' / ',
                rec('205','a'),
                rec('205','f')
        )
);

csv('N',
        rec('210','a')
);

csv('O',
        rec('210','c')
);

csv('P',
        rec('210','d')
);

csv('R',
        rec('215','d')
);

csv('S',
        rec('326')
);

csv('T',
        rec('207','a')
);

csv('U',
        rec('300')
);

csv('V',
        rec('610')
);

csv('W',
        join_with(', ',
                rec('702','a'),
                rec('702','b'),
        ),
);


csv('Z',
        join_with(' ',
                rec('990')
        )
);

csv('X',
        rec('991','a')
);

csv('Y',
        join_with(' ; ', 
                rec('992')
        )
);
}
1	sub csv { to('csv',@_) }
2
3	if ( rec('200','a') ) {
4
5	## 022
6
7	if ( ! rec('225','a') ) {
8	csv('A',
9	rec('11')
10	);
11	}
12
13	csv('B',
14	join_with('',
15	uc( config() ),
16	' P',
17	rec('000')
18	)
19	);
20
21	csv('C',
22	rec('101')
23	);
24
25
26	csv('D',
27	rec('675','a')
28	);
29
30	csv('E',
31	join_with(', ',
32	rec('700', 'a'),
33	rec('700', 'b')
34	)
35	);
36
37	csv('F',
38	rec('710','a')
39	);
40
41	csv('G',
42	rec('710','c')
43	);
44
45	csv('H',
46	lookup(
47	sub { rec('530','a') },
48	'nsk','bbaza',
49	sub { rec('011','a') },
50	sub { rec('11') },
51	)
52	);
53
54	csv('I',
55	rec('200','a')
56	);
57
58	csv('J',
59	rec('200','d')
60	);
61
62	csv('K',
63	rec('200','e')
64	);
65
66
67	csv('L',
68	rec('532')
69	);
70
71
72	csv('M',
73	join_with(' / ',
74	rec('205','a'),
75	rec('205','f')
76	)
77	);
78
79	csv('N',
80	rec('210','a')
81	);
82
83	csv('O',
84	rec('210','c')
85	);
86
87	csv('P',
88	rec('210','d')
89	);
90
91	csv('R',
92	rec('215','d')
93	);
94
95	csv('S',
96	rec('326')
97	);
98
99	csv('T',
100	rec('207','a')
101	);
102
103	csv('U',
104	rec('300')
105	);
106
107	csv('V',
108	rec('610')
109	);
110
111	csv('W',
112	join_with(', ',
113	rec('702','a'),
114	rec('702','b'),
115	),
116	);
117
118
119	csv('Z',
120	join_with(' ',
121	rec('990')
122	)
123	);
124
125	csv('X',
126	rec('991','a')
127	);
128
129	csv('Y',
130	join_with(' ; ',
131	rec('992')
132	)
133	);
134	}