x

SET CACHE = {0|n}

where:

0

The default FOCUS setting allocates no space for cache; Cache is inactive.

n

Is the number of 4K-byte pages of contiguous storage allocated to cache memory. The minimum is two pages. The maximum value is either 524287, or one less than the site-specified maximum value.

In normal use, the number of pages requested by users should be far less than the hardware maximum to avoid degrading the performance of the paging subsystem.

x

1. After unloading the FOCUS distribution tape, edit member CCHCOM in the FOCCTL.DATA library, to establish a maximum number of cache pages for your site. Do this by locating the following line:

   MAXPAGES EQU  524288

   Replace 524288 with the maximum number of cache pages you wish to allow. The value of MAXPAGES must be between 3 and 524288. Do not change any other lines in this file. After setting MAXPAGES, save member CCHCOM back into data set FOCCTL.DATA.

2. Next, assemble member CCHCOM from FOCCTL.DATA as follows:

   //ASSEM  EXEC PGM=IEV90,PARM='LIST,OBJ,NOALIGN'
   //SYSLIB   DD  DISP=SHR,DSN=SYS1.MACLIB
   //SYSUT1   DD  UNIT=SYSDA,SPACE=(TRK,(30,10))
   //SYSUT2   DD  UNIT=SYSDA,SPACE=(TRK,(30,10))
   //SYSUT3   DD  UNIT=SYSDA,SPACE=(TRK,(30,10))
   //SYSPRINT DD  SYSOUT=*
   //SYSPUNCH DD  DUMMY
   //SYSLIN   DD  DISP=SHR,DSN=prefix.OBJ(CCHCOM)
   //SYSIN    DD  DISP=SHR,DSN=prefix.FOCCTL.DATA(CCHCOM)

   where:

   prefix

   Is the high-level qualifier for your FOCUS production data sets.

