WBG WWW FreeFind  
 Home | Gallery | Optics | Sounds | Travel | Contact Me    

English

FOCUS, MVS-TSO ispf    [Back]

Table Focus data
.MFD has to be in edapath, or app path.
.FOC has to be defined in table request.

USE
C:\IBI\SRV43\WFS\FDS\BOTLOG2.FOC
END

TABLE FILE BOTLOG2
PRINT *
END

Table Non-Focus data
.MFD, and .ACX has to be in edapath, or app path.
Data files has to be defined in focexec.

FILEDEF TURKDATA DISK C:\IBI\APPS\IBISAMP\TURK.FTM

TABLE FILE TURKDATA
PRINT *
ON TABLE PCHOLD FORMAT EXL2K
END

Creating a .ftm( flat file), and .mas( master file) with a Packed field
APP HOLD IBISAMP

DEFINE FILE CAR
DCOST/P14.2 = DCOST * 100;
END

TABLE FILE CAR
PRINT DCOST BY
COUNTRY
BY CAR
ON TABLE HOLD AS MARTIN1
END

Creating synonym from "EDASTART -T" to retrieve it from EDA.
>edastart -t
>>CREATE SYNONYM dbcs_table_name FOR dbcs_table_name DBMS SQLORA
>END

Execute the SQL from client application.
>edastart -t
>>SQL
>SELECT * FROM dbcs_table_name;
>END

(INF32080) ..............
--MORE--
"data"

DROP SYNONYM (erase EDA SYNONYM).
>edastart -t
>>DROP SYNONYM dbcs_table_name
>>END
>>

Test if SYNONYM erased.
>edastart -t
>>SQL
>SELECT * FROM dbcs_table_name;
>END
(FOC14009) table not found

Connect to a specific ORACLE DB if more than one connection string.
>edastart -t
>>sql sqlora set server jpn3orcl

Do a SELECT against newly created ORACLE SYNONYM.
>edastart -t
>>sql sqleda
>select * from table_name;
>end

Create Japanese table on Oracle.
>edastart -t
>>SQL SQLORA
>END
>>
FOCUS:
>>TABLE FILE CAR
>PRINT CAR
>ON TABLE HOLD AS JAP_CHARS FORMAT SQLORA
>END
--------------------------------------------------


Focus Graph HOLD as JPEG:

SET GRAPHENGINE = GRAPH32

FILEDEF GFILE DISK E:\SERVER\ACCESS\GFILE.JPG
GRAPH FILE CAR
SUM DEALER_COST AS ''
ACROSS COUNTRY
BY BODYTYPE
ON GRAPH SET LOOKGRAPH VLINE
ON GRAPH SET GRAPHEDIT SERVER
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET VZERO ON
ON GRAPH SET GRID ON
ON GRAPH SET GRMERGE ON
ON GRAPH HOLD AS GFILE FORMAT JPEG
ON GRAPH SET GRAPHSTYLE *
setRect(getLegendArea(),new Rectangle(9941,-2486,4375,13766));
setFillType(getColorByHeight(),2);
setGradientDirection(getColorByHeight(),1);
setGradientNumPins(getColorByHeight(),2);
setGradientPinPosition(getColorByHeight(),0.0,0);
setGradientPinLeftColor(getColorByHeight(),new Color(255,255,255),0);
setGradientPinRightColor(getColorByHeight(),new Color(0,0,255),0);
setGradientPinPosition(getColorByHeight(),1.0,1);
setGradientPinLeftColor(getColorByHeight(),new Color(255,0,0),1);
setGradientPinRightColor(getColorByHeight(),new Color(255,255,255),1);
setAxisAssignment(getSeries(1),1);
setAxisAssignment(getSeries(2),0);
setAxisAssignment(getSeries(3),0);
setAxisAssignment(getSeries(4),0);
setMarkerDisplay(true);
setConnectLineMarkers(true);
setConnectScatterMarkers(true);
setO1LabelDisplay(true);
setO1AxisSide(0);
setO1MajorGridDisplay(true);
setO1MajorGridStyle(0);
setO1MinorGridDisplay(false);
setAxisAssignment(0,0);
setSeriesType(0,2);
setY1LabelDisplay(true);
setY1AxisSide(0);
setY1MajorGridDisplay(true);
setY1MajorGridStyle(0);
setY1MinorGridDisplay(false);
setTextFormatPreset(getY1Label(),-1);
setTextFormatPattern(getY1Label(),"#.##");
setPieFeelerTextDisplay(1);
setPieLabelDisplay(0);
setTextFormatPreset(getPieSliceLabel(),1);
setLegendDisplay(true);
setLegendTextAutofit(true);
setFontSizeAbsolute(getY1Title(),true);
setFontSizeAbsolute(getY1Label(),true);
setFontSizeAbsolute(getY2Title(),true);
setFontSizeAbsolute(getY2Label(),true);
setFontSizeAbsolute(getO1Title(),true);
setO1LabelAutofit(true);
setPlace(false);
ENDSTYLE
ON GRAPH SET STYLE *
PAGESIZE='Letter',
LEFTMARGIN=0.250000,
RIGHTMARGIN=0.250000,
TOPMARGIN=0.250000,
BOTTOMMARGIN=0.250000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,

