Installing the FOCCALC Graphics Facility

How to:

FOCCALC includes a graphics facility for displaying spreadsheet data as graphs. The FOCCALC Graphics facility is installed separately from GDDM graphics support for FOCUS high-resolution graphics. A minimum of 2500K bytes of virtual memory is required to run FOCCALC with the Graphics facility.

The Graphics facility requires a 3270-type terminal fitted for graphics with access to the IBM Graphics Data Display Manager (GDDM) software product.
Top of page
x
Procedure: How to Install the FOCCALC Graphics Facility

On z/OS, FOCCALC Release 2 is installed automatically when FOCUS is installed. To include the FOCCALC Graphics facility, you must also link edit a GDDM stub from the GDDM load library into FOCCALC. This can be done any time after installing the basic FOCUS system.

  1. One data set (MODEL.DATA) on the FOCUS installation cartridge must be unloaded for FOCCALC Release 2, whether or not the Graphics facility is installed. This data set can be loaded from tape to disk with the following JCL and should be made available to all FOCCALC users. 
    //STEP1   EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//I23      DD DSN=MODEL.DATA,DISP=OLD,UNIT=TAPE,VOL=SER=volid,
//         LABEL=(nn,SL,EXPDT=98000)
//O23      DD DSN=prefix.MODEL.DATA,DISP=(NEW,CATLG,DELETE),
//         SPACE=(TRK,(4,1,45)),UNIT=unit,VOL=SER=volid,
//         DCB=(LRECL=1028,BLKSIZE=4112,RECFM=VB)
//SYSIN    DD *
 COPY INDD=I23,OUTDD=O23
/*

    where:

    prefix

    Is the high-level qualifier for your FOCUS production libraries.

    nn

    Is the file number on the distribution cartridge. To find the file number, see File Numbers on the Distribution Cartridge.

  2. To install FOCCALC Release 2 with the Graphics facility, you must relink module FCALC2 with GDDM Graphics. The following sample JCL for this can be found in data set FOCCTL.DATA(LINKCA2G): 
    //****************************************************************
//* Relink module FCALC2 with GGDM Graphics.
//* Change DSN names as appropriate at your location.
//****************************************************************
//LFCALC2 EXEC PGM=IEWL,PARM='NCAL,LET,LIST,SIZE=1024K'
//OLDMOD   DD DSN=prod.FOCLIB.LOAD,DISP=SHR
//FOCCTL   DD DSN=prod.FOCCTL.DATA,DISP=SHR
//SYSLMOD  DD DSN=new.FOCLIB.LOAD,DISP=SHR
//ADMRLIB  DD DSN=SYS1.GDDMLOAD,DISP=SHR
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(10,1))
//SYSPRINT DD SYSOUT=*
//SYSLIN   DD *
 INCLUDE FOCCTL(GDDMDRV2)
 INCLUDE FOCCTL(@GDDMDR2)    <----- FOCCALC/GDDM INTERFACE
 INCLUDE FOCCTL(GDDMTAB2)
 INCLUDE FOCCTL(FCALC2)      <----- Linkedit Control Statements
 INCLUDE ADMRLIB(FSINR)      <----- GDDM Stub
 REPLACE GDDMDRVR            <----- Replace old entries
 REPLACE NO_CLINK
 INCLUDE OLDMOD(FCALC2)      <----- Existing copy of FocCalc
 NAME FCALC2(R)
/*
Information Builders