3. Next, link this new program into FOCUS as follows:

   //LINKFOC EXEC PGM=IEWL,PARM='LET,NCAL,LIST,SIZE=1024K'
   //SYSPRINT DD  SYSOUT=*
   //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,1))
   //SYSLMOD  DD  DISP=OLD,DSN=prefix.FOCLIB.LOAD  <-- FOCUS
   //MAINTAIN DD  DISP=SHR,DSN=prefix.FOCCTL.DATA  <-- FOCCTL
   //OBJECT   DD  DISP=SHR,DSN=prefix.OBJ          <-- Assembled code
   //SYSLIN   DD  *
      INCLUDE OBJECT(CCHCOM)   <--------- Assembled CCHCOM
      INCLUDE SYSLMOD(CORFOC)  <--------- Module to be Changed
      INCLUDE MAINTAIN(CORFOC) <--------- Linkedit Control Statements
      NAMES FOCUS(R)           <--------- New Module
   /*

   where:

   prefix

   Is the high-level qualifier for your FOCUS production data sets.

4. If you run SU, you must also link the new program CCHCOM into the HLISNK module:

   //LINKFOC EXEC PGM=IEWL,PARM='LET,NCAL,LIST,SIZE=1024K'
   //SYSPRINT DD  SYSOUT=*
   //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,1))
   //SYSLMOD  DD  DISP=OLD,DSN=prefix.FOCLIB.LOAD  <-- FOCUS
   //MAINTAIN DD  DISP=SHR,DSN=prefix.FOCCTL.DATA  <-- FOCCTL
   //OBJECT   DD  DISP=SHR,DSN=prefix.OBJ          <-- Assembled code
   //SYSLIN   DD  *
      INCLUDE OBJECT(CCHCOM)   <--------- Assembled CCHCOM
      INCLUDE SYSLMOD(HLISNK)  <--------- Module to be Changed
      INCLUDE MAINTAIN(HLISNK) <--------- Linkedit Control Statements
      NAMES  HLISNK(R)         <--------- New Module
   /*

   where:

   prefix

   Is the high-level qualifier for your FOCUS production data sets.

x

The following list shows the default naming conventions:

prefix.FOCEXEC.DATA	For FOCEXEC
prefix.FOCCOMP.DATA	For compiled MODIFY procedures
prefix.MASTER.DATA	For MASTER files
prefix.ddname.FOCUS	For database files
prefix.MODEL.DATA	For FOCCALC® spreadsheets
SYS1.ADMCFORM	For ICU format files
SYS1.ADMCDATA	For ICU data files
prefix.TTEDIT.DATA	For TABLETALK saved sessions
prefix.FMU.DATA	For FMU files
prefix.TRF.DATA	For TRF files
prefix.WINFORMS.DATA	For online Maintain applications

The prefix is selected based on the following rules:

• If the FOCUS SET PREFIX command was previously issued, then the set value is selected.
• If no SET PREFIX command was issued and FOCUS is executed under TSO, then the standard TSO prefix (as set by the TSO PREFIX command) is selected.

Top of page

x

You can adjust the table of naming conventions for data sets allocated dynamically during FOCUS installation. The FOCUS data source is no longer dynamically allocated. The ERRORS PDS must be allocated prior to the execution of FOCUS.

The current table is member DSNTAB in FOCCTL.DATA. You can adjust the contents of this table by editing, compiling, and link-editing it into FOCUS. You can also adjust it with the AMASPZAP utility.

DSNTAB contains allocation information used when dynamically allocating MASTER, FOCEXEC, FIXFORM, and other files:

DSNTAB  CSECT
* 1 MASTER
     DC C'PREFIX MASTER.DATA                 1'
* 2 FOCEXEC
     DC C'PREFIX FOCEXEC.DATA                1'
* 3 FOCUS Database
     DC C'PREFIX DATABASE.FOCUS              1'
* 4 FIXFORM File
     DC C'PREFIX DDNAME.DATA                 1'
* 5 Errors
     DC C'SYS1  FOCUS.ERRORS.DATA            1'
* 6 Set_prefix_value - 8 characters long
     DC C'                           '
* 7 FOCCOMP File
     DC C'PREFIX FOCCOMP.DATA                1'
* 8 FOCCALC Spreadsheet
     DC C'PREFIX MODEL.DATA                  1'
* 9 ICU Format File
     DC C'SYS1  ADMCFORM                     1'
* 10 ICU Data File
     DC C'SYS1  ADMCDATA                     1'
* 11 TTEDT TableTalk saved session PDS
     DC C'PREFIX TTEDIT.DATA                 1'
* 12 FMU
     DC C'PREFIX FMU.DATA                    1'
* 13 TRF
     DC C'PREFIX TRF.DATA                    1'
* 14 WINFORMS
     DC C'PREFIX WINFORMS.DATA               1'
*
     END

Each entry in the table is 53 bytes long and has the following format:

prefix (8 char)	data set name (44 char)	flag (1 char)
0	8	52

where:

prefix

Is an 8-character field beginning at byte 0. If it contains the word PREFIX, the TSO prefix will be substituted for the prefix value; otherwise, the prefix is whatever is entered in this field. If the SET PREFIX command is issued, it takes priority and the SET value will be substituted.

data_set_name

Is a 44-character field beginning at byte 8. Data set name must contain the reserved word DATABASE for FOCUS files and DDNAME for FIXFORM files being allocated. These reserved words can appear anywhere in the 44-character string.

flag

Is a 1-character field beginning at byte 52 that indicates whether or not the DDNAME should be allocated dynamically. If FLAG=1, it indicates that the file should be allocated by FOCUS. If FLAG=0, then it should not be allocated.

Top of page

Top of page

x

To augment the list, first edit TSOTAB, and then compile and link-edit it into FOCUS. The JCL for this operation appears below.

//LINK1 EXEC  PGM=IEWL,PARM='LET,NCAL,LIST,SIZE=1024K'
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(10,1))
//OLDMOD   DD DSN=prefix.FOCLIB.LOAD,DISP=SHR
//TSOTAB   DD DSN=assembled.tsotab,DISP=SHR
//MAINTAIN DD DSN=prefix.FOCCTL.DATA,DISP=SHR
//SYSLMOD  DD DSN=prefix.TEST.FOCLIB.LOAD,DISP=SHR
//SYSLIN   DD *
 INCLUDE TSOTAB
 INCLUDE OLDMOD(CORFOC)       <----- MODULE TO BE CHANGED
 INCLUDE MAINTAIN(CORFOC)     <----- LINK1 CNTL STATEMENTS
 NAME FOCUS(R)                <----- NEW MODULE

/*

where:

prefix

Is the high-level qualifier for your FOCUS production data sets.

assembled.tsotab

Is the name of the data set that contains the assembled version of TSOTAB.

(FOC204) TOO MANY INTERRUPTS. RUN TERMINATED.

x

Issue the following command in any supported profile, in a FOCEXEC, or at the FOCUS prompt:

SET MAXDATAEXCPT={10|n}

Issue the following command in a TABLE request

ON TABLE SET MAXDATAEXCPT {10|n}

where:

n

Is a one to four-digit number that represents how many data exceptions can occur before the session is terminated. 10 is the default value. The value zero (0) allows an unlimited number of data exceptions. The value one (1) terminates the session at the first data exception.

If MAXDATAEXCPT is changed in a request, a new count is established for the request. The session counter is saved and is restored after the request executes.

Each time you issue the command outside of a TABLE request, the running counter is reset to zero.

This command is not supported on a FOCUS Database Server (sink machine).