Using the EPI Recording and Playback Options › Record an EXEC to Automate Info/Management Inquiries › Build the Rest of the Driver Section Using Recording Commands

Build the Rest of the Driver Section Using Recording Commands

To create the rest of the drive section of the sample EXEC, you would issue the following recording commands in novice mode as follows:

To build the rest of the driver section using recording commands

1. Type this text:
   • Issue the V (Verify data) command on the command line of the EPI Recorder panel.
   • On the TSO session display, block the TSO READY prompt by typing the relative position character over the first and last characters, as follows:

     @EAD@
     

   To produce these results:

   Enable your REXX EXEC to locate the READY prompt and verify that a TSO session is displayed. Issuing this V command builds the following subroutine into your REXX EXEC:

   CALL ATM_VERIFY "VERIFY_RP(READY)"
   

2. Type this text:
   • On the command line of the EPI Recorder panel, issue the L (enter Literal data) command.
   • On the TSO session display, block the READY prompt using the relative position character.
   • Type ISPF seven bytes to the right of @EAD@ on the TSO screen.

   Using a SESSCMD command processor, the EPI sends the text ISPF to the session and enters to the right of the READY prompt. If the automatic ENTER option is set to YES, an ENTER keystroke will also be sent.

   To produce these results:

   Invokes the ISPF Primary Option Menu. Issuing the L command builds the following subroutine into your EXEC:

    CALL ATM_PLACE_CURSOR,
    "INPUT(ISPF                   "||,
    "                             "||,
    "                              )",
    "PLACE_CURS_STR(READY)",
    "PLACE_CURSOR_RP(7)",
    "ENTER(YES)"
   

3. Type this text:
   • On the command line of the EPI Recorder panel, issue the V (Verify data) command.
   • On the ISPF main menu, block the phrase, ISPF Primary Option Menu using the relative position character as follows:

     @SPF/PDF PRIMARY OPTION MEN@
     

   To produce these results:

   Enable your REXX EXEC to determine whether the main ISPF menu is displayed. Issuing this V command builds the following subroutine into your EXEC:

   CALL ATM_VERIFY
   "VERIFY_RP(ISPF/PDF PRIMARY OPTION    MENU)"
   

4. Type this text:
   • On the command line of the EPI Recorder panel, issue the L command.
   • Block the screen text OPTION ===> using the relative position character as follows:

     @PTION ===@
     

   • Type PROD on the command line of the ISPF menu, seven bytes to the right of the O in OPTION.

   Using a SESSCMD command processor, the EPI sends the text PROD to the session and enters it to the right of the command line arrow. If the automatic ENTER option is set to YES, an ENTER keystroke will also be sent.

   To produce these results:

   Display the CA Production Applications menu and place the cursor on the command line of the menu. Issuing this L command builds the following subroutine into your EXEC:

   CALL ATM_PLACE_CURSOR,
    "INPUT(PROD                     )",
    "PLACE_CURS_STR(OPTION ===>)",
    "PLACE_CURSOR_RP(12)",
    "ENTER(YES)""
   

5. Type this text:
   • On the command line of the EPI Recorder panel, issue the V command.
   • On the production applications menu, block the phrase, CA Production Applications, using the relative location character as follows:

     @CA PRODUCTION APPLICATION@
     

   To produce these results:

   Enable your REXX EXEC to determine whether the correct panel is displayed. Issuing this V command builds the following subroutine into your EXEC:

   CALL ATM_VERIFY "VERIFY_RP(CA PRODUCTION APPLICATIONS)"
   

6. Type this text:
   • On the command line of the EPI Recorder panel, issue the L command.
   • On the ISPF menu, block the screen text OPTION ===> using the relative location character as follows:

     @PTION ===@
     

   • Type LS on the command line of the ISPF menu.

   Using a SESSCMD command processor, the EPI sends the text LS to the session and enters it to the right of the Option field. If the automatic ENTER option is set to YES, an ENTER keystroke will also be sent.

   To produce these results:

   Display the logon panel for the CA Support System and place the cursor on the command line. Issuing this L command builds the following subroutine into your EXEC:

   CALL ATM_PLACE_CURSOR,
   "INPUT(LS                         )",
   "PLACE_CURS_STR(OPTION ===>)",
   "PLACE_CURSOR_RP(12)",
   "ENTER(YES)"
   

7. Type this text:
   • On the command line of the EPI Recorder panel, issue the V command.
   • On the logon panel, type the relative location character over the first and last characters of the text CCL09NEW.

   To produce these results:

   Enable your REXX EXEC to confirm that the logon panel is displayed. Issuing this V command builds the following subroutine into your EXEC:

   CALL ATM_VERIFY "VERIFY_RP(CCL09NEW)"
   

