This section illustrates how to record a FOCUS session.

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 B)
ALLOC F(FSC3270O) NEW DA('USER1.FSC.OUTBASE') ,
                 SPACE(50,10) TRACKS LRECL(23472) BLKSIZE(23476) ,
                 DSORG(PS) RECFM(V B)"

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 script for the new session will be appended to the existing script file and its output will be appended to the existing output file.