MD5 checksum in COBOL

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

 



Hi there. New to COBOL, please excuse overly stupid questions.

I came across an example version of an MD5 checksum generator written entirely in COBOL[1]. However I note that it's written in Micro Focus format - which I take it is one dialect of COBOL. So, using the 2.2 release of GNU COBOL I ran the following:

tr -d '\r' < cobmd5.cbl > cobmd5-2.cbl
sed -i 's/^\*/*>/g' cobmd5-2.cbl
cobc -std=mf -free -x -o cobmd5 cobmd5-2.cbl

The tr and sed commands are to change the source from DOS line-endings to Unix ones and to change the bare "*" comments to "*>" comments (I'm guessing an unsupported MF COBOL extension?).

And I get the following:

cobmd5-2.cbl: 158: warning: REDEFINES clause should follow entry-name
cobmd5-2.cbl: 165: warning: REDEFINES clause should follow entry-name
cobmd5-2.cbl: 178: warning: REDEFINES clause should follow entry-name
cobmd5-2.cbl: 190: warning: REDEFINES clause should follow entry-name
cobmd5-2.cbl: 298: warning: REDEFINES clause should follow entry-name
cobmd5-2.cbl: 144: error: only level 88 items may have multiple values
cobmd5-2.cbl: in section 'MD5-F':
cobmd5-2.cbl: 413: error: 'b-and' is a reserved word, but isn't supported
cobmd5-2.cbl: 413: error: syntax error, unexpected Identifier, expecting ) or - or +
cobmd5-2.cbl: 413: error: 'b-or' is a reserved word, but isn't supported
cobmd5-2.cbl: 413: error: 'b-not' is a reserved word, but isn't supported
cobmd5-2.cbl: 413: error: 'b-and' is a reserved word, but isn't supported
cobmd5-2.cbl: in section 'MD5-G':
cobmd5-2.cbl: 418: error: 'b-and' is a reserved word, but isn't supported
cobmd5-2.cbl: 418: error: syntax error, unexpected Identifier, expecting ) or - or +
cobmd5-2.cbl: 418: error: 'b-or' is a reserved word, but isn't supported
cobmd5-2.cbl: 418: error: 'b-and' is a reserved word, but isn't supported
cobmd5-2.cbl: 418: error: 'b-not' is a reserved word, but isn't supported
cobmd5-2.cbl: in section 'MD5-H':
cobmd5-2.cbl: 423: error: 'b-xor' is a reserved word, but isn't supported
cobmd5-2.cbl: 423: error: syntax error, unexpected Identifier, expecting ) or - or +
cobmd5-2.cbl: 423: error: 'b-xor' is a reserved word, but isn't supported
cobmd5-2.cbl: in section 'MD5-I':
cobmd5-2.cbl: 428: error: 'b-xor' is a reserved word, but isn't supported
cobmd5-2.cbl: 428: error: syntax error, unexpected Identifier
cobmd5-2.cbl: 428: error: 'b-or' is a reserved word, but isn't supported
cobmd5-2.cbl: 428: error: 'b-not' is a reserved word, but isn't supported

Some of these seem like syntax MF COBOL supports that GNU COBOL doesn't - the redefines and the syntax errors. The others seem like functions/operators MF COBOL supports that GNU COBOL doesn't.

Are there any good guides on porting MF COBOL to GNU COBOL? Suggestions for things I should read?

[1]: https://community.microfocus.com/microfocus/cobol/net_express__server_express/w/knowledge_base/2761/demo-how-to-create-an-md5-hash

Kevin

[Index of Archives]     [Gcc Help]     [Linux USB Devel]     [Linux Audio Users]     [Yosemite Info]     [Linux Kernel]     [Linux SCSI]     [Big List of Linux Books]

  Powered by Linux