In this section: |
Sites wishing to change FOCUS startup options have two options for implementing site-wide configuration parameters:
The FOCPARM assembler CSECT in FOCCTL.DATA that is used to create load module FOCINI also contains additional startup options not modifiable through SET commands.
Note: These are all independent procedures—a change made to one does not require changes to the others.
Reference: |
Member FOCPARM in ERRORS.DATA is executed before FOCPROF and before each user's PROFILE FOCEXEC. It may only include SET commands. The FOCPARM file shipped with FOCUS follows:
-*--------------------------------------------------------------------* -* THIS SECTION CONSISTS SOLELY OF SET COMMANDS USED TO CUSTOMIZE * -* THE BEHAVIOR OF FOCUS AT YOUR SITE. PLEASE NOTE THAT ONLY SET * -* COMMANDS ARE SUPPORTED, AND THAT ANY OTHER FOCUS COMMANDS ARE * -* NOT PERMITTED AND WILL FORCE YOU OUT OF FOCUS. THIS MEMBER MAY * -* NOT BE USED AS A PROFILE EXCEPT FOR SET COMMANDS. * -*--------------------------------------------------------------------* SET EMPTYREPORT=OFF SET BLKCALC=NEW SET FIELDNAME=NEW SET QUALCH=. SET QUALTITL=OFF SET HOLDSTAT=ON SET HOTMENU=OFF SET IMMEDTYPE=OFF SET AUTOPATH=ON SET AUTOINDEX=ON
-*--------------------------------------------------------------------* -* FOCPARM MAY BE USED TO CUSTOMIZE FOCUS BEHAVIOR AT YOUR * -* INSTALLATION. PLEASE NOTE THAT ONLY SET COMMANDS ARE SUPPORTED. * -* INCLUDING ANY OTHER FOCUS COMMAND WILL YIELD AN ERROR WHICH WILL * -* TERMINATE THE FOCUS SESSION * -*--------------------------------------------------------------------* SET EMPTYREPORT=OFF SET BLKCALC=NEW SET FIELDNAME=NEW SET QUALCH=. SET QUALTITL=ON SET HOLDSTAT=ON SET HOTMENU=ON SET IMMEDTYPE=ON SET CACHE=256 SET AUTOPATH=ON SET AUTOINDEX=ON SET PRINTPLUS=ON
-*--------------------------------------------------------------------* -* THIS SECTION CONSISTS SOLELY OF SET COMMANDS, USED TO CUSTOMIZE * -* FOCUS BEHAVIOR AT YOUR SITE. PLEASE NOTE THAT ONLY SET * -* COMMANDS ARE SUPPORTED AND THAT ANY OTHER FOCUS COMMANDS ARE * -* NOT PERMITTED AND WILL FORCE YOU OUT OF FOCUS. THIS MEMBER MAY * -* NOT BE USED AS A PROFILE EXCEPT FOR SET COMMANDS. * -*--------------------------------------------------------------------* SET EMPTYREPORT=ON SET BLKCALC=OLD SET FIELDNAME=OLD SET HOLDSTAT=OFF SET HOTMENU=OFF SET IMMEDTYPE=OFF SET AUTOPATH=OFF SET AUTOINDEX=OFF
FOCPROF is a global profile for FOCUS that can contain any command valid in a FOCEXEC, including: TABLE, MATCH, MODIFY, MAINTAIN, REBUILD, COMPILE, LOAD, Dialogue Manager commands, CMS commands, TSO commands and DYNAM commands.
This gives you three FOCUS profiles: FOCPARM, FOCPROF, and PROFILE. FOCPARM and FOCPROF files are members of the ERRORS PDS. The PROFILE file is a member of the FOCEXEC PDS0. Their order of execution is:
Create a new member of the ERRORS PDS named FOCPROF and include any commands you wish to have executed each time FOCUS is invoked.
The assembly language program, member FOCPARM, provided in data set FOCCTL.DATA, enables sites to change the following startup default options, including several that cannot be specified in SET commands:
To change these, replace the old option settings with new ones and then assemble and link the options into FOCINI. The default FOCPARM values provided with FOCUS are shown below. Use the value '1' to enable an option and a value of '0' to disable one.
FOCPARM CSECT BANNER DC F'1' 1. Indicates display banner CLRSCRN DC F'1' 2. Indicates clear screen at startup * * NATIONAL LANGUAGE SUPPORT DEFAULTS * LANG DC F'1' 3. Indicates Language Number (INTLCM) JTERM DC CL8'IBM3270' 4,5.Indicates J-Terminal (INTLCM) DC F'0' 6. Available DC F'0' 7. Available DC F'0' 8. Available * PROFOPT DC F'1' 9. NOPROF/PROFILE 0=not allow,1=allow CDN DC F'0' 10. CDN SETTING 0=OFF 1=ON XDBSC DC CL4'@' 11. CHAR. FOR EXT.DB SECUR. (7975) PCHOLD DC F'1' 12. PCHOLD FLAG (11108) TTFEX DC CL4'PDS' 13. DSORG OF TABLTALK FOCEXEC (11516) DATTIM DC CL4'EDA' 14. DATE/TIME FORMAT (13619) *---------------------------------------------------------------------* * A value of '1' enables an option, a value of '0' disables an option * * Other values are defaults for the option. * * * * DO NOT ADD, DELETE, OR CHANGE ORDER OF THE OPTIONS ABOVE! * * * * DO NOT ALTER THE CODE BELOW IN ANY WAY! * *********************************************************************** . . .
Note: Since each installation of FOCUS generates its own version of the FOCPARM options, the following procedures must be performed each time you install a new version of FOCUS.
//ASSEM EXEC PGM=IEV90,PARM='LIST,DECK,NOOBJ,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)) //SYSPUNCH DD DISP=SHR,DSN=prefix.OBJ(FOCPARM) //SYSPRINT DD SYSOUT=* //SYSLIN DD DUMMY //SYSIN DD DISP=SHR,DSN=prefix.FOCCTL.DATA(FOCPARM) //*Link this new program into FOCINI. The following is sample JCL: //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(FOCPARM) <--------- Assembled FOCPARM INCLUDE SYSLMOD(FOCINI) <--------- Module to be Changed INCLUDE MAINTAIN(FOCINI) <--------- Linkedit Control Statements NAME FOCINI(R) <--------- New Module /*
where:
Is the high-level qualifier for your FOCUS production data sets.
Information Builders |