/*--------------------------------------------------------------------+
| |
| Copyright 1996 (c), SAS Institute Inc. |
| Unpublished - All Rights Reserved |
| |
| S A S / C S A M P L E |
| |
| Name: L$UFSIO |
| |
| Language: C |
| |
| EntryPoint: @DYNAMN |
| |
| EntryType : C Linkage |
| |
| Files Note: 'prefix' is the installation defined high level |
| qualifier for the SAS/C product. |
| |
| Purpose: Sample datastream exit for FSSL. This sample gathters |
| inbound/outbound datastream statistics. At termination |
| it writes the information to a disk file. |
| |
| MVS - |
| |
| Source: prefix.SAMPLE.C(L$UFSIO) |
| |
| Comp/Link: Use proc LC370CL, with parameter RENT and ENTRY=DYN. |
| |
| Execute: See SAS/C FSSL User's Guide, section |
| 'Data Stream I/O Exits' for details. |
| |
| CMS - |
| Source: SAMPLC MACLIB (L$UFSIO) |
| |
| Compile: global maclib lc370 l$fssl |
| lc370 l$ufsio ( rent |
| |
| Link: global txtlib lc370bas lc370std |
| clink l$ufsio |
| load clink370 (rldsave |
| genmod l$ufsio |
| nucxload l$ufsio l$ufsio |
| |
| Execute: See SAS/C FSSL User's Guide, section |
| 'Data Stream I/O Exits' for details. |
| |
| Notes: |
| - This is a sample FSSL 3270 Data Stream Exit, see |
| SAS/C Full-Screen Support Library User's Guide |
| for details on using this exit. |
| |
| - This exit was tested on TSO and CMS using the |
| CALENDAR example in prefix.SAMPLE.C. |
| |
| |
+--------------------------------------------------------------------*/
#include <stdio.h>
#include <fslib.h>
#include <dynam.h>
int _dynamn(int entry_code, void *work, int *ds_len,
char *ds_iobuf, int *crab_user_words)
{
struct FSUXWRK *fsuxwrk;
struct DATASTREAM_STAT
{
unsigned int n_writes;
unsigned int n_reads;
unsigned int bytes_written;
unsigned int bytes_read;
} *stat;
FILE *fp;
if (entry_code < 0) return 16; /* Avoid Debugger Entries */
fsuxwrk = (struct FSUXWRK *)work; /* Map work area */
switch (entry_code)
{
case FSEXIT_INIT: /* FSSL Initialization */
stat = (struct DATASTREAM_STAT *)
calloc(1, sizeof(struct DATASTREAM_STAT));
fsuxwrk->FSUXUSR2 = stat;
return 0;
break;
case FSEXIT_SETFSON: /* Set Terminal Fullscreen Mode On */
case FSEXIT_READ: /* Terminal data stream Read */
return 0; /* No action */
break;
case FSEXIT_WRITE: /* Terminal data stream Write */
stat = (struct DATASTREAM_STAT *) fsuxwrk->FSUXUSR2;
stat->n_writes++;
stat->bytes_written += *ds_len;
return 0;
break;
case FSEXIT_POSTREAD: /* Terminal data stream Post Read */
if (*ds_iobuf == 0x88)
return 0; /* Don't count Query Reply Structured Field AID */
stat = (struct DATASTREAM_STAT *) fsuxwrk->FSUXUSR2;
stat->n_reads++;
stat->bytes_read += *ds_len;
return 0;
break;
case FSEXIT_TERM: /* FSSL Termination */
/*
* The contents of the stat structure are formatted
* and written to a file.
*/
stat = (struct DATASTREAM_STAT *) fsuxwrk->FSUXUSR2;
fp = fopen("TERMSTAT", "w");
fprintf(fp,"\nNo. Writes = %u, No. Reads = %u"
"\nBytes Written = %u, Bytes Read = %u"
"\nBytes/Write = %#.2f, Bytes/Read = %#.2f\n",
stat->n_writes, stat->n_reads,
stat->bytes_written, stat->bytes_read,
(double) stat->bytes_written/stat->n_writes,
(double) stat->bytes_read/stat->n_reads);
fclose(fp);
free(fsuxwrk->FSUXUSR2);
return 0;
break;
}
} /* End of Sample datastream exit. */
|
