RDF System Management Manual for J-series and H-series RVUs (RDF Update 13)

While the process waits until DoLockstep completes, other processes can view and modify the
just-changed records, and this must be understood and taken into consideration by the application
designer.
NOTE: The lockstep capability cannot be used in an RDF network environment. Furthermore,
you can have only one RDF subsystem configured for lockstep on a given node because the gateway
can only be configured to a single extractor process.
The RDF/IMPX and RDF/ZLT independent product CDs include these files associated with the
lockstep capability:
Sample code for invoking the DoLockstep procedure from a COBOL 85 program.SLOCKCOB
RDF lockstep gateway object code.LSGO
DoLockstep procedure object code.LSLIBTO
Forward declarations of the DoLockstep procedure call.FDOLOCK
Starting a Lockstep Operation
Transactions protected by a lockstep operation are begun, performed, and terminated just as any
other transaction: call BeginTransaction, do the necessary database updates, and then call
EndTransaction.
What defines a lockstep operation is the invocation of the new DoLockstep procedure. You issue
the DoLockstep call immediately after the associated EndTransaction call.
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.subvol is the location where you have placed the lockstep library 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
300 Process-Lockstep Operation