IBM Z and LinuxONE Software

Software

Software

In order to compete you have to be trusted. System software delivers high-performing system and database management, faster insights, secure cloud and agile DevOps, plus the reliability, flexibility and protection you expect from the mainframe.

 View Only
Back to discussions
Expand all | Collapse all

z/OS Debugger 16.0.2

  • 1.  z/OS Debugger 16.0.2

    Posted Fri January 12, 2024 05:02 PM

    Hi,

    I am trying to trace a program with the following script:

    =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
    ****** ***************************** Top of Data ******************************
    000001        AT   35000;
    000002        PERFORM;
    000003        IF APPLICATION-ID OF APPLICATION-REC-KEY NOT = '123456789012345'
    000004       -   THEN
    000005          QUIT DEBUG TASK;
    000006        END-PERFORM;
    000007        GO;
    ****** ********************** Bottom of Data **********************

    I am receiving the following message:

          * EQA1336I IBM z/OS Debugger 16.0.2
          *          01/10/2024 10:00:00 AM
          *          5724-T07: Copyright IBM Corp. 1992, 2022
            USE 'DEBUG.DBGTOOL.COMMANDS(QAOUXPPR)' ;
          *    AT 35683 ;
          * EQA1816E An error was found at line 6 in the current input file.
          * EQA1031I The partially parsed command is:
          * EQA1278I    PERFORM
          * EQA1278I      IF APPLICATION-ID OF APPLICATION-REC-KEY NOT = '123456789012345' THEN
          * EQA1278I        QUIT DEBUG TASK ;
          * EQA1806E The command element END-PERFORM is invalid.
          *    GO ;
          * EQA1890I *** User preferences file commands end ***

    Any help is deeply appreciated.  Thank you.



    ------------------------------
    Girish Sajja
    ------------------------------


  • 2.  RE: z/OS Debugger 16.0.2

    Posted Wed January 17, 2024 02:10 PM

         Girish,

    Did you check out the explanation of the error message EQA1816E ?

     https://www.ibm.com/docs/en/debug-for-zos/15.0?topic=messages-eqa1816e

    It mentions "An error was detected while parsing a command within a USE file, or within a file specified on the run-time TEST option. It occurred at the record number that was displayed."

    So you are using   'DEBUG.DBGTOOL.COMMANDS(QAOUXPPR)'   and you need to check the 6th line in the member QAOUXPPR which is causing the error.



    ------------------------------
    Sri Hari Kolusu
    ------------------------------

    Original Message


  • 3.  RE: z/OS Debugger 16.0.2

    Posted Thu January 18, 2024 01:46 AM

    Hi,

    I have tried coding the script in multiple ways but have not had any luck.  I am trying to model my script according to the following which is specified in the User's Guide with the breakpoint specified as a line statement instead of a global label:

    • COMMANDS IN A COBOL USE FILE MUST BE CODED IN COLUMNS 8-72.
      * IF NECESSARY, COMMANDS CAN BE CONTINUED BY CODING A '-' IN
      * COLUMN 7 OF THE CONTINUATION LINE.
      AT GLOBAL LABEL PERFORM;
      LIST LINES %LINE;
      GO;
      END-PERFORM;


    ------------------------------
    Girish Sajja
    ------------------------------

    Original Message


  • 4.  RE: z/OS Debugger 16.0.2

    Posted Fri January 19, 2024 10:55 AM

    Hi,

    I received a possible solution to this issue, please check this out:

    Try this:
    =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----
000002        AT 52
000003         BEGIN;
000004         IF APPLICATION-ID OF APPLICATION-REC-KEY NOT = '123456789012345';
000005           QUIT DEBUG TASK;
000006         ELSE;
000007           GO;
000008         END-IF;
000009         END;


    ------------------------------
    Chris Sayles
    ------------------------------

    Original Message


  • 5.  RE: z/OS Debugger 16.0.2

    Posted Fri January 19, 2024 10:56 AM

    Also, could try this:

    Also this worked:
    000002       AT  52;
000003        PERFORM;
000004        IF APPLICATION-ID OF APPLICATION-REC-KEY NOT = '123456789012345';
000005         QUIT DEBUG TASK;
000006        ELSE;
000007         GO;
000008        END-IF;
000009        END-PERFORM;


    ------------------------------
    Chris Sayles
    ------------------------------

    Original Message


  • 6.  RE: z/OS Debugger 16.0.2

    Posted Fri January 19, 2024 09:54 AM
    Edited by Vira Badiani Fri January 19, 2024 10:02 AM

    Hi Girish,

    Posting a message from dev team for solution.

    looks like the only thing they were missing was the END-IF.
           AT 35000;
           PERFORM;
           IF APPLICATION-ID OF APPLICATION-REC-KEY NOT = '123456789012345'
          - THEN
             QUIT DEBUG TASK;
           END-IF;             ** I added this line and it works now.
           END-PERFORM;

    Happy to Help! Vira



    ------------------------------
    Vira Badiani

    ------------------------------

    Original Message


  • 7.  RE: z/OS Debugger 16.0.2

    Posted Tue January 23, 2024 02:00 PM

    I agree the "Explanation" for the EQA1806E error could be more clear.  


    Several causes for this: 

    The command element character is not expected.  
    Example(s):
    1) You will get this for END-IF statement if you're not with in a IF clause. 

    2) You will get this for END-PERFORM statement if you're not with in a PERFORM clause. 

    3) You will get this when it's expecting a END-IF to complete an IF clause, but there is an END-PERFORM statement instead. 



    ------------------------------
    Andy Farrell
    ------------------------------

    Original Message


  • 8.  RE: z/OS Debugger 16.0.2

    Posted Mon March 18, 2024 03:20 PM

    Hi,

    I am using the following script but it does not seem to intercept the CALLs - it would be nice to trace the CICS XCTL/LINK and COBOL CALLs.

           at entry qsoswp00 begin;
              list "Path Point Reached";
              at path begin;
                 list lines %line ;
                 go;
              end;
           end;



    ------------------------------
    Girish Sajja
    ------------------------------

    Original Message


  • 9.  RE: z/OS Debugger 16.0.2

    Posted Tue March 19, 2024 11:48 AM

    Have you tried either of these 2 commands?  It might get you close to what you want.

    AT CALL * 

    AT LOAD * 

    For EXEC XCTL and LINK you might want to use:   SET IGNORELINK OFF



    ------------------------------
    Andy Farrell
    ------------------------------

    Original Message


  • 10.  RE: z/OS Debugger 16.0.2

    Posted Wed December 18, 2024 03:43 PM

    Hi,

    I am trying to trace all the programs executed for a given CICS transaction with the following:

     at entry * begin;
        list ( %line , %cu);
        go;
     end;

    But it does not display anything.

    Any assistance would be greatly appreciated.



    ------------------------------
    Girish Sajja
    ------------------------------

    Original Message


  • 11.  RE: z/OS Debugger 16.0.2

    Posted Wed January 08, 2025 11:42 AM

    Can you more detail on how far you are getting on this?    Are you able to bring up the program in the Debugger at all?  Are you running with DTCN or CADP?   Do you have any EQAOPTS file and if so what options are you using?   Can you send the CICS region JCL?



    ------------------------------
    Andy Farrell
    ------------------------------

    Original Message


Related Content