I am converting a large FOCUS application running on z/VM to run on z/OS.
On VM, we frequently stack commands or calls to FOCEXECs in REXX programs, then call FOCUS.
FOCUS reads from the program stack and runs the commands, FOCEXECs, etc. as if they were
typed in at the keyboard.

I cannot get this to work on TSO. Jim Marrow posted that I need to allocate SYSIN for FOCUS to pull commands
from the program stack. Does anyone have an example to doing this?

Any advice would be greatly appreciated. Thanks!


Larry

This message has been edited. Last edited by: Kerry,

From the IBI web site:

  
How to test FOCUS after running ISETUP. 
Case: 60492515 Product: FOCUS for S/390 Release: 7.6.10 Primary OS: z/OS Date: 10/03/19 
Case information refers to the Product, Release, and OS for which this question was asked. The solution may apply to other Products, Releases, and Operating Systems.

Problem: 
How to test FOCUS after running ISETUP.
Solution: 

If you installed FOCUS correctly, you should be able to run CARTTEST focexec.

Here is sample JCL:

//CARTEST  EXEC PGM=FOCUS,REGION=2048K
//STEPLIB      DD  DSN=prefix.FOCLIB.LOAD,DISP=SHR
//MASTER       DD  DSN=prefix.MASTER.DATA,DISP=SHR
//FOCEXEC      DD  DSN=prefix.FOCEXEC.DATA,DISP=SHR
//ERRORS       DD  DSN=prefix.ERRORS.DATA,DISP=SHR
//CCARS        DD  DSN=prefix.MASTER.DATA(CCARS),DISP=SHR
//CAR          DD  DSN=prefix.CAR.FOCUS,DISP=SHR
//SYSPRINT     DD  SYSOUT=*
//OFFLINE      DD  SYSOUT=*
//SYSIN        DD  *
EX CARTEST
 FIN
/*

prefix = YOUR High Level Qualifier

OR

  
//CARTEST  EXEC PGM=FOCUS,REGION=2048K
//STEPLIB      DD  DSN=prefix.FOCLIB.LOAD,DISP=SHR
//MASTER       DD  DSN=prefix.MASTER.DATA,DISP=SHR
//FOCEXEC      DD  DSN=prefix.FOCEXEC.DATA,DISP=SHR
//ERRORS       DD  DSN=prefix.ERRORS.DATA,DISP=SHR
//CCARS        DD  DSN=prefix.MASTER.DATA(CCARS),DISP=SHR
//CAR          DD  DSN=prefix.CAR.FOCUS,DISP=SHR
//SYSPRINT     DD  SYSOUT=*
//OFFLINE      DD  SYSOUT=*
//SYSIN        DD  DSN=prefix.FOCEXEC.DATA(CALL_PGM),DISP=SHR
/*

Where CALL_PGM contains:

EX PGM1
-RUN
EX PGM2
-RUN
EX PGM3
FIN
-EXIT

It's been a long while, but, something like that...


hth

(My first reply to Focal Point so I hope I am doing this correctly....) We have used mainframe Focus for years on MVS - although we are now switching to WebFocus. If I understand your question correctly the example below may be of help. Two items I left in - we use procs in our JCL and the &tpremo and &cyy fields you see are resolved by our scheduling system. The file names of course have been changed.

//STEP1 EXEC FOCUS,
// FDSN='FEX LIBRARY',
// MDSN='DICTIONARY LIBRARY',
// LINES=
//OFFLINE DD SYSOUT=*
//INFILE DD DSN=INPUT FILE,DISP=OLD
//*COMMENT M0=MM, PREVIOUS MONTH, YR= CURRENT YEAR
//** EX FEX3 MO=05, YR=05
//** EX FEX4 MO=05, YR=05
//** EX FEX5 MO=05, YR=05
//SYSIN DD *
OFFLINE
EX FEX1
EX FEX2
EX FEX3 MO=&TPREMO., YR=&CYY.
EX FEX4 MO=&TPREMO., YR=&CYY.
EX FEX5 MO=&TPREMO., YR=&CYY.
FIN
/*