RDF System Management Manual for H-Series RVUs (RDF 1.8)

The DoLockstep Procedure
How you invoke the DoLockstep procedure differs depending on whether your applications are
written in COBOL or TAL.
Including the DoLockstep in COBOL85 Applications
To invoke the DoLockstep procedure from a COBOL85 program, you must first include the
DoLockstep object module in the SPECIAL-NAMES paragraph in the CONFIGURATION section.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP NONSTOP.
OBJECT-COMPUTER. HP NONSTOP.
SPECIAL-NAMES.
FILE "$vol.subvol.LSLIBTO" IS LOCKSTEP-LIB.
where $vol.subvolis the location where you have placed the object file.
You then invoke the DoLockstep procedure in the PROCEDURE division by using this statement:
ENTER TAL "DOLOCKSTEP" IN LOCKSTEP-LIB GIVING RETURN-CODE
The lockstep software provided with the RDF/IMPX and RDF/ZLT products includes a sample
COBOL85 program (SLOCKCOB) that demonstrates how to use the DoLockstep procedure in
a COBOL program.
Invoking DoLockStep by Way of TAL
The lockstep software provided with the RDF/IMPX and RDF/ZLT products includes a TAL
header file containing the DoLockstep procedure declaration and the corresponding object file.
You must modify your program to source in the header file FDOLOCK. For example, include
these lines of code where you add procedure declarations.
?LIST
?NOLIST, SOURCE EXTDECS
?LIST
?NOLIST, SOURCE FDOLOCK;
?LIST
After recompiling your program, you must then decide whether you want to bind the object
explicitly into your program or treat the object as a user library.
Typically you should explicitly bind the object into your program. The object file (LSLIBTO) is
very small, and there are no benefits to treating it as a user library.
To bind LSLIBTO into your program, issue this statement:
Select Search $vol.subvol.LSLIBTO
where $vol.subvolis the location where you have placed the object file.
If you do not want to bind the object into your program and if you do not already use a user
library, then you can skip the bind step and treat LSLIBTO as a user library.
The TAL procedure call syntax is:
status := DoLockstep;
where status is an int.
NOTE: The DoLockstep procedure can only be invoked from TAL and COBOL85 programs.
Non-native C and native mode languages (C, C++, native mode COBOL, and pTAL) are not
supported.
DoLockStep Execution
DoLockstep communicates with an RDF gateway process that acts as the coordinator of the
lockstep operation. This gateway initiates a new lockstep transaction against a special RDF
lockstep file. The gateway passes information about the lockstep transaction to the RDF extractor.
290 Process-Lockstep Operation