FAQ MD5 Hash

Calling REXX from COBOL on OS/390 and z/OS
Beispiele des Upros für COBOL unter:
http://www-1.ibm.com/support/docview.wss?uid=swg24003837
und zwar dort das Member SIEXCOB.JCLSAMPL (muss modifiziert werden).
Aufruf aus COBOL:
*---------------------------------------------------------------­
* 2170-PRUEFEN-SATZ-HASH
* - SATZ HASH ERMITTELN UEBER UPRO REXXMD5
*---------------------------------------------------------------­
2170-PRUEFEN-SATZ-HASH SECTION.
*
CALL 'REXXMD5' USING MD5-STRING-VORHER
MD5-STRING-LAENGE
MD5-HASH-NACHHER
MD5-RETURN-CODE
IF MD5-RETURN-CODE = ZERO
CONTINUE
ELSE
MOVE MD5-RETURN-CODE TO DISP-MD5-RETURN-CODE
STRING 'FEHLER IN MODUL ERMITTELN HASHWERT'
' MODUL NAME: ' PGM-REXXMD5
DELIMITED BY SIZE
INTO F-KOMMENTAR1
STRING 'RETURNCODE: '
DISP-MD5-RETURN-CODE
DELIMITED BY SIZE
INTO F-KOMMENTAR2
END-IF
CONTINUE.
*
2170-EXIT.
EXIT.
*
REXX-Proc Library einbauen im Run-JCL:
//SYSEXEC DD DISP=SHR,DSN=UserId.TSO.CLIST
*
* Sample JCL for calling IRXEXEC from COBOL program
* You may modify this sample for your needs by including
* a REXX of your own. The argument for the REXX procedure
* may be taylored for your needs.
*
Identification Division.
PROGRAM-ID. REXXMD5.
Environment division.
Configuration section.
Special-names.
Input-output section.
File-control.
Data division.
File section.
*
Working-storage section.
01 Working-storage-for-rexxmd5 pic x.
77 PGM-NAME pic X(8).