On 2014-12-05 15:15, Frank Swarbrick wrote: > Does anyone know of a program/subroutine that can read "any kind" of MVS > sequential dataset and calculate an MD5 hash on it? By "any kind" I am > specifically meaning a file that is either FB or VB and can have any LRECL. > We have created a program in COBOL to do this, with the problem that we have > to have one program for each of the file format / LRECL lengths that we are > looking at. (I imagine we could have one program with multiple file > definitions in it as well.) COBOL has no file definition that is generic > enough to support this. > We are using the ICSF 'CSNBOWH' (one way hash) function to do the actual MD5 > process. > > I believe this could be done in assembler, but we don't have much assembler > experience in house. We would be open to a vendor product (in assembler or > otherwise), or even just assembler source code (I think). > Thanks,Frank > Flatten them.
IEBGENER will read a file in any of several formats and write to a POSIX pipe (//SYSUT2 DD FILEDATA=BINARY,PATH= ...) IDCAMS REPRO will read a file in any of several formats. I'm not sure it will write to a POSIX pipe, and DCB attributes must be available for the output file (but they might be RECFM=V, LRECL=32756,BLKSIZE=32760). Write your 'CSNBOWH' driver to read from stdin, which is the output of a pipe fed by your flattener. Is Rexx more available to you than assembler? There's a Rexx to ICSF example in SYS1.SAMPLIB. Beware of performance with multiple LINKPGM instructions (but this might not be a concern if CSNBOWH is in LPA.) -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