8. Type this text:
   • On the command line of the EPI Recorder panel, issue the L command.
   • On the logon panel, block the screen text ===> using the relative location character as follows:

     @==@
     

   Using a SESSCMD command processor, the EPI sends the text 2 to the session and enters it to the right of the ===> field. If the automatic ENTER option is set to YES, an ENTER keystroke will also be sent.

   To produce these results:

   Display the Info/Management Inquiry panel and place the cursor on the command line. Issuing this L command builds the following subroutine into your EXEC:

   CALL ATM_PLACE_CURSOR,
   "INPUT(2                      "||,
   "                              )",
   "PLACE_CURS_STR(===>)",
    "PLACE_CURSOR_RP(5)",
    "ENTER(YES)"
   

9. Type this text:
   • On the command line of the EPI Recorder panel, issue the V command.
   • On the inquiry panel, block the screen text CCL1IC0E using the relative location character as follows:

     @CL1IC0@
     

   Using a SESSCMD command processor, the EPI sends the text 2 to the session and enters it to the right of the ===> field. If the automatic ENTER option is set to YES, an ENTER keystroke will also be sent.

   To produce these results:

   Enable your REXX EXEC to confirm that the inquiry panel is displayed. Issuing this V command builds the following subroutine into your EXEC:

   CALL ATM_VERIFY "VERIFY_RP(CCL1IC0E)"
   

10. Type this text:
    • On the command line of the EPI Recorder panel, issue the L command.
    • On the logon panel, block the screen text ===> using the relative location character as follows:

      @==@
      

    • Type 1 on the command line of the inquiry panel.

    Using a SESSCMD command processor, the EPI sends the text 1 to the session and enters it to the right of the ===> field. If the automatic ENTER option is set to YES, an ENTER keystroke will also be sent.

    To produce these results:

    Display the Incident Search panel and place the cursor on the command line. Issuing this L command builds the following subroutine into your EXEC:

    CALL ATM_PLACE_CURSOR,
     "INPUT(1                   "||,
     "                           )",
     "PLACE_CURS_STR(===>)",
     "PLACE_CURSOR_RP(5)",
     "ENTER(YES)"
    

11. Type this text:
    • On the command line of the EPI Recorder panel, issue the V command.
    • On the Incident Search panel, type the relative location character over the first and last characters of the text CCL2SI0X and the absolute location character over the first and last characters of INCIDENT SEARCH, as follows:

      @CL2SI0@ #NCIDENT SEARC#
      

    To produce these results:

    Enable your REXX EXEC to confirm that the search panel is displayed. Issuing this V command builds the following subroutine into your EXEC:

    CALL ATM_VERIFY,
    "VERIFY_RP(CCL2SI0X)",
     "VERIFY_AP(INCIDENT SEARCH)",
     "REL_POS(30)",
     "LEN_AP(15)"
    

12. Type this text:
    • On the command line of the EPI Recorder panel, issue this command:

      L NOENTER
      

    • On the command line of the Incident Search panel, type this text:

      90
      

    Using a SESSCMD command processor, the EPI sends the text 90 to the session and enters it to the right of the ===> field. The NOENTER clause on the L command lets you override the automatic ENTER option setting of YES, allowing you to set the REXX variable described below before displaying the Table Display Options panel.

    To produce these results:

    Send Info/Management code 90 to the session with no ENTER keystroke. Issuing this L command builds the following subroutine into your EXEC:

    CALL ATM_PLACE_CURSOR,
     "INPUT(90                   "||,
     "                           )",
     "PLACE_CURS_STR(===>)",
     "PLACE_CURSOR_RP(5)",
     "ENTER(NO)"
    