$

TYPE=REPORT,
GRID=OFF,
FONT='MS UI GOTHIC',
SIZE=10,
BACKCOLOR='NONE',
STYLE=NORMAL,

$
ENDSTYLE
END


EX CARGRAPH
SET TEMPERASE=OFF
SET GRAPHSERVURL=HTTP://LOCALHOST/IBI_APPS/IBIGRAPHSERVLET
GRAPH FILE CAR
SUM SALES
BY CAR
ON GRAPH SET LOOKGRAPH VLINE
ON GRAPH HOLD FORMAT SVG
END


--------------------------------------------------
Japanese MVS-TSO Terminal Emulator, and Jap repro:

Install Japanese version of 3270 terminal emulator when Windows locale is set to Japanese

Change the window interface to 930 by going to Communications menu dropp down, and selecting
Configure, Session Paramaters.

Set ISPF to term type 9 by selecting =0, and scroll down to Term Type options.
English default is 3278.

Then create the focexec, and master from edit (=2) mixed mode (needs to be selected).

Copy and paste the DBCS data using Word, or Wordpad (Notepad copy and paste fails)

Then enter FOCUS and
SET LANG=JPN (sets codepage to 939)
SET TERM=IBM5550

You can change codepage to 930
SET LANG=JPK

EX RSHAIN2 (to run fex that creates DBCS FOCUS DB)
EX REPRO1 (to run focexec repros)


--------------------------------------------
This is rshain.master(forward slash is yen sign in Jap env, dollar in eng):

FILE=RSHAIN,SUFFIX=FOC
SEGMENT=RSHAIN,SEGTYPE=S1
FIELD=SSN ,ALIAS=SSN ,FORMAT=A7,INDEX=I,\
FIELD=LN ,ALIAS=LN ,FORMAT=A8 ,\
FIELD=FN ,ALIAS=FN ,FORMAT=A8 ,\

--------------------------------------------
This is rshain2.focexec(forward slash is yen sign in Jap env, dollar in eng):

CHECK FILE RSHAIN PICTURE
CREATE FILE RSHAIN
MODIFY FILE RSHAIN
MATCH SSN
ON MATCH REJECT
ON NOMATCH INCLUDE
DATA
1=7324440,2=two jap char,3=two jap char,\
1=8310101,2=two jap char,3=three jap char,\
1=9999999,2=two jap char,3=two jap char,\

END
------------------------------------------

This is repro1.focexec(forward slash is yen sign in Jap env, dollar in eng):

-* REQ01 X'0E45D345640F'
TABLE FILE RSHAIN
PRINT LN FN
WHERE FN EQ 'two jap char'
END
-RUN

-* REQ02 X'0E45D3457D0F'
TABLE FILE RSHAIN
PRINT LN FN
WHERE FN EQ 'two jap char'
END
-RUN

-* REQ03 X'0E4867467C457D0F'
TABLE FILE RSHAIN
PRINT LN FN
WHERE FN EQ 'three jap char'
END
-RUN

-* REQ04
TABLE FILE RSHAIN
PRINT LN FN
WHERE FN EQ 'three jap char' OR LN EQ 'two jap char'
END
-RUN
------------------------------------------
Useful commands in ispf edit mode (=2)
Go to dataset
cssmol.focexec.data
or
cssmol.master.data
and type name of member that you want to create i.e.
cssmol.focexec.data(shain2)

insert lines with
i14
or
a14

delete blocks of lines
dd
..
..
dd

delete lines
d

Save changes at exit by pressing F3 key.

-------------------------------------------------
Running other peoples clist FOCUS member
All commands from READY prompt:

ex 'csshhg.clist.data(focus)'

Selecting focus version to run when started with above clist:
P7009812 (this will start 7.1.1)


Making sure my data is used:
DYNAM ALLOC F FOCEXEC DS CSSMOL.FOCEXEC.DATA SHR REU
DYNAM ALLOC F MASTER DS CSSMOL.MASTER.DATA SHR REU
--------------------------------------------------


In FOCUS run TED to bring up editor, and file/save to save the changes.
QQUIT to quit without saving. FIN to end FOCUS session.

To Top
All text and images are Copyright
© 2004-2007, Wildbirdgallery.com. All rights reserved.