CICS Nov title - CBT Tape

**********************************************************************
* Hardware and Software Requirements *
* ------------------------------------------------------------------ *
* Language: C (LE - use of flocate) *
* CPU: All that run MVS/ESA and C *
* Operating System: MVS/ESA *
* CICS Version/Release: CICS Transaction Server for OS/39Ø v1.3. *
**********************************************************************
* Function *
* ------------------------------------------------------------------ *
* This program reads the CICS DFHGCD file and checks the Warm *
* keypoint record: '....DFHRMDM DFHRMDM_ANCHOR ' (.... = x'ØØØØØØ11')*
* The Warm keypoint indicator is then at offset 19,2 - *
* *
* x'ØØØ3' - Warm keypoint taken *
* x'ØØØ4' - Emergency restart required *
**********************************************************************/
/*--------------------------------------------------------------------*
* #includes *
*--------------------------------------------------------------------*/
#include
#include
#include
#include
/*--------------------------------------------------------------------*
* #defines and typedefs *
*--------------------------------------------------------------------*/
#define INDD "DD:DFHGCD"
#define DFHGCD_KEYLEN 28
#define RC_OK Ø
#define RC_WARN 4
#define RC_FAILURE 12
#define KEYPOINT_WARM Øx3
#define KEYPOINT_EMER Øx4
/*--------------------------------------------------------------------*
* global variables *
*--------------------------------------------------------------------*/
/*--------------------------------------------------------------------*
* function prototypes *
*--------------------------------------------------------------------*/
void error_exit(int);
/*--------------------------------------------------------------------*
* main() *
*--------------------------------------------------------------------*/
int main() /* ==> Entry point */
{ /* */
/*--------------------------------------------------------------------*
* local variables *
*--------------------------------------------------------------------*/
/*-----------------------------*/
4 © 2000. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.