Teradata Parallel Data Pump

Appendix C: INMOD and Notify Exit Routine Examples
Sample Notify Exit Routine
UInt32 *feedback;
} DMLError;
} Vals;
} TLNotifyExitParm;
#ifdef I370
#define TLNfyExit MLNfEx
#endif
extern Int32 TLNfyExit(
#ifdef __STDC__
TLNotifyExitParm *Parms
#endif
);
#ifdef WIN32
__declspec(dllexport) long _dynamn(TLNotifyExitParm *P)
#else
Int32 _dynamn(P)
TLNotifyExitParm *P;
#endif
{
FILE *fp;
int i;
if (!(fp = fopen("NFYEXIT.OUT", "a")))
return(1);
switch(P->Event) {
case NMEventInitialize : /* Nothing */
fprintf(fp, "exit called @ Tpump init.\n");
fprintf(fp, "Version: %s\n", P->Vals.Initialize.VersionId);
#ifdef __MVS__
P->Vals.Initialize.UtilityName[MAXUTILITYNAMELEN-1] = '\0';
#else
P->Vals.Initialize.UtilityName[MAXUTILITYNAMELEN] = '\0';
#endif
fprintf(fp, "Utility: %s\n", P->Vals.Initialize.UtilityName);
fprintf(fp, "User: %s\n", P->Vals.Initialize.UserName);
if (P->Vals.Initialize.UserStringLen)
fprintf(fp, "UserString: %s\n", P->Vals.Initialize.UserString);
break;
case NMEventFileInmodOpen :
fprintf(fp, "Exit called @ File/Inmod Open\n\
File/Inmod Name : %s Import : %d\n",
P->Vals.FileOpen.FileOrInmodName,P->Vals.FileOpen.nImport);
break;
case NMEventCkptBeg :
fprintf(fp,"exit called @ checkpoint begin : %u Records .\n",
P->Vals.CheckPt.Records);
break;
case NMEventCkptEnd :
fprintf(fp,"exit called @ checkpoint End : %u Records Sent.\n",
P->Vals.CheckPt.Records);
break;
case NMEventCLIError :
Teradata Parallel Data Pump Reference 253