There is an excellent third-party tool that is perfect for performing the task you are describing. The product is called ADAREORG and it is made by CCA in Australia. It uses the ADABAS ADACMP module for the decompression and recompression of the data, so you do not need to be concerned about supportability by SAG if you decide to go this route.
You can perform various manipulations in the middle step after decompression. I have used this tool to remove fields and groups from the file, rearrange fields, add or remove fields from PE groups. and to create new fields with pre-populated values. This product simplified the whole process and is worth its cost as a labor-reducing tool, let alone performance improvements from changes to data storage.
It says there that each record is preceded by a 2 byte record length and 2 bytes of zeroes.
I did ADACMP DECOMPRESS without the ISN number, and I am working on a VSE machine. I then FTP it to a unix machine. When I do a dump of the data, it starts from the first field, there is no recordlength or zero bytes preceding the data.
Any explanations? Is this a glitch in the documentation? Does it act slighly differently on VSE? Or have I missed something else?
It says there that each record is preceded by a 2 byte record length and 2 bytes of zeroes.
I did ADACMP DECOMPRESS without the ISN number, and I am working on a VSE machine. I then FTP it to a unix machine. When I do a dump of the data, it starts from the first field, there is no recordlength or zero bytes preceding the data.
Any explanations? Is this a glitch in the documentation? Does it act slighly differently on VSE? Or have I missed something else?
I need to transfer an adabas file from mainframe to Risc, AIX So.
I make a adauld and adacmp decompress on mainframe and a compress on aix, using the options record_structure=rdw
source=(ebcdic,high)
But when the compress executes, i get the error for packet columns.
What the best way to transfer files with packets format from mainframe to unix ?
Hello Sandra,
Compression Errors with Packed fields usually indicate that the record structure is shifted.
There are many possibilities why this might happen:
RDW record structure not as expected (check records structure with e.g. hexdump on Unix)
mismatch FDT on mainframe vs. Open systems (e.g. FDT defines constant occurrences MU(3) only evaluated at compress but not at decompress)
mismatch of Decompress / Compress parameters: HEADER=YES with Decompress, MUPEX decompress (occurrence count 2 bytes instead of 1 ), User ISN or specification of format
The ADACMP produces an error output that can be interpreted with the ADAERR utility.
ADAERR d dump produces an hex print of the input record and the offset where ADACMP detected the error.
You might have to count through the record to determine the cause of the error.
Of help could be an interpreted print of the record on the mainframe (ADAICK DSCHECK FILE=n,ISN=x)
I’ve written a utility, years ago, simplifying the transfer of a mainframe file to OpenSystems,
it can be found in (and downloaded from) this thread.
Note:
this has been written in the era of Adabas 7.x, so it does not know anything about the features introduced with Adabas 8,
if anyone needs specific Adabas 8 features supported … please let me know and I’ll see what I can do.