On 29/04/2023 6:29 am, Schmitt, Michael wrote:
I have an input file that contains thousands of records. They are in groups:
header record, then a bunch of segments all for one database name, then another
header, records for another database. But the same database can appear more
than once in the input.
Have you considered Java?
This is untested, and I don't know File Manager so I'm not 100% sure of
the logic or even the field definitions, but it should give you the
idea. Run under JZOS Batch Launcher so JCL DDs are available.
A complete Java program:
import java.io.*;
import java.util.*;
import com.ibm.jzos.*;
import com.ibm.jzos.fields.*;
import com.ibm.jzos.fields.daa.*;
public class App
{
public static void main(String[] args) throws IOException
{
BinaryUnsignedIntField keyField = new BinaryUnsignedIntField(0, 2);
BinaryUnsignedIntField countField = new
BinaryUnsignedIntField(4, 4);
StringField ddField = new StringField(8, 8);
byte[] nextHeader = null;
Map<String, OutEntry> outEntries = new HashMap<>();
RecordReader in = null;
try
{
in = RecordReader.newReaderForDD("INPUT");
int bytesRead = 0;
byte[] record = new byte[in.getLrecl()];
while ((bytesRead = in.read(record)) >= 0)
{
if (keyField.getInt(record) == 0)
{
nextHeader = Arrays.copyOfRange(record, 0, bytesRead);
}
else
{
String ddname = ddField.getString(record);
OutEntry out = outEntries.get(ddname);
if (out == null)
{
out = new OutEntry(ddname);
outEntries.put(ddname, out);
out.writer.write(nextHeader);
}
out.count++;
countField.putInt(out.count, record);
out.writer.write(record, 0, bytesRead);
}
}
}
finally
{
if (in != null)
in.close();
for (OutEntry entry : outEntries.values())
{
entry.writer.close();
}
}
}
private static class OutEntry
{
OutEntry(String ddname) throws IOException
{
writer = RecordWriter.newWriterForDD(ddname);
}
int count = 0;
RecordWriter writer;
}
}
--
Andrew Rowley
Black Hill Software
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