13. Type this text:
    • On the command line of the EPI Recorder panel, issue this command:

      N INC_#
      

    • On the Incident Search panel, type the absolute location character (#) over the first character of the value in the Incident # field.

    To produce these results:

    Fetch the incident number in the Incident # field and place its value in a REXX variable, INC_#. Issuing this N command builds the following subroutine into your EXEC:

    CALL ATM_SESSCMD,
     "INPUT("INC_#")",
     "ROW(5)",
     "COLUMN(29)",
     "ENTER(YES)"
    

14. Type this text:
    • On the command line of the EPI Recorder panel, issue the V command.
    • On the Table Display Options panel, type the relative location character over the first and last characters of the text CCL3II5I and the absolute location character over the first and last characters of TABLE DISPLAY OPTIONS, as follows:

      @CL3II5@ #ABLE DISPLAY OPTION#
      

    To produce these results:

    Enable your REXX EXEC to confirm that the Table Display Options panel is displayed. Issuing this V command builds the following subroutine into your EXEC:

    CALL ATM_VERIFY,
     "VERIFY_RP(CCL2SI0X)",
     "VERIFY_AP(INCIDENT SEARCH)",
     "REL_POS(20)",
     "LEN_AP(21)"
    

15. Type this text:
    • On the command line of the EPI Recorder panel, issue the L command.
    • On the Table Display Options panel, block the screen text CCL3II5I using the relative location character as follows:

      @CL3II5@
      

    • Type 2 on the command line of the Table Display Options panel.

    Using a SESSCMD command processor, the EPI sends the text 2 to the session and enters it to the right of the ===> field.

    To produce these results:

    Selects display option 2, which displays an Info/Management panel containing information about specific support incidents. Issuing this L command builds the following subroutine into your EXEC:

    CALL ATM_PLACE_CURSOR,
     "INPUT(2                   "||,
     "                           )",
     "PLACE_CURS_STR(===>)",
     "PLACE_CURSOR_RP(5)",
     "ENTER(YES)"
    

16. Type this text:
    • On the command line of the EPI Recorder panel, type this command.

      S REC_#
      

    • On the Info/Management panel, block the screen text “RECORD #” using the relative location character as follows::

      @RECORD @
      

    To produce these results:

    Find the value in the Record # field and assign its value to a REXX variable called REC_#. Issuing this S command builds the following subroutine into your EXEC:

     REC_# = ATM_SET_VAR(,
     "SET_VAR_RP(RECORD #)",
     "START_AP(80),
     ""LEN_AP(8)")
    

    The EPI also inserts the following subroutine, which compares the value of the REC_# variable to the value entered earlier for the INC_# variable and issues an error message if the values do not match:

     IF REC_# <> INC_# THEN DO
     SAY"RECORD NUMBER" REC_# "NOT FOUND"
     SIGNAL EXIT_RC8
     END
    

17. Type this text:
    • On the command line of the EPI Recorder panel, type this command:

      S STATUS
      

    • On the incident information panel, block the screen text ST using the relative location character as follows:

      @@
      

    To produce these results:

    Find the value in the Incident Status field and assign its value to a REXX variable called STATUS. Issuing this S command builds the following subroutine into your EXEC:

     STATUS = ATM_SET_VAR(,
     "SET_VAR_RP(ST)",
     "START_AP(80),
     ""LEN_AP(1)")
    

18. Type this text:
    • On the command line of the EPI Recorder panel, type this command:

      A
      

    To produce these results:

    The EPI displays the last group of lines in your EXEC in edit mode. You then insert the following text at the end of the EXEC:

    SAY "STATUS FOR INCIDENT" INC_# "IS" STATUS
    

19. Type this text:
    • On the command line of the EPI Recorder panel, type this command:

      K @3
      

    To produce these results:

    Issue a PF3 keystroke to return you to the Table Display Options panel. Issuing this K command builds the following subroutine into your EXEC:

    CALL ATM_SESSCMD "INPUT(@3)    ENTER(YES)"
    

20. Type this text:
    • On the command line of the EPI Recorder panel, issue the L command.
    • On the Table Display Options panel, block the screen text CCL3II5I using the relative location character as follows:

      @CL3II5@
      

    • Type BACK on the command line of the Table Display Options panel.

    Using a SESSCMD command processor, the EPI sends the text BACK to the session and enters it to the right of the ===> field.

    To produce these results:

    Ensure that you are back at the Table Display Options panel, and then issue the BACK command to return to the Incident Search panel. Issuing this L command builds the following subroutine into your EXEC:

    CALL ATM_PLACE_CURSOR,
    "INPUT(BACK                   "||,
    "                           )",
    "PLACE_CURS_STR(CCL3II5I)",
    "PLACE_CURSOR_RP-155)",
    "ENTER(YES)"
    

21. Type this text:
    • On the command line of the EPI Recorder panel, issue the L command.
    • On the Incident Search panel, block the screen text CCL2SI0X using the relative location character as follows:

      @CL2SI0@
      

    • Type 60 on the command line of the Table Display Options panel.

    Using a SESSCMD command processor, the EPI sends the text 60 to the session and enters it to the right of the ===> field.

    To produce these results:

    Ensure that you are back at the Incident Search panel, and then issue the BACK command to return to the inquiry panel. Issuing this L command builds the following subroutine into your EXEC:

    CALL ATM_PLACE_CURSOR,
    "INPUT(60                   "||,
    "                           )",
    "PLACE_CURS_STR(CCL2SI0X)",
    "PLACE_CURSOR_RP-155)",
    "ENTER(YES)"
    

22. Type this text:
    • On the command line of the EPI Recorder panel, type the L command.
    • On the inquiry panel, type the absolute location character over column 7 of the first screen row.
    • Type Q on the command line of the Table Display Options panel.

    Using a SESSCMD command processor, the EPI sends the text Q to the session and enters it to the right of the ===> field.

    To produce these results:

    Enter a Q command to exit from the CA Support System. Issuing the L command of the EPI Recorder inserts the following subroutine into your EXEC:

    CALL ATM_SESSCMD,
     "INPUT(Q                   "||,
     "                           )",
     "ROW(1)",
     "COLUMN(7)",
     "ENTER(YES)"
    

23. Type this text:

    On the command line of the EPI Recorder panel, type this command:

    K @3
    

    To produce these results:

    Issue a PF3 keystroke to return to the CA Production Applications menu. Issuing this K command builds the following subroutine into your EXEC:

    CALL ATM_SESSCMD "INPUT(@3)  ENTER(YES)"
    

24. Type this text:

    On the command line of the EPI Recorder panel, type this command:

    K @3
    

    To produce these results:

    Issue a PF3 keystroke to return to the ISPF main menu. Issuing this K command builds the following subroutine into your EXEC:

    CALL ATM_SESSCMD "INPUT(@3) ENTER(YES)"