This section illustrates how to record a FOCUS session under z/VM and z/OS.
Issue FILEDEF commands for the FOCREPLAY input mode DDNAMEs prior to invoking FOCUS or in the REXX EXEC that invokes FOCUS. For example, the following FILEDEF commands define new data sets to contain the session script and the session output:
FILEDEF FSC3270I DISK FSSCRIPT IN A (DISP MOD FILEDEF FSC3270O DISK FSC3270 OUTBASE A (DISP MOD
You must invoke FOCUS without a profile:
EX FOCUS (NOPROF
If you need a profile, execute the profile as the first command after invoking FOCUS.
The following FOCUS session issues a TABLE request against the MOVIES data source. This session is recorded by FOCREPLAY as a result of executing the REXX EXEC containing the FILEDEF commands for DDNAMEs FSC3270I and FSC3270O.
Issue the following TABLE request:
> > TABLE FILE MOVIES > PRINT RATING DIRECTOR TITLE/A20 > BY CATEGORY > WHERE CATEGORY EQ 'DRAMA' OR 'MYSTERY' OR 'CHILDREN' > END NUMBER OF RECORDS IN TABLE= 18 LINES= 18 PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY
Press Enter to display the first screen of the report:
PAGE 1 CATEGORY RATING DIRECTOR TITLE -------- ------ -------- ----- CHILDREN NR SMURFS, THE G BARTON C. SHAGGY DOG, THE NR SCOOBY-DOO-A DOG IN G GEROMINI ALICE IN WONDERLAND NR SESAME STREET-BEDTIM NR ROMPER ROOM-ASK MISS NR DISNEY W. SLEEPING BEAUTY G DISNEY W. BAMBI DRAMA R LUMET S. DOG DAY AFTERNOON MYSTERY PG HITCHCOCK A. REAR WINDOW PG HITCHCOCK A. VERTIGO R GRANT M. FATAL ATTRACTION NR HITCHCOCK A. NORTH BY NORTHWEST R CRONENBERG D. DEAD RINGERS R LUMET S. MORNING AFTER, THE R HITCHCOCK A. PSYCHO PG13 HITCHCOCK A. BIRDS, THE MORE
Press Enter to display the second screen of the report:
PAGE 2 CATEGORY RATING DIRECTOR TITLE -------- ------ -------- ----- MYSTERY R BECKER H. SEA OF LOVE END OF REPORT
Issue the FIN command to exit FOCUS:
FIN
Once you issue the FIN command, you are no longer in FOCUS, so recording stops. However, if you want to invoke FOCUS at this point without recording the new session, you must free the FOCREPLAY FILEDEFs. If you do not, the new session's script will be appended to the existing script file and its output will be appended to the existing output file.
You can create the two files needed for FOCREPLAY input mode prior to executing the CLIST used to invoke FOCUS or in the CLIST. If you create these files in the CLIST, you must then free the allocations and reallocate them with DISP MOD. For example, the following commands allocate new data sets to contain the session script and the session output:
ALLOC F(FSC3270I) NEW DA('USER1.FSC.SCRIPT') , SPACE(50,10) TRACKS LRECL(23472) BLKSIZE(23476) , DSORG(PS) RECFM(V) ALLOC F(FSC3270O) NEW DA('USER1.FSC.OUTBASE') , SPACE(50,10) TRACKS LRECL(23472) BLKSIZE(23476) , DSORG(PS) RECFM(V)
The following commands free these allocations and reallocate the data sets with DISP MOD:
FREE F(FSC3270I) FREE F(FSC3270O) ALLOC F(FSC3270I) REUSE MOD DA('USER1.FSC.SCRIPT') ALLOC F(FSC3270O) REUSE MOD DA('USER1.FSC.OUTBASE')
The following FOCUS session issues a TABLE request against the MOVIES data source. This session is recorded by FOCREPLAY as a result of executing the CLIST containing the allocations for DDNAMEs FSC3270I and FSC3270O.
Issue the following TABLE request:
> > TABLE FILE MOVIES > PRINT RATING DIRECTOR TITLE/A20 > BY CATEGORY > WHERE CATEGORY EQ 'DRAMA' OR 'MYSTERY' OR 'CHILDREN' > END NUMBER OF RECORDS IN TABLE= 18 LINES= 18 PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY
Press Enter to display the first screen of the report:
PAGE 1 CATEGORY RATING DIRECTOR TITLE -------- ------ -------- ----- CHILDREN NR SMURFS, THE G BARTON C. SHAGGY DOG, THE NR SCOOBY-DOO-A DOG IN G GEROMINI ALICE IN WONDERLAND NR SESAME STREET-BEDTIM NR ROMPER ROOM-ASK MISS NR DISNEY W. SLEEPING BEAUTY G DISNEY W. BAMBI DRAMA R LUMET S. DOG DAY AFTERNOON MYSTERY PG HITCHCOCK A. REAR WINDOW PG HITCHCOCK A. VERTIGO R GRANT M. FATAL ATTRACTION NR HITCHCOCK A. NORTH BY NORTHWEST R CRONENBERG D. DEAD RINGERS R LUMET S. MORNING AFTER, THE R HITCHCOCK A. PSYCHO PG13 HITCHCOCK A. BIRDS, THE MORE
Press Enter to display the second screen of the report:
PAGE 2 CATEGORY RATING DIRECTOR TITLE -------- ------ -------- ----- MYSTERY R BECKER H. SEA OF LOVE END OF REPORT
Issue the FIN command to exit FOCUS:
FIN
Once you issue the FIN command, you are no longer in FOCUS, so recording stops. However, if you want to invoke FOCUS at this point without recording the new session, you must free the FOCREPLAY allocations. If you do not, the new session's script will be appended to the existing script file and its output will be appended to the existing output file.
Information Builders |