friedkiwi/ibm-information-center
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
6290434003
ibm-information-center/dist/eclipse/plugins/i5OS.ic.dbp_5.4.0.1/rbaforzahftrl.htm

389 lines
18 KiB
HTML
Raw Blame History

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html lang="en-us" xml:lang="en-us">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="security" content="public" />
<meta name="Robots" content="index,follow" />
<meta http-equiv="PICS-Label" content='(PICS-1.1 "http://www.icra.org/ratingsv02.html" l gen true r (cz 1 lz 1 nz 1 oz 1 vz 1) "http://www.rsac.org/ratingsv01.html" l gen true r (n 0 s 0 v 0 l 0) "http://www.classify.org/safesurf/" l gen true r (SS~~000 1))' />
<meta name="DC.Type" content="reference" />
<meta name="DC.Title" content="Example: Delete trigger written in ILE C" />
<meta name="abstract" content="This example shows the running of the ILE C trigger program when a record is deleted in the ATMTRANS file." />
<meta name="description" content="This example shows the running of the ILE C trigger program when a record is deleted in the ATMTRANS file." />
<meta name="DC.Relation" scheme="URI" content="rbaforzahftri.htm" />
<meta name="copyright" content="(C) Copyright IBM Corporation 1998, 2006" />
<meta name="DC.Rights.Owner" content="(C) Copyright IBM Corporation 1998, 2006" />
<meta name="DC.Format" content="XHTML" />
<meta name="DC.Identifier" content="rbaforzahftrl" />
<meta name="DC.Language" content="en-us" />
<!-- All rights reserved. Licensed Materials Property of IBM -->
<!-- US Government Users Restricted Rights -->
<!-- Use, duplication or disclosure restricted by -->
<!-- GSA ADP Schedule Contract with IBM Corp. -->
<link rel="stylesheet" type="text/css" href="./ibmdita.css" />
<link rel="stylesheet" type="text/css" href="./ic.css" />
<title>Example: Delete trigger written in ILE C</title>
</head>
<body id="rbaforzahftrl"><a name="rbaforzahftrl"><!-- --></a>
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
<h1 class="topictitle1">Example: Delete trigger written in ILE C</h1>
<div><p>This example shows the running of the ILE C trigger program when
a record is deleted in the ATMTRANS file. </p>
<div class="section"><div class="note"><span class="notetitle">Note:</span> By using the code examples, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
</div>
<div class="section"><div class="p"><pre> /**************************************************************/
/* Program Name - DELTRG */
/* This program is called when a delete operation occurs in */
/* the ATMTRANS file. */
/* */
/* This program will delete the records from ATMS and ACCTS */
/* based on the ATM ID and ACCT ID that are passed in from */
/* the trigger buffer. */
/* */
/* The application will delete ATMID 10003 from the ATMTRANS */
/* file. */
/* */
/**************************************************************/
#include &lt;stdio.h&gt;
#include &lt;stdlib.h&gt;
#include &lt;recio.h&gt;
#include "applib/csrc/msghandler" /* message handler include */
#include "qsysinc/h/trgbuf" /* trigger buffer include without*/
/* old and new records */
Qdb_Trigger_Buffer_t *hstruct; /* pointer to the trigger buffer */
char *datapt;
#define KEYLEN 5
/**************************************************************/
/* Need to define file structures here since there are non- */
/* character fields in each file. For each non-character */
/* field, C requires boundary alignment. Therefore, a _PACKED */
/* struct should be used in order to access the data that */
/* is passed to the trigger program. */
/* */
/**************************************************************/
/** record area for ATMTRANS **/
_Packed struct rec {
char atmid[5];
char acctid[5];
char tcode[1];
char amount[5];
} oldbuf, newbuf;
/** record area for ATMS **/
_Packed struct rec1{
char atmn[5];
char locat[2];
char atmamt[9];
} atmfile;
/** record area for ACCTS **/
_Packed struct rec2{
char acctn[5];
char bal[9];
char actacc[1];
} accfile;
/********************************************************************/
/********************************************************************/
/* Start of the Main Line Code. ************************************/
/********************************************************************/
/********************************************************************/
main(int argc, char **argv)
{
_RFILE *out1; /* file pointer for ATMS */
_RFILE *out2; /* file pointer for ACCTS */
_RIOFB_T *fb; /* file feedback pointer */
char record[16]; /* record buffer */
_FEEDBACK fc; /* feedback for message handler */
_HDLR_ENTRY hdlr = main_handler;
/********************************/
/* active exception handler */
/********************************/
CEEHDLR(&amp;hdlr, NULL, &amp;fc);;
/********************************/
/* ensure exception handler OK */
/********************************/
if (fc.MsgNo != CEE0000)
{
printf("Failed to register exception handler.\n");
exit(99);
}
/* set pointer to the input parameter */
hstruct = (Qdb_Trigger_Buffer_t *)argv[1];
datapt = (char *) hstruct;
/* Copy old and new record from the input parameter */
if ((strncmp(hstruct -&gt;trigger_event,"2",1)== 0)|| /* delete event */
(strncmp(hstruct -&gt; trigger_event,"3",1)== 0)) /* update event */
{ obufoff = hstruct -&gt;old_record_offset;
memcpy(&amp;oldbuf,datapt+obufoff,; hstruct-&gt;old_record_len);
}
if ((strncmp(hstruct -&gt; trigger_event,"1",1)== 0) || /* insert event */
(strncmp(hstruct -&gt; trigger_event,"3",1)== 0)) /* update event */
{ nbufoff = hstruct -&gt;new_record_offset;
memcpy(&amp;newbuf,datapt+nbufoff,; hstruct-&gt;new_record_len);
}
/*****************************************************/
/* Open ATM and ACCTS files */
/* */
/* Check the application's commit lock level. If it */
/* runs under commitment control, then open both */
/* files with commitment control. Otherwise, open */
/* both files without commitment control. */
/*****************************************************/
if(strcmp(hstruct-&gt;commit_lock_level,"0") == 0) /* no commit */
{
if ((out1=_Ropen("APPLIB/ATMS","rr+")) == NULL)
{
printf("Error opening ATM file");
exit(1);
}
if ((out2=_Ropen("APPLIB/ACCTS","rr+")) == NULL)
{
printf("Error opening ACCTS file");
exit(1);
}
}
else /* with commitment control */
{
if ((out1=_Ropen("APPLIB/ATMS","rr+,commit=Y")) == NULL)
{
printf("Error opening ATMS file");
exit(1);
}
if ((out2=_Ropen("APPLIB/ACCTS","rr+,commit=Y")) == NULL)
{
printf("Error opening ACCTS file");
exit(1);
}
}
/* Delete the record based on the input parameter */
fb =_Rlocate(out1,&amp;oldbuf.atmid,KEYLEN,__DFT);
if (fb-&gt;num_bytes != 1)
{
printf("record not found in ATMS\n");
_Rclose(out1);
exit(1);
}
_Rdelete(out1); /* delete record from ATMS */
_Rclose(out1);
fb =_Rlocate(out2,&amp;oldbuf.acctid,KEYLEN,__DFT);
if (fb-&gt;num_bytes != 1)
{
printf("record not found in ACCOUNTS\n");
_Rclose(out2);
exit(1);
}
_Rdelete(out2); /* delete record from ACCOUNTS */
_Rclose(out2);
} /* end of main */</pre>
</div>
</div>
<div class="section"><p>After the deletion by the application, the ATMTRANS file contains
the following data: </p>
</div>
<div class="section"><div class="p">
<table cellpadding="4" cellspacing="0" border="1" class="tableborder"><tr><td>
<table cellpadding="4" cellspacing="0" summary="" width="100%" border="0"><thead align="left"><tr><th align="center" valign="bottom" width="25%" id="d0e36">ATMID</th>
<th align="center" valign="bottom" width="25%" id="d0e38">ACCTID</th>
<th align="center" valign="bottom" width="25%" id="d0e40">TCODE</th>
<th align="center" valign="bottom" width="25%" id="d0e42">AMOUNT</th>
</tr>
</thead>
<tbody><tr><td align="center" valign="top" width="25%" headers="d0e36 ">10001</td>
<td align="center" valign="top" width="25%" headers="d0e38 ">20001</td>
<td align="center" valign="top" width="25%" headers="d0e40 ">W</td>
<td align="center" valign="top" width="25%" headers="d0e42 ">25.00</td>
</tr>
<tr><td align="center" valign="top" width="25%" headers="d0e36 ">10002</td>
<td align="center" valign="top" width="25%" headers="d0e38 ">20002</td>
<td align="center" valign="top" width="25%" headers="d0e40 ">W</td>
<td align="center" valign="top" width="25%" headers="d0e42 ">900.00</td>
</tr>
</tbody>
</table>
</td></tr></table>
After being deleted from the ATMTRANS file by the delete trigger program,
the ATMS file and the ACCTS file contain the following data:
<table cellpadding="4" cellspacing="0" border="1" class="tableborder"><tr><td>
<table cellpadding="4" cellspacing="0" summary="" width="100%" border="0"><thead align="left"><tr><th align="center" valign="bottom" width="33.33333333333333%" id="d0e71">ATMN</th>
<th align="center" valign="bottom" width="33.33333333333333%" id="d0e73">LOCAT</th>
<th align="center" valign="bottom" width="33.33333333333333%" id="d0e75">ATMAMT</th>
</tr>
</thead>
<tbody><tr><td align="center" valign="top" width="33.33333333333333%" headers="d0e71 ">10001</td>
<td align="center" valign="top" width="33.33333333333333%" headers="d0e73 ">MN</td>
<td align="center" valign="top" width="33.33333333333333%" headers="d0e75 ">275.00</td>
</tr>
<tr><td align="center" valign="top" width="33.33333333333333%" headers="d0e71 ">10002</td>
<td align="center" valign="top" width="33.33333333333333%" headers="d0e73 ">MN</td>
<td align="center" valign="top" width="33.33333333333333%" headers="d0e75 ">750.00</td>
</tr>
</tbody>
</table>
</td></tr></table>
<table cellpadding="4" cellspacing="0" border="1" class="tableborder"><tr><td>
<table cellpadding="4" cellspacing="0" summary="" width="100%" border="0"><thead align="left"><tr><th align="center" valign="bottom" width="33.33333333333333%" id="d0e100">ACCTN</th>
<th align="center" valign="bottom" width="33.33333333333333%" id="d0e102">BAL</th>
<th align="center" valign="bottom" width="33.33333333333333%" id="d0e104">ACTACC</th>
</tr>
</thead>
<tbody><tr><td align="center" valign="top" width="33.33333333333333%" headers="d0e100 ">20001</td>
<td align="center" valign="top" width="33.33333333333333%" headers="d0e102 ">175.00</td>
<td align="center" valign="top" width="33.33333333333333%" headers="d0e104 ">A</td>
</tr>
<tr><td align="center" valign="top" width="33.33333333333333%" headers="d0e100 ">20002</td>
<td align="center" valign="top" width="33.33333333333333%" headers="d0e102 ">350.00</td>
<td align="center" valign="top" width="33.33333333333333%" headers="d0e104 ">A</td>
</tr>
</tbody>
</table>
</td></tr></table>
<pre> /******************************************************************/
/* INCLUDE NAME : MSGHANDLER */
/* */
/* DESCRIPTION : Message handler to signal an exception message*/
/* to the caller of this trigger program. */
/* */
/* Note: This message handler is a user defined routine. */
/* */
/******************************************************************/
#include &lt;stdio.h&gt;
#include &lt;stdlib.h&gt;
#include &lt;recio.h&gt;
#include &lt;leawi.h&gt;
#pragma linkage (QMHSNDPM, OS)
void QMHSNDPM(char *, /* Message identifier */
void *, /* Qualified message file name */
void *, /* Message data or text */
int, /* Length of message data or text */
char *, /* Message type */
char *, /* Call message queue */
int, /* Call stack counter */
void *, /* Message key */
void *, /* Error code */
...); /* Optionals:
length of call message queue
name
Call stack entry qualification
display external messages
screen wait time */
/*********************************************************************/
/******** This is the start of the exception handler function. */
/*********************************************************************/
void main_handler(_FEEDBACK *cond, _POINTER *token, _INT4 *rc,
_FEEDBACK *new)
{
/****************************************/
/* Initialize variables for call to */
/* QMHSNDPM. */
/* User defines any message ID and */
/* message file for the following data */
/****************************************/
char message_id[7] = "TRG9999";
char message_file[20] = "MSGF LIB1 ";
char message_data[50] = "Trigger error ";
int message_len = 30;
char message_type[10] = "*ESCAPE ";
char message_q[10] = "_C_pep ";
int pgm_stack_cnt = 1;
char message_key[4];
/****************************************/
/* Declare error code structure for */
/* QMHSNDPM. */
/****************************************/
struct error_code {
int bytes_provided;
int bytes_available;
char message_id[7];
} error_code;
error_code.bytes_provided = 15;
/****************************************/
/* Set the error handler to resume and */
/* mark the last escape message as */
/* handled. */
/****************************************/
*rc = CEE_HDLR_RESUME;
/****************************************/
/* Send my own *ESCAPE message. */
/****************************************/
QMHSNDPM(message_id,
&amp;message_file,
&amp;message_data,
message_len,
message_type,
message_q,
pgm_stack_cnt,
&amp;message_key,
&amp;error_code );
/****************************************/
/* Check that the call to QMHSNDPM */
/* finished correctly. */
/****************************************/
if (error_code.bytes_available != 0)
{
printf("Error in QMHOVPM : %s\n", error_code.message_id);
}
}</pre>
</div>
</div>
<div class="section"><div class="p"> <pre>/****************************************************************/
/* INCLUDE NAME : TRGBUF */
/* */
/* DESCRIPTION : The input trigger buffer structure for the */
/* user's trigger program. */
/* */
/* LANGUAGE : ILE C */
/* */
/****************************************************************/
/****************************************************************/
/* Note: The following type definition only defines the fixed */
/* portion of the format. The data area of the original */
/* record, null byte map of the original record, the */
/* new record, and the null byte map of the new record */
/* is varying length and immediately follows what is */
/* defined here. */
/****************************************************************/
typedef _Packed struct Qdb_Trigger_Buffer {
char file_name[10];
char library_name[10];
char member_name[10];
char trigger_event[1];
char trigger_time[1];
char commit_lock_level[1];
char reserved_1[3];
int data_area_ccsid;
char reserved_2]8];
int old_record_offset;
int old_record_len;
int old_record_null_byte_map;
int old_record_null_byte_map_len;
int new_record_offset;
int new_record_len;
int new_record_null_byte_map;
int new_record_null_byte_map_len;
} Qdb_Trigger_Buffer_t;</pre>
</div>
</div>
</div>
<div>
<div class="familylinks">
<div class="parentlink"><strong>Parent topic:</strong> <a href="rbaforzahftri.htm" title="This topic provides examples of trigger programs written in C, COBOL, and RPG.">Examples: Trigger programs</a></div>
</div>
</div>
</body>
</html>
Reference in New Issue View Git Blame Copy Permalink