Replaying a Recorded FOCUS Session

You can replay a recorded FOCUS session interactively or in a batch job. Note: Do not allocate DDNAMEs SYSIN or SYSPRINT in the FOCREPLAY batch job.

If you replay the session interactively, you must press a key in order to proceed from one line to the next in the script. Press Enter to move through the script line by line or, if your FOCUS session is accepting input, you can press a PFkey to move more quickly through the script.

Procedure: How to Replay a Recorded FOCUS Session Interactively

Allocate or FILEDEF the required DDNAMES in your CLIST that invokes FOCUS. Allocate:
- DDNAME FSC3270Q to the file containing the previously recorded script.
- DDNAME FSC3270O to the file to receive the replayed session output.
- DDNAME FSC3270I as DUMMY
Execute your REXX EXEC or CLIST that invokes FOCUS.
The first line in the script displays on the screen.
Press Enter to invoke the next line in the script or, if your FOCUS session is accepting input, you can press a PFkey to move more quickly through the script.
Continue pressing Enter or a PFkey to move through the script.
When the FIN command is replayed, the FOCUS session ends, and the replay stops.

Note: If you want to invoke FOCUS at this point without replaying the session again, you must clear the FOCREPLAY FILEDEFs or free the FOCREPLAY allocations. If you do not, the new session output will be appended to the existing output file.

Reference: FOCREPLAY PFKeys

If your FOCUS session is accepting input, you can press the Enter key to step through the session line by line, or you can press one of the following PFkeys:

PFkey	Action
F1	Plays the next 10 script lines with no confirmation.
F2	Plays the next 20 script lines with no confirmation.
F3	Plays the next 30 script lines with no confirmation.
F4	Plays the next 40 script lines with no confirmation.
F5	Plays the next 50 script lines with no confirmation.
F6	Plays the next 60 script lines with no confirmation.
F7	Plays the next 70 script lines with no confirmation.
F8	Plays the next 80 script lines with no confirmation.
F9	Plays the next 90 script lines with no confirmation.
F10	Plays the next 100 script lines with no confirmation.
F11	Plays to the end of the script or to a break point with no confirmations.
F12	Quit (exits FOCUS by issuing Abend U610-1). At this point you must log off and on again to clean up after the abend.

Top of page

Example: Replaying a Recorded FOCUS Session Interactively Under z/VM

The REXX EXEC that invokes FOCUS has the following FOCREPLAY FILEDEFs:

The previously recorded script:
```
'FILEDEF FSC3270Q DISK FSSCRIPT IN A'
```

The output of the replayed session:

'FILEDEF FSC3270O DISK FSC3270 OUTNEW A (DISP MOD'

The dummy FILEDEF for DDNAME FSC3270I:
```
'FILEDEF FSC3270I DUMMY'
```

Once the REXX EXEC executes and invokes FOCUS, the first line of the script file displays:

>  >  TABLE FILE MOVIES

You can press Enter, or you can press one of the FOCREPLAY PFkeys described in FOCREPLAY PFKeys.

For this example, press Enter to execute this line. The next line displays:

>  PRINT RATING DIRECTOR TITLE/A20

Press Enter to execute this line. The next line displays:

>  BY CATEGORY

Press Enter to execute this line. The next line displays:

>  WHERE CATEGORY EQ 'DRAMA' OR 'MYSTERY' OR 'CHILDREN'

Press Enter to execute this line. The next line displays:

 >  END

Press Enter to execute this line. The report summary lines display:

NUMBER OF RECORDS IN TABLE=       18  LINES=     18
 
PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY

Press Enter. The first screen of report output displays:

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. The next screen of report output displays:

PAGE     2
 
 
CATEGORY  RATING  DIRECTOR           TITLE
--------  ------  --------           -----
MYSTERY   R       BECKER H.          SEA OF LOVE
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                               END OF REPORT

Press Enter. The next line of the script displays:

>  >  FIN

Press Enter to execute this line.

Once the FIN command executes, you exit FOCUS, so replay ends. However, if you want to invoke FOCUS at this point without replaying the session again, you must clear the FOCREPLAY FILEDEFs. If you do not, the new session output will be appended to the existing output file.

After replaying a session, you have one output file from the recorded session and another output file from the replayed session. You can compare these two output files.

Top of page

Example: Replaying a Recorded FOCUS Session Interactively Under z/OS

The CLIST that invokes FOCUS has the following FOCREPLAY allocations:

The previously recorded script:

ALLOC F(FSC3270Q) DA ('USER1.FSC.SCRIPT') MOD

The output of the replayed session:

ALLOC F(FSC3270O) DA ('USER1.FSC.OUTNEW') MOD

The dummy allocation for DDNAME FSC3270I:
```
ALLOC F(FSC3270I) DUMMY
```

Once the CLIST executes, the first line of the script file displays:

>  >  TABLE FILE MOVIES

You can press Enter, or you can press one of the FOCREPLAY PFkeys described in FOCREPLAY PFKeys.

For this example, press Enter to execute this line. The next line displays:

>  PRINT RATING DIRECTOR TITLE/A20

Press Enter to execute this line. The next line displays:

>  BY CATEGORY

Press Enter to execute this line. The next line displays:

>  WHERE CATEGORY EQ 'DRAMA' OR 'MYSTERY' OR 'CHILDREN'

Press Enter to execute this line. The next line displays:

 >  END

Press Enter to execute this line. The report summary lines display:

NUMBER OF RECORDS IN TABLE=       18  LINES=     18
 
PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY

Press Enter. The first screen of report output displays:

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. The next screen of report output displays:

PAGE     2
 
 
CATEGORY  RATING  DIRECTOR           TITLE
--------  ------  --------           -----
MYSTERY   R       BECKER H.          SEA OF LOVE
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                               END OF REPORT

Press Enter. The next line of the script displays:

>  >  FIN

Press Enter to execute this line.

Once the FIN command executes, you exit FOCUS, so replay ends. However, if you want to invoke FOCUS at this point without replaying the session again, you must free the FOCREPLAY allocations. If you do not, the new session output will be appended to the existing output file.

After replaying a session, you have one output file from the recorded session and another output file from the replayed session. You can compare these two output files.