COBOL "StackTrace"

View Only

Back to discussions

Expand all | Collapse all

COBOL "StackTrace"

1. COBOL "StackTrace"

0 Like
Loic Vital-Durand
Posted Thu March 02, 2023 09:39 AM

Reply
Hi all,

In a COBOL subprogram, during execution, how can I find the list of programs that end-up in calling the subprogram (that I called "StackTrace").

This is the kind of information I'm looking for :

Event Fail Module Program EP
# Type Point Name Name Name Event Location (*) Description
-- ------------ ----- -------- -------- -------- ------------------ --------------------------------------------
1 Call DSNECP10 DSNECP10 n/a P+20A From SYS1.F1D200.xxx.SDSNLOAD
2 Call DSNECP10 DSNECP19 n/a P+28D0 From SYS1.F1D200.xxx.SDSNLOAD
3 Link to RO00123 DSNECP10 DSNECP16 n/a P+570 From SYS1.F1D200.xxx.SDSNLOAD
4 Call RO00123 RO00123 RO00123 E+1304 From CTACONV.xxx.LOADLIB
5 Call IGZXLPKA n/a IGZXFCA1 E+342C From SYS1.xxx.SCEERUN
6 Call ***** ABEND ABEND ABEND E+1D0 From CTACONV.xxx.LOADLIB
7 Call IGZXLPKA n/a IGZXFCA1 E+342C From SYS1.xxx.SCEERUN
8 Abend U0100 CEEPLPKA n/a CEL4ABD0 E+234 ABEND and optionally clean-up; From LPA

I though about using CEETBCK (CEETBCK - traceback utility (replaces CEETRCB) - IBM Documentation) But I can't figure how to call this utility from the subprogram nor how the result will look like.

Any help will be highly appreciated.

------------------------------
Loic Vital-Durand
------------------------------

2. RE: COBOL "StackTrace"

Like

Roy Bae

Posted Thu March 09, 2023 09:32 AM

Hello, what about 'CEE3DMP' ?

For the demonstration, I include a program and its output:

      CBL LIB,QUOTE
       IDENTIFICATION DIVISION.
       PROGRAM-ID. COBMAIN.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       PROCEDURE DIVISION.
            CALL 'CBL3DMP'
            STOP RUN.
       END PROGRAM COBMAIN.

      **********************************

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CBL3DMP.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  DMPTITL                 PIC X(80).
       01  OPTIONS                 PIC X(255).
       01  FC.
           02  Condition-Token-Value.
      *
      *    COPY  CEEIGZCT.
      * CEEIGZCT is found from CEE.SCEESAMP(CEEIGZCT)
      *
           88  CEE000       VALUE X'0000000000000000'.
               03  Case-1-Condition-ID.
                   04  Severity    PIC S9(4) BINARY.
                   04  Msg-No      PIC S9(4) BINARY.
               03  Case-2-Condition-ID
                         REDEFINES Case-1-Condition-ID.
                   04  Class-Code  PIC S9(4) BINARY.
                   04  Cause-Code  PIC S9(4) BINARY.
               03  Case-Sev-Ctl    PIC X.
               03  Facility-ID     PIC XXX.
           02  I-S-Info            PIC S9(9) BINARY.
       PROCEDURE DIVISION.
       PARA-CBL3DMP.
           MOVE "This is the dump report title."
                 TO DMPTITL.
           MOVE "TRACE NOVAR SF(0) NOCOND NOENTRY"
                 TO OPTIONS.

           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.
           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.
           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.
           IF NOT CEE000 of FC  THEN
               DISPLAY "CEE3DMP failed with msg "
                   Msg-No of FC UPON CONSOLE
               STOP RUN
           END-IF.

           GOBACK.

The program generates a single dump file and its contents is:

CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1
ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:

CEE3845I CEEDUMP Processing started.

Information for enclave COBMAIN

  Information for thread 2714000000000001

  Traceback:
    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status
    1     CBL3DMP     +000001A8              x1                   CBL3DMP                                 Call
    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call

    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes
    1     26D191C0   2680A720   2680A720   +000001A8  20230308   COBOLV5+  POSIX EBCDIC  HFP
    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP

    Fully Qualified Names
    DSA   Entry       Program Unit                                        Load Module
    1     CBL3DMP     CBL3DMP                                             ./x1
    2     COBMAIN     COBMAIN                                             ./x1
CEE3846I CEEDUMP Processing completed.
CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1
ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:

CEE3845I CEEDUMP Processing started.

Information for enclave COBMAIN

  Information for thread 2714000000000001

  Traceback:
    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status
    1     CBL3DMP     +000001DE              x1                   CBL3DMP                                 Call
    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call

    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes
    1     26D191C0   2680A720   2680A720   +000001DE  20230308   COBOLV5+  POSIX EBCDIC  HFP
    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP

    Fully Qualified Names
    DSA   Entry       Program Unit                                        Load Module
    1     CBL3DMP     CBL3DMP                                             ./x1
    2     COBMAIN     COBMAIN                                             ./x1
CEE3846I CEEDUMP Processing completed.
CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1
ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:

CEE3845I CEEDUMP Processing started.

Information for enclave COBMAIN

  Information for thread 2714000000000001

  Traceback:
    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status
    1     CBL3DMP     +00000214              x1                   CBL3DMP                                 Call
    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call

    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes
    1     26D191C0   2680A720   2680A720   +00000214  20230308   COBOLV5+  POSIX EBCDIC  HFP
    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP

    Fully Qualified Names
    DSA   Entry       Program Unit                                        Load Module
    1     CBL3DMP     CBL3DMP                                             ./x1
    2     COBMAIN     COBMAIN                                             ./x1
CEE3846I CEEDUMP Processing completed.

------------------------------
Roy Bae
------------------------------

Original Message

3. RE: COBOL "StackTrace"

Like

Loic Vital-Durand

Posted Fri March 10, 2023 02:26 AM
Edited by Loic Vital-Durand Fri March 10, 2023 09:54 AM

Hello Roy,

Thanks a lot for well explained reply.

CEE3DMP produce exactly the kind of stack trace I need but it produce it in a file while I need to have the result as a response inside my subprogram.

I'll check if there is a way to get the CEE3DMP result in my subprogram (instead of a file) and test as much as I can.

....

I tried all day long but couldn't find a way to get the dump created by CEE3DMP into the subprogram that call CEE3DMP !

It would have been great but unfortunately it does not full fill my need completely.

By the way I should have mentioned that I'm trying to find the stack trace to be able to find out all programs calling an existing subprogram with changing the calling programs.

------------------------------
Loic Vital-Durand
------------------------------

Original Message

Original Message:
Sent: Wed March 08, 2023 03:54 PM
From: Roy Bae
Subject: COBOL "StackTrace"

Hello, what about 'CEE3DMP' ?

For the demonstration, I include a program and its output:

      CBL LIB,QUOTE       IDENTIFICATION DIVISION.       PROGRAM-ID. COBMAIN.       DATA DIVISION.       WORKING-STORAGE SECTION.       PROCEDURE DIVISION.            CALL 'CBL3DMP'            STOP RUN.       END PROGRAM COBMAIN.      **********************************       IDENTIFICATION DIVISION.       PROGRAM-ID. CBL3DMP.       DATA DIVISION.       WORKING-STORAGE SECTION.       01  DMPTITL                 PIC X(80).       01  OPTIONS                 PIC X(255).       01  FC.           02  Condition-Token-Value.      *      *    COPY  CEEIGZCT.      * CEEIGZCT is found from CEE.SCEESAMP(CEEIGZCT)      *           88  CEE000       VALUE X'0000000000000000'.               03  Case-1-Condition-ID.                   04  Severity    PIC S9(4) BINARY.                   04  Msg-No      PIC S9(4) BINARY.               03  Case-2-Condition-ID                         REDEFINES Case-1-Condition-ID.                   04  Class-Code  PIC S9(4) BINARY.                   04  Cause-Code  PIC S9(4) BINARY.               03  Case-Sev-Ctl    PIC X.               03  Facility-ID     PIC XXX.           02  I-S-Info            PIC S9(9) BINARY.       PROCEDURE DIVISION.       PARA-CBL3DMP.           MOVE "This is the dump report title."                 TO DMPTITL.           MOVE "TRACE NOVAR SF(0) NOCOND NOENTRY"                 TO OPTIONS.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           IF NOT CEE000 of FC  THEN               DISPLAY "CEE3DMP failed with msg "                   Msg-No of FC UPON CONSOLE               STOP RUN           END-IF.           GOBACK.

The program generates a single dump file and its contents is:

CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +000001A8              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +000001A8  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +000001DE              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +000001DE  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +00000214              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +00000214  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.

------------------------------
Roy Bae

Original Message:
Sent: Thu March 02, 2023 02:57 AM
From: Loic Vital-Durand
Subject: COBOL "StackTrace"

Hi all,

In a COBOL subprogram, during execution, how can I find the list of programs that end-up in calling the subprogram (that I called "StackTrace").

This is the kind of information I'm looking for :

Event Fail Module Program EP
# Type Point Name Name Name Event Location (*) Description
-- ------------ ----- -------- -------- -------- ------------------ --------------------------------------------
1 Call DSNECP10 DSNECP10 n/a P+20A From SYS1.F1D200.xxx.SDSNLOAD
2 Call DSNECP10 DSNECP19 n/a P+28D0 From SYS1.F1D200.xxx.SDSNLOAD
3 Link to RO00123 DSNECP10 DSNECP16 n/a P+570 From SYS1.F1D200.xxx.SDSNLOAD
4 Call RO00123 RO00123 RO00123 E+1304 From CTACONV.xxx.LOADLIB
5 Call IGZXLPKA n/a IGZXFCA1 E+342C From SYS1.xxx.SCEERUN
6 Call ***** ABEND ABEND ABEND E+1D0 From CTACONV.xxx.LOADLIB
7 Call IGZXLPKA n/a IGZXFCA1 E+342C From SYS1.xxx.SCEERUN
8 Abend U0100 CEEPLPKA n/a CEL4ABD0 E+234 ABEND and optionally clean-up; From LPA

I though about using CEETBCK (CEETBCK - traceback utility (replaces CEETRCB) - IBM Documentation) But I can't figure how to call this utility from the subprogram nor how the result will look like.

Any help will be highly appreciated.

------------------------------
Loic Vital-Durand
------------------------------

4. RE: COBOL "StackTrace"

Like

Roy Bae

Posted Fri March 10, 2023 01:21 PM

Another idea is to use CEE3DMP with //CEEDUMP DD DSN=<your-own-DD> and then to let other program open and parse the CEEDUMP saved in <your-own-DD>. That is, post processing.

------------------------------
Roy Bae
------------------------------

Original Message

Original Message:
Sent: Fri March 10, 2023 02:26 AM
From: Loic Vital-Durand
Subject: COBOL "StackTrace"

Hello Roy,

Thanks a lot for well explained reply.

CEE3DMP produce exactly the kind of stack trace I need but it produce it in a file while I need to have the result as a response inside my subprogram.

I'll check if there is a way to get the CEE3DMP result in my subprogram (instead of a file) and test as much as I can.

....

I tried all day long but couldn't find a way to get the dump created by CEE3DMP into the subprogram that call CEE3DMP !

It would have been great but unfortunately it does not full fill my need completely.

By the way I should have mentioned that I'm trying to find the stack trace to be able to find out all programs calling an existing subprogram with changing the calling programs.

------------------------------
Loic Vital-Durand

Original Message:
Sent: Wed March 08, 2023 03:54 PM
From: Roy Bae
Subject: COBOL "StackTrace"

Hello, what about 'CEE3DMP' ?

For the demonstration, I include a program and its output:

      CBL LIB,QUOTE       IDENTIFICATION DIVISION.       PROGRAM-ID. COBMAIN.       DATA DIVISION.       WORKING-STORAGE SECTION.       PROCEDURE DIVISION.            CALL 'CBL3DMP'            STOP RUN.       END PROGRAM COBMAIN.      **********************************       IDENTIFICATION DIVISION.       PROGRAM-ID. CBL3DMP.       DATA DIVISION.       WORKING-STORAGE SECTION.       01  DMPTITL                 PIC X(80).       01  OPTIONS                 PIC X(255).       01  FC.           02  Condition-Token-Value.      *      *    COPY  CEEIGZCT.      * CEEIGZCT is found from CEE.SCEESAMP(CEEIGZCT)      *           88  CEE000       VALUE X'0000000000000000'.               03  Case-1-Condition-ID.                   04  Severity    PIC S9(4) BINARY.                   04  Msg-No      PIC S9(4) BINARY.               03  Case-2-Condition-ID                         REDEFINES Case-1-Condition-ID.                   04  Class-Code  PIC S9(4) BINARY.                   04  Cause-Code  PIC S9(4) BINARY.               03  Case-Sev-Ctl    PIC X.               03  Facility-ID     PIC XXX.           02  I-S-Info            PIC S9(9) BINARY.       PROCEDURE DIVISION.       PARA-CBL3DMP.           MOVE "This is the dump report title."                 TO DMPTITL.           MOVE "TRACE NOVAR SF(0) NOCOND NOENTRY"                 TO OPTIONS.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           IF NOT CEE000 of FC  THEN               DISPLAY "CEE3DMP failed with msg "                   Msg-No of FC UPON CONSOLE               STOP RUN           END-IF.           GOBACK.

The program generates a single dump file and its contents is:

CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +000001A8              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +000001A8  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +000001DE              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +000001DE  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +00000214              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +00000214  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.

------------------------------
Roy Bae

Original Message:
Sent: Thu March 02, 2023 02:57 AM
From: Loic Vital-Durand
Subject: COBOL "StackTrace"

Hi all,

In a COBOL subprogram, during execution, how can I find the list of programs that end-up in calling the subprogram (that I called "StackTrace").

This is the kind of information I'm looking for :

Event Fail Module Program EP
# Type Point Name Name Name Event Location (*) Description
-- ------------ ----- -------- -------- -------- ------------------ --------------------------------------------
1 Call DSNECP10 DSNECP10 n/a P+20A From SYS1.F1D200.xxx.SDSNLOAD
2 Call DSNECP10 DSNECP19 n/a P+28D0 From SYS1.F1D200.xxx.SDSNLOAD
3 Link to RO00123 DSNECP10 DSNECP16 n/a P+570 From SYS1.F1D200.xxx.SDSNLOAD
4 Call RO00123 RO00123 RO00123 E+1304 From CTACONV.xxx.LOADLIB
5 Call IGZXLPKA n/a IGZXFCA1 E+342C From SYS1.xxx.SCEERUN
6 Call ***** ABEND ABEND ABEND E+1D0 From CTACONV.xxx.LOADLIB
7 Call IGZXLPKA n/a IGZXFCA1 E+342C From SYS1.xxx.SCEERUN
8 Abend U0100 CEEPLPKA n/a CEL4ABD0 E+234 ABEND and optionally clean-up; From LPA

I though about using CEETBCK (CEETBCK - traceback utility (replaces CEETRCB) - IBM Documentation) But I can't figure how to call this utility from the subprogram nor how the result will look like.

Any help will be highly appreciated.

------------------------------
Loic Vital-Durand
------------------------------

5. RE: COBOL "StackTrace"

Like

Roy Bae

Posted Fri March 10, 2023 02:05 PM

Hello Loic,

COBOL is not good at this. I also have googled about it and it appears that everyone suggests to use different languages rather than COBOL. So I decided to try it myself in COBOL and would like to share my experience and codes. The most challenging part was to find an address of CAA and DSA, and to call CEETBCK from COBOL. I worked around it using an assembler program. The outcome looks good to me but note that I did not test thoroughly; my intention is to provide a starting point. I hope this helps!

The overall scenario is

1) COBMAIN calls COBSUB
2) COBSUB calls COBTRACE
3-1) COBTRACE calls GETINFO written in ASM to find CAA, DSA, and CEETBCK.
3-2) COBTRACE calls CEETBCK repeatedly

To try the sample codes below,

1) COMPILE COBMAIN PROGRAM(COBOL)
Note it is a single COBOL source that contains all other nested COBOL programs(COBMAIN, COBSUB, COBTRACE)
2) COMPILE GEINFO(ASM) PROGRAM
3) LINK COBMAIN AND GEINFO
4) RUN

ACTUAL OUTPUT

-------------------------------------------------
COBTRACE
-------------------------------------------------
DSAPTR                   :26DED350
DSA_FORMAT               :00000000
CAAPTR                   :2681D1E8
MEMBER_ID                :00000004
PROGRAM_UNIT_NAME        :C3D6C2E3D9C1C3C5
PROGRAM_UNIT_NAME_LENGTH :00000008
PROGRAM_UNIT_ADDRESS     :2680B6E8
CALL_INSTRUCTION_ADDRESS :2680BA10
ENTRY_NAME               :C3D6C2E3D9C1C3C5
ENTRY_NAME_LENGTH        :00000008
ENTRY_ADDRESS            :2680B6E8
CALLERS_CALL_INST_ADDRESS:2680A8AC
CALLERS_DSAPTR           :26DED1C0
CALLERS_DSA_FORMAT       :00000000
STATEMENT_ID             :4040404040404040
STATEMENT_ID_LENGTH      :00000000
CIBPTR                   :00000000
MAIN_PROGRAM             :00000000
FC                       :000000000000000000000000
-------------------------------------------------
COBSUB
-------------------------------------------------
DSAPTR                   :26DED1C0
DSA_FORMAT               :00000000
CAAPTR                   :2681D1E8
MEMBER_ID                :00000004
PROGRAM_UNIT_NAME        :C3D6C2E2E4C2
PROGRAM_UNIT_NAME_LENGTH :00000006
PROGRAM_UNIT_ADDRESS     :2680A740
CALL_INSTRUCTION_ADDRESS :2680A8AC
ENTRY_NAME               :C3D6C2E2E4C2
ENTRY_NAME_LENGTH        :00000006
ENTRY_ADDRESS            :2680A740
CALLERS_CALL_INST_ADDRESS:2680A16C
CALLERS_DSAPTR           :26DED030
CALLERS_DSA_FORMAT       :00000000
STATEMENT_ID             :4040404040404040
STATEMENT_ID_LENGTH      :00000000
CIBPTR                   :00000000
MAIN_PROGRAM             :00000000
FC                       :000000000000000000000000
-------------------------------------------------
COBMAIN
-------------------------------------------------
DSAPTR                   :26DED030
DSA_FORMAT               :00000000
CAAPTR                   :2681D1E8
MEMBER_ID                :00000004
PROGRAM_UNIT_NAME        :C3D6C2D4C1C9D5
PROGRAM_UNIT_NAME_LENGTH :00000007
PROGRAM_UNIT_ADDRESS     :2680A000
CALL_INSTRUCTION_ADDRESS :2680A16C
ENTRY_NAME               :C3D6C2D4C1C9D5
ENTRY_NAME_LENGTH        :00000007
ENTRY_ADDRESS            :2680A000
CALLERS_CALL_INST_ADDRESS:0000C3AE
CALLERS_DSAPTR           :00000000
CALLERS_DSA_FORMAT       :00000000
STATEMENT_ID             :4040404040404040
STATEMENT_ID_LENGTH      :00000000
CIBPTR                   :00000000
MAIN_PROGRAM             :00000001
FC                       :000000000000000000000000

COBMAIN COBOL SOURCE

      *  1         2         3         4         5         6         7
      *89012345678901234567890123456789012345678901234567890123456789012
      ****************************************************
      * BUILD INFO:
      *  1) COMPILE THIS PROGRAM(COBOL)
      *  2) COMPILE GEINFO(ASM) PROGRAM
      *  3) LINK COBMAIN AND GEINFO
      *  4) RUN
      *
      * OVERALL SCENARIO:
      *  1) COBMAIN CALLS COBSUB
      *  2) COBSUB  CALLS COBTRACE
      ****************************************************
      *
      * COBMAIN - CALL COBSUB
      *
      ****************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. COBMAIN.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       PROCEDURE DIVISION.
            CALL 'COBSUB'
            STOP RUN.
       END PROGRAM COBMAIN.

      ****************************************************
      *
      * COBSUB - CALL COBTRACE
      *
      ****************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. COBSUB.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       PROCEDURE DIVISION.
            CALL 'COBTRACE'
            GOBACK.
       END PROGRAM COBSUB.

      ****************************************************
      *
      * COBTRACE
      * 1) CALL GETINFO(ASM) TO FIND CAA,DSA,CEETBCK
      * 2) CALL CEETBCK REPEATEDLY
      *
      ****************************************************
        IDENTIFICATION DIVISION.
        PROGRAM-ID. COBTRACE.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 CEETBCK USAGE FUNCTION-POINTER.

      *-------------------------------------------------
      * CEETBCK INTERFACE (FROM IBM LE VENDOR INTERFACE)
      *-------------------------------------------------
      *POINTER   *DSAPTR;                    INPUT
      *INT4      *DSA_FORMAT;                INPUT/OUTPUT
      *POINTER   *CAAPTR;                    INPUT
      *INT4      *MEMBER_ID;                       OUTPUT
      *CHARN     *PROGRAM_UNIT_NAME;               OUTPUT
      *INT4      *PROGRAM_UNIT_NAME_LENGTH;  INPUT/OUTPUT
      *INT4      *PROGRAM_UNIT_ADDRESS;            OUTPUT
      *INT4      *CALL_INSTRUCTION_ADDRESS;  INPUT/OUTPUT
      *CHARN     *ENTRY_NAME;                      OUTPUT
      *INT4      *ENTRY_NAME_LENGTH;         INPUT/OUTPUT
      *INT4      *ENTRY_ADDRESS;                   OUTPUT
      *INT4      *CALLERS_CALL_INSTRUCTION_ADDRESS OUTPUT
      *POINTER   *CALLERS_DSAPTR;                  OUTPUT
      *INT4      *CALLERS_DSA_FORMAT;              OUTPUT
      *CHARN     *STATEMENT_ID;                    OUTPUT
      *INT4      *STATEMENT_ID_LENGTH;       INPUT/OUTPUT
      *POINTER   *CIBPTR;                          OUTPUT
      *INT4      *MAIN_PROGRAM;                    OUTPUT
      *FEED_BACK *FC;                              OUTPUT
        01 ARGS.
          02 DSAPTR                     USAGE POINTER   .
          02 DSA_FORMAT                 PIC 9(9) COMP-4 .
          02 CAAPTR                     USAGE POINTER   .
          02 MEMBER_ID                  PIC 9(9) COMP-4 .
          02 PROGRAM_UNIT_NAME          PIC X(8)        .
          02 PROGRAM_UNIT_NAME_LENGTH   PIC 9(9) COMP-4 .
          02 PROGRAM_UNIT_ADDRESS       PIC 9(9) COMP-4 .
          02 CALL_INSTRUCTION_ADDRESS   PIC 9(9) COMP-4 .
          02 ENTRY_NAME                 PIC X(8)        .
          02 ENTRY_NAME_LENGTH          PIC 9(9) COMP-4 .
          02 ENTRY_ADDRESS              PIC 9(9) COMP-4 .
          02 CALLERS_CALL_INST_ADDRESS  PIC 9(9) COMP-4 .
          02 CALLERS_DSAPTR             USAGE POINTER   .
          02 CALLERS_DSA_FORMAT         PIC 9(9) COMP-4 .
          02 STATEMENT_ID               PIC X(8)        .
          02 STATEMENT_ID_LENGTH        PIC 9(9) COMP-4 .
          02 CIBPTR                     USAGE POINTER   .
          02 MAIN_PROGRAM               PIC 9(9) COMP-4 .
          02  FC.
            03  CONDITION-TOKEN-VALUE.
      *    COPY  CEEIGZCT.
      * CEEIGZCT IS FOUND FROM CEE.SCEESAMP(CEEIGZCT)
            88  CEE000       VALUE X'0000000000000000'.
                04  CASE-1-CONDITION-ID.
                    05  SEVERITY    PIC S9(4) BINARY.
                    05  MSG-NO      PIC S9(4) BINARY.
                04  CASE-2-CONDITION-ID
                          REDEFINES CASE-1-CONDITION-ID.
                    05  CLASS-CODE  PIC S9(4) BINARY.
                    05  CAUSE-CODE  PIC S9(4) BINARY.
                04  CASE-SEV-CTL    PIC X.
                04  FACILITY-ID     PIC XXX.
            03  I-S-INFO            PIC S9(9) BINARY.


        01 ENTRY_NAME_DISPLAY PIC X(8).

        PROCEDURE DIVISION.
      *-------------------------------------------------
        BEGIN.
      * RESET
            MOVE LOW-VALUES TO ARGS

      * INIT
            MOVE 0 TO DSA_FORMAT
            MOVE 8 TO PROGRAM_UNIT_NAME_LENGTH
            MOVE 8 TO ENTRY_NAME_LENGTH
            MOVE 8 TO STATEMENT_ID_LENGTH
      *
      * CALL GETINFO(ASM) TO GET CAAPTR DSAPTR CEETBCK
      *
            CALL 'GETINFO' USING CAAPTR DSAPTR CEETBCK

      *
      * DEBUGGING
      *
      *     DISPLAY FUNCTION HEX-OF(CAAPTR)
      *     DISPLAY FUNCTION HEX-OF(DSAPTR)
      *     DISPLAY FUNCTION HEX-OF(CEETBCK)

      *
      * CALL CALL-CEETBCK REPEATEDLY UNTIL MAIN PROGRAM IS FOUND
      *
            PERFORM CALL-CEETBCK UNTIL MAIN_PROGRAM = 1
            GOBACK
            .
      *-------------------------------------------------
        CALL-CEETBCK.
      *
      * CALL CEETBC
      *
            CALL CEETBCK USING
                          DSAPTR
                          DSA_FORMAT
                          CAAPTR
                          MEMBER_ID
                          PROGRAM_UNIT_NAME
                          PROGRAM_UNIT_NAME_LENGTH
                          PROGRAM_UNIT_ADDRESS
                          CALL_INSTRUCTION_ADDRESS
                          ENTRY_NAME
                          ENTRY_NAME_LENGTH
                          ENTRY_ADDRESS
                          CALLERS_CALL_INST_ADDRESS
                          CALLERS_DSAPTR
                          CALLERS_DSA_FORMAT
                          STATEMENT_ID
                          STATEMENT_ID_LENGTH
                          CIBPTR
                          MAIN_PROGRAM
                          FC

      *
      * DISPLAY THE RESULT OF CEETBCK
      *
            MOVE ENTRY_NAME TO ENTRY_NAME_DISPLAY
            DISPLAY "-------------------------------------------------"
            DISPLAY ENTRY_NAME_DISPLAY
            DISPLAY "-------------------------------------------------"
            DISPLAY "DSAPTR                   :"
                    FUNCTION HEX-OF(DSAPTR                   )
            DISPLAY "DSA_FORMAT               :"
                    FUNCTION HEX-OF(DSA_FORMAT               )
            DISPLAY "CAAPTR                   :"
                    FUNCTION HEX-OF(CAAPTR                   )
            DISPLAY "MEMBER_ID                :"
                    FUNCTION HEX-OF(MEMBER_ID                )
            DISPLAY "PROGRAM_UNIT_NAME        :"
                    FUNCTION HEX-OF(
                      PROGRAM_UNIT_NAME(1:PROGRAM_UNIT_NAME_LENGTH))
            DISPLAY "PROGRAM_UNIT_NAME_LENGTH :"
                    FUNCTION HEX-OF(PROGRAM_UNIT_NAME_LENGTH )
            DISPLAY "PROGRAM_UNIT_ADDRESS     :"
                    FUNCTION HEX-OF(PROGRAM_UNIT_ADDRESS     )
            DISPLAY "CALL_INSTRUCTION_ADDRESS :"
                    FUNCTION HEX-OF(CALL_INSTRUCTION_ADDRESS )
            DISPLAY "ENTRY_NAME               :"
                    FUNCTION HEX-OF(ENTRY_NAME(1:ENTRY_NAME_LENGTH))
            DISPLAY "ENTRY_NAME_LENGTH        :"
                    FUNCTION HEX-OF(ENTRY_NAME_LENGTH        )
            DISPLAY "ENTRY_ADDRESS            :"
                    FUNCTION HEX-OF(ENTRY_ADDRESS            )
            DISPLAY "CALLERS_CALL_INST_ADDRESS:"
                    FUNCTION HEX-OF(CALLERS_CALL_INST_ADDRESS)
            DISPLAY "CALLERS_DSAPTR           :"
                    FUNCTION HEX-OF(CALLERS_DSAPTR           )
            DISPLAY "CALLERS_DSA_FORMAT       :"
                    FUNCTION HEX-OF(CALLERS_DSA_FORMAT       )
            DISPLAY "STATEMENT_ID             :"
                    FUNCTION HEX-OF(STATEMENT_ID             )
            DISPLAY "STATEMENT_ID_LENGTH      :"
                    FUNCTION HEX-OF(STATEMENT_ID_LENGTH      )
            DISPLAY "CIBPTR                   :"
                    FUNCTION HEX-OF(CIBPTR                   )
            DISPLAY "MAIN_PROGRAM             :"
                    FUNCTION HEX-OF(MAIN_PROGRAM             )
            DISPLAY "FC                       :"
                    FUNCTION HEX-OF(FC)
      *
      * PREP BEFORE CALLING TO CEETBCK
      *
            SET DSAPTR TO CALLERS_DSAPTR
            MOVE CALLERS_DSA_FORMAT TO DSA_FORMAT
            MOVE 8 TO PROGRAM_UNIT_NAME_LENGTH
            MOVE 8 TO ENTRY_NAME_LENGTH
            MOVE 8 TO STATEMENT_ID_LENGTH
            MOVE CALLERS_CALL_INST_ADDRESS TO
                         CALL_INSTRUCTION_ADDRESS
            .

        END PROGRAM COBTRACE.
      *  1         2         3         4         5         6         7
      *89012345678901234567890123456789012345678901234567890123456789012

GETINFO ASM SOURCE

GETINFO   CSECT
GETINFO   AMODE 31
GETINFO   RMODE ANY
**********************************************
* OBTAIN CAA, DSA, AND CEETBCK
*
* R1(ARG) OFFSET+0 = ADDRESS OF CAA STORAGE
*         OFFSET+4 = ADDRESS OF DSA STORAGE
*         OFFSET+8 = ADDRESS OF CEETBCK STORAGE
**********************************************
*
* GET CAAPTR
          L     15,0(1)  * LOAD FIRST ARG TO R15
          ST    12,0(15) * R12 = CAAPTR
* GET DSAPTR
          L     15,4(1)  * LOAD SECOND ARG TO R15
          ST    13,0(15) * R13 = DSAPTR
* GET CEETBCK
          L     15,8(1)  * LOAD THIRD ARG TO R15
*
*     IBM VENDOR INTERFACE SAYS:
*
*         L     R15,CEECAALEOV-CEECAA(,R12)
*         L     R15,304(,R15)
*         BALR  R14,R15
*
          L     12,816(12) * 816: CEECAALEOV-CEECAA(,R12)
          L     12,304(12) *
          ST    12,0(15)
* BACK TO CALLER
          BR    14
          END

------------------------------
Roy Bae
------------------------------

Original Message

Original Message:
Sent: Fri March 10, 2023 02:26 AM
From: Loic Vital-Durand
Subject: COBOL "StackTrace"

Hello Roy,

Thanks a lot for well explained reply.

CEE3DMP produce exactly the kind of stack trace I need but it produce it in a file while I need to have the result as a response inside my subprogram.

I'll check if there is a way to get the CEE3DMP result in my subprogram (instead of a file) and test as much as I can.

....

I tried all day long but couldn't find a way to get the dump created by CEE3DMP into the subprogram that call CEE3DMP !

It would have been great but unfortunately it does not full fill my need completely.

By the way I should have mentioned that I'm trying to find the stack trace to be able to find out all programs calling an existing subprogram with changing the calling programs.

------------------------------
Loic Vital-Durand

Original Message:
Sent: Wed March 08, 2023 03:54 PM
From: Roy Bae
Subject: COBOL "StackTrace"

Hello, what about 'CEE3DMP' ?

For the demonstration, I include a program and its output:

      CBL LIB,QUOTE       IDENTIFICATION DIVISION.       PROGRAM-ID. COBMAIN.       DATA DIVISION.       WORKING-STORAGE SECTION.       PROCEDURE DIVISION.            CALL 'CBL3DMP'            STOP RUN.       END PROGRAM COBMAIN.      **********************************       IDENTIFICATION DIVISION.       PROGRAM-ID. CBL3DMP.       DATA DIVISION.       WORKING-STORAGE SECTION.       01  DMPTITL                 PIC X(80).       01  OPTIONS                 PIC X(255).       01  FC.           02  Condition-Token-Value.      *      *    COPY  CEEIGZCT.      * CEEIGZCT is found from CEE.SCEESAMP(CEEIGZCT)      *           88  CEE000       VALUE X'0000000000000000'.               03  Case-1-Condition-ID.                   04  Severity    PIC S9(4) BINARY.                   04  Msg-No      PIC S9(4) BINARY.               03  Case-2-Condition-ID                         REDEFINES Case-1-Condition-ID.                   04  Class-Code  PIC S9(4) BINARY.                   04  Cause-Code  PIC S9(4) BINARY.               03  Case-Sev-Ctl    PIC X.               03  Facility-ID     PIC XXX.           02  I-S-Info            PIC S9(9) BINARY.       PROCEDURE DIVISION.       PARA-CBL3DMP.           MOVE "This is the dump report title."                 TO DMPTITL.           MOVE "TRACE NOVAR SF(0) NOCOND NOENTRY"                 TO OPTIONS.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           IF NOT CEE000 of FC  THEN               DISPLAY "CEE3DMP failed with msg "                   Msg-No of FC UPON CONSOLE               STOP RUN           END-IF.           GOBACK.

The program generates a single dump file and its contents is:

CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +000001A8              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +000001A8  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +000001DE              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +000001DE  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +00000214              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +00000214  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.

------------------------------
Roy Bae

Original Message:
Sent: Thu March 02, 2023 02:57 AM
From: Loic Vital-Durand
Subject: COBOL "StackTrace"

Hi all,

In a COBOL subprogram, during execution, how can I find the list of programs that end-up in calling the subprogram (that I called "StackTrace").

This is the kind of information I'm looking for :

Event Fail Module Program EP
# Type Point Name Name Name Event Location (*) Description
-- ------------ ----- -------- -------- -------- ------------------ --------------------------------------------
1 Call DSNECP10 DSNECP10 n/a P+20A From SYS1.F1D200.xxx.SDSNLOAD
2 Call DSNECP10 DSNECP19 n/a P+28D0 From SYS1.F1D200.xxx.SDSNLOAD
3 Link to RO00123 DSNECP10 DSNECP16 n/a P+570 From SYS1.F1D200.xxx.SDSNLOAD
4 Call RO00123 RO00123 RO00123 E+1304 From CTACONV.xxx.LOADLIB
5 Call IGZXLPKA n/a IGZXFCA1 E+342C From SYS1.xxx.SCEERUN
6 Call ***** ABEND ABEND ABEND E+1D0 From CTACONV.xxx.LOADLIB
7 Call IGZXLPKA n/a IGZXFCA1 E+342C From SYS1.xxx.SCEERUN
8 Abend U0100 CEEPLPKA n/a CEL4ABD0 E+234 ABEND and optionally clean-up; From LPA

I though about using CEETBCK (CEETBCK - traceback utility (replaces CEETRCB) - IBM Documentation) But I can't figure how to call this utility from the subprogram nor how the result will look like.

Any help will be highly appreciated.

------------------------------
Loic Vital-Durand
------------------------------

6. RE: COBOL "StackTrace"

Like

Loic Vital-Durand

Posted Tue March 14, 2023 09:22 AM

Thank you so much Roy,

I'm fighting to compile the assembler in my workplace, but I'll succeed.

This is really great and I'll keep you updated of the final result.

------------------------------
Loic Vital-Durand
------------------------------

Original Message

Original Message:
Sent: Fri March 10, 2023 12:43 PM
From: Roy Bae
Subject: COBOL "StackTrace"

Hello Loic,

COBOL is not good at this. I also have googled about it and it appears that everyone suggests to use different languages rather than COBOL. So I decided to try it myself in COBOL and would like to share my experience and codes. The most challenging part was to find an address of CAA and DSA, and to call CEETBCK from COBOL. I worked around it using an assembler program. The outcome looks good to me but note that I did not test thoroughly; my intention is to provide a starting point. I hope this helps!

The overall scenario is

1) COBMAIN calls COBSUB
2) COBSUB calls COBTRACE
3-1) COBTRACE calls GETINFO written in ASM to find CAA, DSA, and CEETBCK.
3-2) COBTRACE calls CEETBCK repeatedly

To try the sample codes below,

1) COMPILE COBMAIN PROGRAM(COBOL)
Note it is a single COBOL source that contains all other nested COBOL programs(COBMAIN, COBSUB, COBTRACE)
2) COMPILE GEINFO(ASM) PROGRAM
3) LINK COBMAIN AND GEINFO
4) RUN

ACTUAL OUTPUT

-------------------------------------------------COBTRACE-------------------------------------------------DSAPTR                   :26DED350DSA_FORMAT               :00000000CAAPTR                   :2681D1E8MEMBER_ID                :00000004PROGRAM_UNIT_NAME        :C3D6C2E3D9C1C3C5PROGRAM_UNIT_NAME_LENGTH :00000008PROGRAM_UNIT_ADDRESS     :2680B6E8CALL_INSTRUCTION_ADDRESS :2680BA10ENTRY_NAME               :C3D6C2E3D9C1C3C5ENTRY_NAME_LENGTH        :00000008ENTRY_ADDRESS            :2680B6E8CALLERS_CALL_INST_ADDRESS:2680A8ACCALLERS_DSAPTR           :26DED1C0CALLERS_DSA_FORMAT       :00000000STATEMENT_ID             :4040404040404040STATEMENT_ID_LENGTH      :00000000CIBPTR                   :00000000MAIN_PROGRAM             :00000000FC                       :000000000000000000000000-------------------------------------------------COBSUB-------------------------------------------------DSAPTR                   :26DED1C0DSA_FORMAT               :00000000CAAPTR                   :2681D1E8MEMBER_ID                :00000004PROGRAM_UNIT_NAME        :C3D6C2E2E4C2PROGRAM_UNIT_NAME_LENGTH :00000006PROGRAM_UNIT_ADDRESS     :2680A740CALL_INSTRUCTION_ADDRESS :2680A8ACENTRY_NAME               :C3D6C2E2E4C2ENTRY_NAME_LENGTH        :00000006ENTRY_ADDRESS            :2680A740CALLERS_CALL_INST_ADDRESS:2680A16CCALLERS_DSAPTR           :26DED030CALLERS_DSA_FORMAT       :00000000STATEMENT_ID             :4040404040404040STATEMENT_ID_LENGTH      :00000000CIBPTR                   :00000000MAIN_PROGRAM             :00000000FC                       :000000000000000000000000-------------------------------------------------COBMAIN-------------------------------------------------DSAPTR                   :26DED030DSA_FORMAT               :00000000CAAPTR                   :2681D1E8MEMBER_ID                :00000004PROGRAM_UNIT_NAME        :C3D6C2D4C1C9D5PROGRAM_UNIT_NAME_LENGTH :00000007PROGRAM_UNIT_ADDRESS     :2680A000CALL_INSTRUCTION_ADDRESS :2680A16CENTRY_NAME               :C3D6C2D4C1C9D5ENTRY_NAME_LENGTH        :00000007ENTRY_ADDRESS            :2680A000CALLERS_CALL_INST_ADDRESS:0000C3AECALLERS_DSAPTR           :00000000CALLERS_DSA_FORMAT       :00000000STATEMENT_ID             :4040404040404040STATEMENT_ID_LENGTH      :00000000CIBPTR                   :00000000MAIN_PROGRAM             :00000001FC                       :000000000000000000000000

COBMAIN COBOL SOURCE

      *  1         2         3         4         5         6         7      *89012345678901234567890123456789012345678901234567890123456789012      ****************************************************      * BUILD INFO:      *  1) COMPILE THIS PROGRAM(COBOL)      *  2) COMPILE GEINFO(ASM) PROGRAM      *  3) LINK COBMAIN AND GEINFO      *  4) RUN      *      * OVERALL SCENARIO:      *  1) COBMAIN CALLS COBSUB      *  2) COBSUB  CALLS COBTRACE      ****************************************************      *      * COBMAIN - CALL COBSUB      *      ****************************************************       IDENTIFICATION DIVISION.       PROGRAM-ID. COBMAIN.       DATA DIVISION.       WORKING-STORAGE SECTION.       PROCEDURE DIVISION.            CALL 'COBSUB'            STOP RUN.       END PROGRAM COBMAIN.      ****************************************************      *      * COBSUB - CALL COBTRACE      *      ****************************************************       IDENTIFICATION DIVISION.       PROGRAM-ID. COBSUB.       DATA DIVISION.       WORKING-STORAGE SECTION.       PROCEDURE DIVISION.            CALL 'COBTRACE'            GOBACK.       END PROGRAM COBSUB.      ****************************************************      *      * COBTRACE      * 1) CALL GETINFO(ASM) TO FIND CAA,DSA,CEETBCK      * 2) CALL CEETBCK REPEATEDLY      *      ****************************************************        IDENTIFICATION DIVISION.        PROGRAM-ID. COBTRACE.        ENVIRONMENT DIVISION.        DATA DIVISION.        WORKING-STORAGE SECTION.        01 CEETBCK USAGE FUNCTION-POINTER.      *-------------------------------------------------      * CEETBCK INTERFACE (FROM IBM LE VENDOR INTERFACE)      *-------------------------------------------------      *POINTER   *DSAPTR;                    INPUT      *INT4      *DSA_FORMAT;                INPUT/OUTPUT      *POINTER   *CAAPTR;                    INPUT      *INT4      *MEMBER_ID;                       OUTPUT      *CHARN     *PROGRAM_UNIT_NAME;               OUTPUT      *INT4      *PROGRAM_UNIT_NAME_LENGTH;  INPUT/OUTPUT      *INT4      *PROGRAM_UNIT_ADDRESS;            OUTPUT      *INT4      *CALL_INSTRUCTION_ADDRESS;  INPUT/OUTPUT      *CHARN     *ENTRY_NAME;                      OUTPUT      *INT4      *ENTRY_NAME_LENGTH;         INPUT/OUTPUT      *INT4      *ENTRY_ADDRESS;                   OUTPUT      *INT4      *CALLERS_CALL_INSTRUCTION_ADDRESS OUTPUT      *POINTER   *CALLERS_DSAPTR;                  OUTPUT      *INT4      *CALLERS_DSA_FORMAT;              OUTPUT      *CHARN     *STATEMENT_ID;                    OUTPUT      *INT4      *STATEMENT_ID_LENGTH;       INPUT/OUTPUT      *POINTER   *CIBPTR;                          OUTPUT      *INT4      *MAIN_PROGRAM;                    OUTPUT      *FEED_BACK *FC;                              OUTPUT        01 ARGS.          02 DSAPTR                     USAGE POINTER   .          02 DSA_FORMAT                 PIC 9(9) COMP-4 .          02 CAAPTR                     USAGE POINTER   .          02 MEMBER_ID                  PIC 9(9) COMP-4 .          02 PROGRAM_UNIT_NAME          PIC X(8)        .          02 PROGRAM_UNIT_NAME_LENGTH   PIC 9(9) COMP-4 .          02 PROGRAM_UNIT_ADDRESS       PIC 9(9) COMP-4 .          02 CALL_INSTRUCTION_ADDRESS   PIC 9(9) COMP-4 .          02 ENTRY_NAME                 PIC X(8)        .          02 ENTRY_NAME_LENGTH          PIC 9(9) COMP-4 .          02 ENTRY_ADDRESS              PIC 9(9) COMP-4 .          02 CALLERS_CALL_INST_ADDRESS  PIC 9(9) COMP-4 .          02 CALLERS_DSAPTR             USAGE POINTER   .          02 CALLERS_DSA_FORMAT         PIC 9(9) COMP-4 .          02 STATEMENT_ID               PIC X(8)        .          02 STATEMENT_ID_LENGTH        PIC 9(9) COMP-4 .          02 CIBPTR                     USAGE POINTER   .          02 MAIN_PROGRAM               PIC 9(9) COMP-4 .          02  FC.            03  CONDITION-TOKEN-VALUE.      *    COPY  CEEIGZCT.      * CEEIGZCT IS FOUND FROM CEE.SCEESAMP(CEEIGZCT)            88  CEE000       VALUE X'0000000000000000'.                04  CASE-1-CONDITION-ID.                    05  SEVERITY    PIC S9(4) BINARY.                    05  MSG-NO      PIC S9(4) BINARY.                04  CASE-2-CONDITION-ID                          REDEFINES CASE-1-CONDITION-ID.                    05  CLASS-CODE  PIC S9(4) BINARY.                    05  CAUSE-CODE  PIC S9(4) BINARY.                04  CASE-SEV-CTL    PIC X.                04  FACILITY-ID     PIC XXX.            03  I-S-INFO            PIC S9(9) BINARY.        01 ENTRY_NAME_DISPLAY PIC X(8).        PROCEDURE DIVISION.      *-------------------------------------------------        BEGIN.      * RESET            MOVE LOW-VALUES TO ARGS      * INIT            MOVE 0 TO DSA_FORMAT            MOVE 8 TO PROGRAM_UNIT_NAME_LENGTH            MOVE 8 TO ENTRY_NAME_LENGTH            MOVE 8 TO STATEMENT_ID_LENGTH      *      * CALL GETINFO(ASM) TO GET CAAPTR DSAPTR CEETBCK      *            CALL 'GETINFO' USING CAAPTR DSAPTR CEETBCK      *      * DEBUGGING      *      *     DISPLAY FUNCTION HEX-OF(CAAPTR)      *     DISPLAY FUNCTION HEX-OF(DSAPTR)      *     DISPLAY FUNCTION HEX-OF(CEETBCK)      *      * CALL CALL-CEETBCK REPEATEDLY UNTIL MAIN PROGRAM IS FOUND      *            PERFORM CALL-CEETBCK UNTIL MAIN_PROGRAM = 1            GOBACK            .      *-------------------------------------------------        CALL-CEETBCK.      *      * CALL CEETBC      *            CALL CEETBCK USING                          DSAPTR                          DSA_FORMAT                          CAAPTR                          MEMBER_ID                          PROGRAM_UNIT_NAME                          PROGRAM_UNIT_NAME_LENGTH                          PROGRAM_UNIT_ADDRESS                          CALL_INSTRUCTION_ADDRESS                          ENTRY_NAME                          ENTRY_NAME_LENGTH                          ENTRY_ADDRESS                          CALLERS_CALL_INST_ADDRESS                          CALLERS_DSAPTR                          CALLERS_DSA_FORMAT                          STATEMENT_ID                          STATEMENT_ID_LENGTH                          CIBPTR                          MAIN_PROGRAM                          FC      *      * DISPLAY THE RESULT OF CEETBCK      *            MOVE ENTRY_NAME TO ENTRY_NAME_DISPLAY            DISPLAY "-------------------------------------------------"            DISPLAY ENTRY_NAME_DISPLAY            DISPLAY "-------------------------------------------------"            DISPLAY "DSAPTR                   :"                    FUNCTION HEX-OF(DSAPTR                   )            DISPLAY "DSA_FORMAT               :"                    FUNCTION HEX-OF(DSA_FORMAT               )            DISPLAY "CAAPTR                   :"                    FUNCTION HEX-OF(CAAPTR                   )            DISPLAY "MEMBER_ID                :"                    FUNCTION HEX-OF(MEMBER_ID                )            DISPLAY "PROGRAM_UNIT_NAME        :"                    FUNCTION HEX-OF(                      PROGRAM_UNIT_NAME(1:PROGRAM_UNIT_NAME_LENGTH))            DISPLAY "PROGRAM_UNIT_NAME_LENGTH :"                    FUNCTION HEX-OF(PROGRAM_UNIT_NAME_LENGTH )            DISPLAY "PROGRAM_UNIT_ADDRESS     :"                    FUNCTION HEX-OF(PROGRAM_UNIT_ADDRESS     )            DISPLAY "CALL_INSTRUCTION_ADDRESS :"                    FUNCTION HEX-OF(CALL_INSTRUCTION_ADDRESS )            DISPLAY "ENTRY_NAME               :"                    FUNCTION HEX-OF(ENTRY_NAME(1:ENTRY_NAME_LENGTH))            DISPLAY "ENTRY_NAME_LENGTH        :"                    FUNCTION HEX-OF(ENTRY_NAME_LENGTH        )            DISPLAY "ENTRY_ADDRESS            :"                    FUNCTION HEX-OF(ENTRY_ADDRESS            )            DISPLAY "CALLERS_CALL_INST_ADDRESS:"                    FUNCTION HEX-OF(CALLERS_CALL_INST_ADDRESS)            DISPLAY "CALLERS_DSAPTR           :"                    FUNCTION HEX-OF(CALLERS_DSAPTR           )            DISPLAY "CALLERS_DSA_FORMAT       :"                    FUNCTION HEX-OF(CALLERS_DSA_FORMAT       )            DISPLAY "STATEMENT_ID             :"                    FUNCTION HEX-OF(STATEMENT_ID             )            DISPLAY "STATEMENT_ID_LENGTH      :"                    FUNCTION HEX-OF(STATEMENT_ID_LENGTH      )            DISPLAY "CIBPTR                   :"                    FUNCTION HEX-OF(CIBPTR                   )            DISPLAY "MAIN_PROGRAM             :"                    FUNCTION HEX-OF(MAIN_PROGRAM             )            DISPLAY "FC                       :"                    FUNCTION HEX-OF(FC)      *      * PREP BEFORE CALLING TO CEETBCK      *            SET DSAPTR TO CALLERS_DSAPTR            MOVE CALLERS_DSA_FORMAT TO DSA_FORMAT            MOVE 8 TO PROGRAM_UNIT_NAME_LENGTH            MOVE 8 TO ENTRY_NAME_LENGTH            MOVE 8 TO STATEMENT_ID_LENGTH            MOVE CALLERS_CALL_INST_ADDRESS TO                         CALL_INSTRUCTION_ADDRESS            .        END PROGRAM COBTRACE.      *  1         2         3         4         5         6         7      *89012345678901234567890123456789012345678901234567890123456789012

GETINFO ASM SOURCE

GETINFO   CSECTGETINFO   AMODE 31GETINFO   RMODE ANY*********************************************** OBTAIN CAA, DSA, AND CEETBCK** R1(ARG) OFFSET+0 = ADDRESS OF CAA STORAGE*         OFFSET+4 = ADDRESS OF DSA STORAGE*         OFFSET+8 = ADDRESS OF CEETBCK STORAGE************************************************ GET CAAPTR          L     15,0(1)  * LOAD FIRST ARG TO R15          ST    12,0(15) * R12 = CAAPTR* GET DSAPTR          L     15,4(1)  * LOAD SECOND ARG TO R15          ST    13,0(15) * R13 = DSAPTR* GET CEETBCK          L     15,8(1)  * LOAD THIRD ARG TO R15**     IBM VENDOR INTERFACE SAYS:**         L     R15,CEECAALEOV-CEECAA(,R12)*         L     R15,304(,R15)*         BALR  R14,R15*          L     12,816(12) * 816: CEECAALEOV-CEECAA(,R12)          L     12,304(12) *          ST    12,0(15)* BACK TO CALLER          BR    14          END

------------------------------
Roy Bae

Original Message:
Sent: Fri March 10, 2023 02:26 AM
From: Loic Vital-Durand
Subject: COBOL "StackTrace"

Hello Roy,

Thanks a lot for well explained reply.

CEE3DMP produce exactly the kind of stack trace I need but it produce it in a file while I need to have the result as a response inside my subprogram.

I'll check if there is a way to get the CEE3DMP result in my subprogram (instead of a file) and test as much as I can.

....

I tried all day long but couldn't find a way to get the dump created by CEE3DMP into the subprogram that call CEE3DMP !

It would have been great but unfortunately it does not full fill my need completely.

By the way I should have mentioned that I'm trying to find the stack trace to be able to find out all programs calling an existing subprogram with changing the calling programs.

------------------------------
Loic Vital-Durand

Original Message:
Sent: Wed March 08, 2023 03:54 PM
From: Roy Bae
Subject: COBOL "StackTrace"

Hello, what about 'CEE3DMP' ?

For the demonstration, I include a program and its output:

      CBL LIB,QUOTE       IDENTIFICATION DIVISION.       PROGRAM-ID. COBMAIN.       DATA DIVISION.       WORKING-STORAGE SECTION.       PROCEDURE DIVISION.            CALL 'CBL3DMP'            STOP RUN.       END PROGRAM COBMAIN.      **********************************       IDENTIFICATION DIVISION.       PROGRAM-ID. CBL3DMP.       DATA DIVISION.       WORKING-STORAGE SECTION.       01  DMPTITL                 PIC X(80).       01  OPTIONS                 PIC X(255).       01  FC.           02  Condition-Token-Value.      *      *    COPY  CEEIGZCT.      * CEEIGZCT is found from CEE.SCEESAMP(CEEIGZCT)      *           88  CEE000       VALUE X'0000000000000000'.               03  Case-1-Condition-ID.                   04  Severity    PIC S9(4) BINARY.                   04  Msg-No      PIC S9(4) BINARY.               03  Case-2-Condition-ID                         REDEFINES Case-1-Condition-ID.                   04  Class-Code  PIC S9(4) BINARY.                   04  Cause-Code  PIC S9(4) BINARY.               03  Case-Sev-Ctl    PIC X.               03  Facility-ID     PIC XXX.           02  I-S-Info            PIC S9(9) BINARY.       PROCEDURE DIVISION.       PARA-CBL3DMP.           MOVE "This is the dump report title."                 TO DMPTITL.           MOVE "TRACE NOVAR SF(0) NOCOND NOENTRY"                 TO OPTIONS.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.           IF NOT CEE000 of FC  THEN               DISPLAY "CEE3DMP failed with msg "                   Msg-No of FC UPON CONSOLE               STOP RUN           END-IF.           GOBACK.

The program generates a single dump file and its contents is:

CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +000001A8              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +000001A8  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +000001DE              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +000001DE  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.CEE3DMP V2 R5.0: This is the dump report title.                                    03/08/23 3:49:01 PM                  Page:    1ASID: 039F   PID: 16779562   Parent PID: 50339738   User name:CEE3845I CEEDUMP Processing started.Information for enclave COBMAIN  Information for thread 2714000000000001  Traceback:    DSA   Entry       E  Offset  Statement   Load Mod             Program Unit                   Service  Status    1     CBL3DMP     +00000214              x1                   CBL3DMP                                 Call    2     COBMAIN     +0000016C              x1                   COBMAIN                                 Call    DSA   DSA Addr   E  Addr    PU Addr    PU Offset  Comp Date  Compile Attributes    1     26D191C0   2680A720   2680A720   +00000214  20230308   COBOLV5+  POSIX EBCDIC  HFP    2     26D19030   2680A000   2680A000   +0000016C  20230308   COBOLV5+  POSIX EBCDIC  HFP    Fully Qualified Names    DSA   Entry       Program Unit                                        Load Module    1     CBL3DMP     CBL3DMP                                             ./x1    2     COBMAIN     COBMAIN                                             ./x1CEE3846I CEEDUMP Processing completed.

------------------------------
Roy Bae

Original Message:
Sent: Thu March 02, 2023 02:57 AM
From: Loic Vital-Durand
Subject: COBOL "StackTrace"

Hi all,

In a COBOL subprogram, during execution, how can I find the list of programs that end-up in calling the subprogram (that I called "StackTrace").

This is the kind of information I'm looking for :

Event Fail Module Program EP
# Type Point Name Name Name Event Location (*) Description
-- ------------ ----- -------- -------- -------- ------------------ --------------------------------------------
1 Call DSNECP10 DSNECP10 n/a P+20A From SYS1.F1D200.xxx.SDSNLOAD
2 Call DSNECP10 DSNECP19 n/a P+28D0 From SYS1.F1D200.xxx.SDSNLOAD
3 Link to RO00123 DSNECP10 DSNECP16 n/a P+570 From SYS1.F1D200.xxx.SDSNLOAD
4 Call RO00123 RO00123 RO00123 E+1304 From CTACONV.xxx.LOADLIB
5 Call IGZXLPKA n/a IGZXFCA1 E+342C From SYS1.xxx.SCEERUN
6 Call ***** ABEND ABEND ABEND E+1D0 From CTACONV.xxx.LOADLIB
7 Call IGZXLPKA n/a IGZXFCA1 E+342C From SYS1.xxx.SCEERUN
8 Abend U0100 CEEPLPKA n/a CEL4ABD0 E+234 ABEND and optionally clean-up; From LPA

I though about using CEETBCK (CEETBCK - traceback utility (replaces CEETRCB) - IBM Documentation) But I can't figure how to call this utility from the subprogram nor how the result will look like.

Any help will be highly appreciated.

------------------------------
Loic Vital-Durand
------------------------------

7. RE: COBOL "StackTrace"

0 Like
Loic Vital-Durand
Posted Thu April 27, 2023 06:48 AM

Reply
Hello Roy,

I finally got some time to implement it (sorry for the delay) and it works really good.

Thank you so much, I owe you some beers (or wine)
/Loic

------------------------------
Loic Vital-Durand
------------------------------

Original Message
8. RE: COBOL "StackTrace"

0 Like
Roy Bae
Posted Thu April 27, 2023 11:29 AM

Reply
I am glad to help and thank for your follow up. By doing this myself, I also realized some of processes needed improvement such as getting CAA, DSAPTR, and so on. It would be nicer if COBOL has some handy way of getting them such as using 'intrinsic-function-like'. No commitment but I will see if it can be brought up to the right group for future enhancement!

------------------------------
Roy Bae
------------------------------

Original Message
9. RE: COBOL "StackTrace"

0 Like
Loic Vital-Durand
Posted Thu December 21, 2023 05:13 AM

Reply
Hello Roy,

I finally succeeded in deploying this stack trace module to some decent test environment, yes it took some time ;(

Anyway the issue I'm facing now is with performance : the CEETBCK program is called every time a program (main or sub-program) call a specific data access sub-program to provide the stack trace (so we know which program(s) call this specific data access sub-program. This mean CEETBCK is called thousands or millions of times by some main batch programs and the consumption of this main program is much higher in terms of EXCPs, CPU and elaps time.

Up to the point that I can't deploy this solution to production.

So I'm looking for how to improve it, including alternatives.

First question is : did you manage to have this stack trace included into Cobol as a 'intrinsic-function-like' ?

If not :

is there something I can do to improve performance (like having some modules in link list or pre-loaded somewhere) ?

Is there an alternative solution (I was looking at CEEUTRB module but it seems the output will not be of any help for my needs) ?

any other idea ?

Christmas is coming so I still have a bit of time to request Santa Claus ;)

/Loic

------------------------------
Loic Vital-Durand
------------------------------

Original Message
10. RE: COBOL "StackTrace"

0 Like
Roy Bae
Posted Thu January 11, 2024 01:55 PM

Reply
Hello Loic,

Sorry for the late reply. I didn't mean to take this long but something always pops up unexpectedly. Anyways...

Yes, I hear you; performance will be a problem in your scenario. CEETBCK is an external program which COBOL has to call out so it cannot be 'inlined' or 'intrinsic-function-like', therefore this adds up to the slow performance as well. Unfortunately I cannot think of any tricks/hacks that can speed up by altering the COBOL program/options or using alternative modules.

Few things I may suggest is since your stack trace module gets called so many times, I would imagine some of the traceback might be partially (or sometimes completely) duplicated. If this is true, you can save those information into somewhere so that the program simply retrieves it instead of repeatedly calling CEETBCK.

To illustrate the idea with a very basic 'cache' is

COBOL saves the last state by default (that is, values in COBOL data items remain until updated)

Imagine 'PGM A (Main) ---calls--> B ---> C ---> [your stack trace program]' and this call trace happens 2 times in a raw

For the first time, [stack trace program] runs its own work and saves the end work into COBOL data items

For the second time, [stack trace program] checks if the current call trace is the same as the previous.
If yes, just retrieve from its last saved work
else, do its work from scratch

In order for [stack trace program] to identify each of call trace, maybe [EP of the program 'C'] + [DSA address] + [CAA address] might be a good identifier

I hope this helps. (you can still request Santa Claus for the upcoming 2014 Christmas! [pun intended])

------------------------------
Roy Bae
------------------------------

Original Message
11. RE: COBOL "StackTrace"

0 Like
Loic Vital-Durand
Posted Thu February 22, 2024 03:44 PM

Reply
Hello Roy,

I did as suggested and it solved the performance issue, thanks.

Next issue I'm facing is a S0C4-11 abend when calling CEETBCK from my subprogram in a specific case :

Main program is a DL1 pgm running under DFSRRC00,

calling a subprogram P300 that start by sorting a file using "SORT FILE xxxx ON ASCENDING KEY ...."

calling a subprogram AB

calling a subprogram AM

calling a subprogram AL

calling CEETBCK

As far as I could find in the dump CEETBCK went fine from AL up to AB but abends in between AB and P300 with abend code S0C4 code X'11'

below the event summary and details.

Any idea what I done wrong ? I guess it has something to do with the SORT as all other test cases went ok.

Should I provide more details ? please let me know.

E V E N T   S U M M A R Y

The following events are presented in chronological order.

Event           Fail Module   Program EP

# Type         Point Name     Name     Name     Event Location (*) Description

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

1 Link to DFSPCC30   DFSRRC00 DFSRRC00 DFSRRC00 E+98               From F1IMFR.IMS.RSU2306.SDFSRESL

2 Call               DFSPCC30 DFSPCC30 DFSPCC30 E+1078             From F1IMFR.IMS.RSU2306.SDFSRESL

3 Call               DFSPCC30 DFSPCC30 DFSPCC31 E+1C0              From F1IMFR.IMS.RSU2306.SDFSRESL

4 Call               n/a      n/a      n/a      n/a               From not determined

5 Link to DSNMTV01   DFSPCC30 DFSPCC30 DFSPCC32 E+E2               From F1IMFR.IMS.RSU2306.SDFSRESL

6 Call               PGMAA599 PGMAA599 PGMAA599 E+13F4             From LOADLI.MYPROD.PGMBATCH

7 Call               IGZCLNK n/a      IGZCLNK E+49C              LINKAGE MANAGER FOR VS COBOL II and COBOL/370; From SYS1.CEE.SCEERUN

8 Call               n/a      n/a      n/a      n/a               From not determined

9 Call               IGZXLPKA n/a      IGZXSM0A E-9DB54            From SYS1.CEE.SCEERUN

10 Call               CEEPLPKA n/a      CEEYSORT E+392              CEL Sort Callable Service.; From LPA

11 Link to ICEIPUT    CEEPLPKA n/a      CEEYSORT E+59C              CEL Sort Callable Service.; From LPA

12 Call               ICEXP24 n/a      n/a      M+1F2              From LPA

13 Call               n/a      n/a      n/a      n/a               From not determined

14 Call               IGZXLPKA n/a      IGZXE35H E-D2270            From SYS1.CEE.SCEERUN

15 Call               PGMAA300 PGMAA300 PGMAA300 L#3733 E+15C4      From LOADLI.MYLPROD.PGMBATCH

16 Call               IGZXLPKA n/a      IGZXFCA1 E+3424             From SYS1.CEE.SCEERUN

17 Call               SUBPGMAB SUBPGMAB SUBPGMAB E+8E6              From LOADLI.RTLDEVA.PGMBATCH

18 Call               IGZXLPKA n/a      IGZXFCA1 E+3424             From SYS1.CEE.SCEERUN

19 Call               SUBPGMAM SUBPGMAM SUBPGMAM L#8 E+2D8          From LOADLI.RTLDEVA.PGMBATCH

20 Call               IGZXLPKA n/a      IGZXFCA1 E+3424             From SYS1.CEE.SCEERUN

21 Call         ***** SUBPGMAL SUBPGMAL SUBPGMAL L#362 E+548        From LOADLI.RTLDEVA.PGMBATCH

22 Branch             CEEPLPKA n/a      CEEKTBCK E+19BE             Traceback utility; From LPA

23 Abend S0C4         CEEPLPKA n/a      CEEKTBCK E+19C8             Traceback utility; From LPA

(*) One or more of the following abbreviations might appear in the "Event

    Location" column:

    F#n Source file number (refer to detailed event information for file

         identification)

    L#n Source file line number

    S#n Listing file statement number (refer to detailed event information for

         file identification)

    M+x Offset from start of load module

    P+x Offset from start of program

    E+x Offset from start of entry point

E V E N T D E T A I L S

================================================================================

EVENT 1 OF 23: LINK (DSA ADDRESS 00006EE0)

Load Module Name. . . . . . : F1IMFR.IMS.RSU2306.SDFSRESL(DFSRRC00)

At Address. . . . . . . . : 00007E10

Load Module Length. . . . : X'1F0'

Link-Edit Date and Time . : 2018/10/25 17:13:20

CSECT and Entry Point Name. : DFSRRC00

At Address. . . . . . . . : 00007E10 (Module

                              DFSRRC00 offset X'0')

CSECT Length. . . . . . . : X'104'

CSECT Language. . . . . . : Assembler (Compiled using High Level Assembler V1

                              R6 M0 on 2016/12/08)

Machine Instruction . . . . : 0A06          SVC     6 (LINK LINKX)

At Address. . . . . . . . : 00007EA8 (CSECT

                              DFSRRC00 offset X'98')

AMODE . . . . . . . . . . : 24

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -2E 5020 1018      ST      R2,24(,R1)

       -2A D209 D00C C0D8 MVC     12(10,R13),216(R12)

       -24 5830 0010      L       R3,16

       -20 5800 30A4      L       R0,164(,R3)

       -1C 5400 C100      N       R0,256(,R12)

       -18 4110 D00C      LA      R1,12(,R13)

       -14 5000 1000      ST      R0,0(,R1)

       -10 41E0 D018      LA      R14,24(,R13)

        -C 50E0 1004      ST      R14,4(,R1)

        -8 0A04           SVC     4        (GETMAIN (TYPE 1))

        -6 1812           LR      R1,R2

        -4 41F0 2018      LA      R15,24(,R2)

  00007EA8 0A06           SVC     6        (LINK LINKX)

        +2 18BF           LR      R11,R15

        +4 4100 C0F1      LA      R0,241(,R12)

        +8 0A09           SVC     9        (DELETE)

        +A 18FB           LR      R15,R11

        +C 18BF           LR      R11,R15

        +E 181D           LR      R1,R13

       +10 58D0 D004      L       R13,4(,R13)

Program Status Word (PSW) . : 078D1000 00007EAA

PSW Summary . . . . . . . : Primary Space Mode, PSW Key 8, AMODE 24, Problem

                              State

General Purpose Registers:

R0: 0_00FFFFF8 (24641544 bytes of storage addressable)

R1: 0_00007610 (Module DFSPRPX0 CSECT DFSPRPX0 + X'0')

R2: 0_00007610 (Module DFSPRPX0 CSECT DFSPRPX0 + X'0')

R3: 0_00FD7AE0 (CVT + X'0')

R4: 0_008D3D40 (180928 bytes of storage addressable)

R5: 0_008F8048 (32696 bytes of storage addressable)

R6: 0_008B9FC8 (286776 bytes of storage addressable)

R7: 0_00F91100 (25095936 bytes of storage addressable)

R8: 0_008AC048 (343992 bytes of storage addressable)

R9: 0_008AC350 (343216 bytes of storage addressable)

R10: 0_01DB4D00 (Module FLMRTLIB + X'8D00')

R11: 0_00000001 (2047 bytes of storage addressable)

R12: 0_00007E10 (Module DFSRRC00 CSECT DFSRRC00 + X'0')

R13: 0_00006EE0 (2314528 bytes of storage addressable)

R14: 0_00006EF8 (2314504 bytes of storage addressable)

R15: 0_00007628 (Module DFSPRPX0 CSECT DFSPRPX0 + X'18')

================================================================================

EVENT 2 OF 23: CALL (DSA ADDRESS 00010040)

Load Module Name. . . . . . : F1IMFR.IMS.RSU2306.SDFSRESL(DFSPCC30)

At Address. . . . . . . . : 00086E30

Load Module Length. . . . : X'51D0'

Link-Edit Date and Time . : 2023/09/05 10:46:54

CSECT and Entry Point Name. : DFSPCC30

At Address. . . . . . . . : 00086F18 (Module

                              DFSPCC30 offset X'E8')

CSECT Length. . . . . . . : X'2A8C'

CSECT Language. . . . . . : Assembler (Compiled using High Level Assembler V1

                              R6 M0 on 2023/03/29)

Machine Instruction . . . . : 0DEF          BASR    R14,R15

At Address. . . . . . . . : 00087F90 (CSECT

                              DFSPCC30 offset X'1078')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -2C 9108 6010      TM      16(R6),8

       -28 A714 0010      BRC     1,*+32

       -24 BFFF 6F34      ICM     R15,15,3892(R6)

       -20 A784 000C      BRC     8,*+24

       -1C 9180 F190      TM      400(R15),128

       -18 A7E4 0008      BRC     14,*+16

       -14 5800 71D4      L       R0,468(,R7)

       -10 1817           LR      R1,R7

        -E 58F0 F054      L       R15,84(,R15)

        -A 0DEF           BASR    R14,R15

        -8 41D0 8040      LA      R13,64(,R8)

        -4 58F0 C5F8      L       R15,1528(,R12)

  00087F90 0DEF           BASR    R14,R15

        +2 9140 3340      TM      832(R3),64

        +6 A784 0064      BRC     8,*+200

        +A 1806           LR      R0,R6

        +C 18F0           LR      R15,R0

        +E 9140 F174      TM      372(R15),64

       +12 A714 0016      BRC     1,*+44

       +16 BFFF F148      ICM     R15,15,328(R15)

General Purpose Registers:

R0: 00001838 (Storage invalid)

R1: 00009BA0 (Module DFSBNUC0 + X'2C8')

R2: 000077F4 (Module DFSPRPX0 CSECT DFSPRPX0 + X'1E4')

R3: 00007610 (Module DFSPRPX0 CSECT DFSPRPX0 + X'0')

R4: 80087D8E (Module DFSPCC30 CSECT DFSPCC30 + X'E76')

R5: 00009BA0 (Module DFSBNUC0 + X'2C8')

R6: 00009EB8 (Module DFSBSCD0 + X'0')

R7: 0004F060 (Module #DPST001 + X'60')

R8: 00010000 (Module DFSBATWK + X'0')

R9: AA804198 (Module DFSPCRP0 + X'0')

R10: 000897B8 (Module DFSPCC30 CSECT DFSPCC30 + X'28A0')

R11: 00007638 (Module DFSPRPX0 CSECT DFSPRPX0 + X'28')

R12: 00089258 (Module DFSPCC30 CSECT DFSPCC30 + X'2340')

R13: 00010040 (Module DFSBATWK + X'40')

R14: 80087F92 (Module DFSPCC30 CSECT DFSPCC30 + X'107A')

R15: 000885DA (Module DFSPCC30 CSECT DFSPCC30 + X'16C2')

================================================================================

EVENT 3 OF 23: CALL (DSA ADDRESS 000100D0)

Load Module Name. . . . . . : F1IMFR.IMS.RSU2306.SDFSRESL(DFSPCC30)

At Address. . . . . . . . : 00086E30

Load Module Length. . . . : X'51D0'

Link-Edit Date and Time . : 2023/09/05 10:46:54

CSECT Name. . . . . . . . . : DFSPCC30

At Address. . . . . . . . : 00086F18 (Module

                              DFSPCC30 offset X'E8')

CSECT Length. . . . . . . : X'2A8C'

CSECT Language. . . . . . : Assembler (Compiled using High Level Assembler V1

                              R6 M0 on 2023/03/29)

Entry Point Name. . . . . : DFSPCC31

    At Address. . . . . . . : 000885DA (CSECT

                              DFSPCC30 offset X'16C2')

Machine Instruction . . . . : 0DEF          BASR    R14,R15

At Address. . . . . . . . : 0008879A (CSECT

                              DFSPCC30 offset X'1882')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

     -2E A784 0006      BRC     8,*+12

       -2A 4B10 C718      SH      R1,1816(,R12)

       -26 A7F4 0007      BRC     15,*+14

       -22 5820 C684      L       R2,1668(,R12)

       -1E 1612           OR      R1,R2

       -1C A7F4 0002      BRC     15,*+4

       -18 5010 3284      ST      R1,644(,R3)

       -14 9110 614F      TM      335(R6),16

       -10 A784 0004      BRC     8,*+8

        -C 9680 748B      OI      1163(R7),128

        -8 41D0 80D0      LA      R13,208(,R8)

        -4 58F0 C6F0      L       R15,1776(,R12)

  0008879A 0DEF           BASR   R14,R15

        +2 58D0 D004      L       R13,4(,R13)

        +6 58ED 000C      L       R14,12(R13)

        +A 58CD 0044      L       R12,68(R13)

        +E 9601 D00F      OI      15(R13),1

       +12 07FE           BCR     15,R14

       +14 41A0 0046      LA      R10,70

       +18 181A           LR      R1,R10

General Purpose Registers:

R0: 000001F0 (1552 bytes of storage addressable)

R1: 8001822C (Module PCBLIST + X'FC')

R2: 80000000 (2048 bytes of storage addressable)

R3: 00007610 (Module DFSPRPX0 CSECT DFSPRPX0 + X'0')

R4: 000000EC (1812 bytes of storage addressable)

R5: 000060E8 (2318104 bytes of storage addressable)

R6: 00009EB8 (Module DFSBSCD0 + X'0')

R7: 0004F060 (Module #DPST001 + X'60')

R8: 00010000 (Module DFSBATWK + X'0')

R9: AA804198 (Module DFSPCRP0 + X'0')

R10: 00018130 (Module PCBLIST + X'0')

R11: 000000E8 (1816 bytes of storage addressable)

R12: 00089258 (Module DFSPCC30 CSECT DFSPCC30 + X'2340')

R13: 000100D0 (Module DFSBATWK + X'D0')

R14: 8008879C (Module DFSPCC30 CSECT DFSPCC30 + X'1884')

R15: 000887C0 (Module DFSPCC30 CSECT DFSPCC30 + X'18A8')

================================================================================

EVENT 4 OF 23: CALL (DSA ADDRESS 00010160)

Machine Instruction . . . . : 0CEF          BASSM   R14,R15

At Address. . . . . . . . : 000183D6

AMODE . . . . . . . . . . : 64

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -2C 1211           LTR     R1,R1

       -2A 4780 C25A      BC      8,602(,R12)

       -26 58E0 10EC      L       R14,236(,R1)

       -22 18FE           LR      R15,R14

       -20 54F0 C3B8      N       R15,952(,R12)

       -1C BAEF 10EC      CS      R14,R15,236(R1)

       -18 4770 C24C      BC      7,588(,R12)

       -14 5810 B1F8      L       R1,504(,R11)

       -10 180B           LR      R0,R11

        -E 9204 1004      MVI     4(R1),4

        -A 9280 1005      MVI     5(R1),128

        -6 E3FB 013C 0016 LLGF    R15,316(R11)

  000183D6 0CEF           BASSM   R14,R15

        +2 5810 B1F8      L       R1,504(,R11)

        +6 4100 B000      LA      R0,0(,R11)

        +A 9180 B174      TM      372(R11),128

        +E A714 0016      BRC     1,*+44

       +12 BFFF B148      ICM     R15,15,328(R11)

       +16 A724 0007      BRC     2,*+14

       +1A 13FF           LCR     R15,R15

General Purpose Registers:

R0: 00009EB8 (Module DFSBSCD0 + X'0')

R1: 0004F060 (Module #DPST001 + X'60')

R2: 00007610 (Module DFSPRPX0 CSECT DFSPRPX0 + X'0')

R3: 00010160 (Module DFSBATWK + X'160')

R4: 000060E8 (2318104 bytes of storage addressable)

R5: 00009BA0 (Module DFSBNUC0 + X'2C8')

R6: 00009BA0 (Module DFSBNUC0 + X'2C8')

R7: 000060E8 (2318104 bytes of storage addressable)

R8: 00010000 (Module DFSBATWK + X'0')

R9: 008AC350 (343216 bytes of storage addressable)

R10: 00000000 (2048 bytes of storage addressable)

R11: 00009EB8 (Module DFSBSCD0 + X'0')

R12: 80018168 (Module PCBLIST + X'38')

R13: 00010160 (Module DFSBATWK + X'160')

R14: 800183D9 (2243623 bytes of storage addressable)

R15: 2A91B759 (Module DFSFLLG0 + X'E9')

================================================================================

EVENT 5 OF 23: LINK (DSA ADDRESS 00010280)

Load Module Name. . . . . . : F1IMFR.IMS.RSU2306.SDFSRESL(DFSPCC30)

At Address. . . . . . . . : 00086E30

Load Module Length. . . . : X'51D0'

Link-Edit Date and Time . : 2023/09/05 10:46:54

CSECT Name. . . . . . . . . : DFSPCC30

At Address. . . . . . . . : 00086F18 (Module

                              DFSPCC30 offset X'E8')

CSECT Length. . . . . . . : X'2A8C'

CSECT Language. . . . . . : Assembler (Compiled using High Level Assembler V1

                              R6 M0 on 2023/03/29)

Entry Point Name. . . . . : DFSPCC32

    At Address. . . . . . . : 000887C0 (CSECT

                              DFSPCC30 offset X'18A8')

Machine Instruction . . . . : 0A06          SVC     6 (LINK LINKX)

At Address. . . . . . . . : 000888A2 (CSECT

                              DFSPCC30 offset X'198A')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -2A 58F0 C6FC      L       R15,1788(,R12)

       -26 0DEF           BASR    R14,R15

       -24 9140 5079      TM      121(R5),64

       -20 A714 0015      BRC     1,*+42

       -1C 94EF 306C      NI      108(R3),239

       -18 41F0 30E4      LA      R15,228(,R3)

       -14 5040 30E4      ST      R4,228(,R3)

       -10 1803           LR      R0,R3

        -E 1823           LR      R2,R3

        -C 41D0 8280      LA      R13,640(,R8)

        -8 50D0 3260      ST      R13,608(,R3)

        -4 9680 310A      OI      266(R3),128

  000888A2 0A06           SVC     6        (LINK LINKX)

        +2 947F 310A      NI      266(R3),127

        +6 A7F4 0028      BRC     15,*+80

        +A 94EF 306C      NI      108(R3),239

        +E 1851           LR      R5,R1

       +10 4100 4000      LA      R0,0(,R4)

       +14 1B11           SR      R1,R1

       +16 0A08           SVC     8        (LOAD)

Program Status Word (PSW) . : 078D1000 800888A4

PSW Summary . . . . . . . : Primary Space Mode, PSW Key 8, AMODE 31, Problem

                              State

General Purpose Registers:

R0: 0_00007610 (Module DFSPRPX0 CSECT DFSPRPX0 + X'0')

R1: 0_80018230 (Module PCBLIST + X'100')

R2: 0_00007610 (Module DFSPRPX0 CSECT DFSPRPX0 + X'0')

R3: 0_00007610 (Module DFSPRPX0 CSECT DFSPRPX0 + X'0')

R4: 0_00007680 (Module DFSPRPX0 CSECT DFSPRPX0 + X'70')

R5: 0_000060E8 (2318104 bytes of storage addressable)

R6: 0_00009EB8 (Module DFSBSCD0 + X'0')

R7: 0_0004F060 (Module #DPST001 + X'60')

R8: 0_00010000 (Module DFSBATWK + X'0')

R9: 0_AA804198 (Module DFSPCRP0 + X'0')

R10: 0_00018228 (Module PCBLIST + X'F8')

R11: 0_0001821C (Module PCBLIST + X'EC')

R12: 0_00089258 (Module DFSPCC30 CSECT DFSPCC30 + X'2340')

R13: 0_00010280 (Module DFSBATWK + X'280')

R14: 0_8008887E (Module DFSPCC30 CSECT DFSPCC30 + X'1966')

R15: 0_000076F4 (Module DFSPRPX0 CSECT DFSPRPX0 + X'E4')

================================================================================

EVENT 6 OF 23: CALL (DSA ADDRESS 001BB380)

Recently referenced data items:

Data Item . . . . . . . . : BLL=003A+000

    At Address. . . . . . . : 000AECA8

    Length. . . . . . . . . : X'4'

    Data Item Storage . . . : C6F1F0F0   *F100*

NOTE: Source code information could not be presented because the search for a

      compiler listing or side-file was unsuccessful for program PGMAA599.

Load Module Name. . . . . . : LOADLI.MYPROD.PGMBATCH(PGMAA599)

At Address. . . . . . . . : 00175410

Load Module Length. . . . : X'1BF0'

Link-Edit Date and Time . : 1998/09/09 00:00:00

Program and Entry Point Name: PGMAA599

At Address. . . . . . . . : 00175410 (Module

                              PGMAA599 offset X'0')

Program Length. . . . . . : X'17A0'

Program Language. . . . . : COBOL (Compiled using VS COBOL II V1 R4 M0 on

                             1998/09/09 at 09:37:54)

Compiler Options Used . . : NOADV APOST ARITH(COMPAT) NOAWO NOCMPR2 NOCURRENCY

                              DATA(24) NODBCS NODECK NODLL NODUMP NODYNAM

                              NOEXPORTALL NOFASTSRT INTDATE(ANSI) LIB NOLIST MAP

                              NAME NONUMBER NONUMCHECK NUMPROC(MIG) OBJ OFFSET

                              OPTIMIZE(STD) OUTDD(SYSOUT) PGMNAME(COMPAT)

                              NOPFDSGN RENT RES NOSEQUENCE SIZE(MAX) SOURCE

                              NOSQL SSRANGE NOTERM NOTEST TRUNC(OPT) NOVBREF

                              NOWORD XREF ZWB

Machine Instruction . . . . : 05EF          BALR    R14,R15

At Address. . . . . . . . : 00176804 (Program

                              PGMAA599 offset X'13F4')

AMODE . . . . . . . . . . : 24

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -36 5820 D214      L       R2,532(,R13)

       -32 4100 2000      LA      R0,0(,R2)                       BLL=003A+000

       -2E 5000 D254      ST      R0,596(,R13)

       -2A 5820 D218      L       R2,536(,R13)

       -26 4100 2000      LA      R0,0(,R2)                       BLL=003A+000

       -22 5000 D258      ST      R0,600(,R13)

       -1E 9680 D258      OI      600(R13),128

       -1A D207 D2F8 A35C MVC     760(8,R13),860(R10)

       -14 D207 D300 D2F8 MVC     768(8,R13),760(R13)

        -E DC07 D2F8 A193 TR      760(8,R13),403(R10)

        -8 58F0 305C      L       R15,92(,R3)

        -4 4110 A3F4      LA      R1,1012(,R10)

  00176804 05EF           BALR    R14,R15

        +2 BF08 D089      ICM     R0,8,137(R13)

        +6 0400           SPM     R0

        +8 DC07 D300 A193 TR      768(8,R13),403(R10)

        +E 58F0 305C      L       R15,92(,R3)

       +12 4110 A3EB      LA      R1,1003(,R10)

       +16 05EF           BALR    R14,R15

       +18 58F0 302C      L       R15,44(,R3)

General Purpose Registers:

R0: 000AECA8 (Module PGMAA599 program PGMAA599 LINKAGE SECTION BLL=003A + X'0')

R1: 00175890 (Module PGMAA599 program PGMAA599 + X'480')

R2: 000AECA8 (Module PGMAA599 program PGMAA599 LINKAGE SECTION BLL=003A + X'0')

R3: 0018A60C (727540 bytes of storage addressable)

R4: 0009F360 (Module PGMAA599 program PGMAA599 LINKAGE SECTION BLL=0002 + X'0')

R5: 000A0CA8 (Module PGMAA599 program PGMAA599 LINKAGE SECTION BLL=0003 + X'0')

R6: 000A0890 (Module PGMAA599 program PGMAA599 LINKAGE SECTION BLL=0004 + X'0')

R7: 000A04C8 (Module PGMAA599 program PGMAA599 LINKAGE SECTION BLL=0005 + X'0')

R8: 0009F6D8 (Module PGMAA599 program PGMAA599 LINKAGE SECTION BLL=0001 + X'0')

R9: 001BD038 (Module PGMAA599 program PGMAA599 WORKING-STORAGE SECTION BLW=0000 + X'0')

R10: 0017549C (Module PGMAA599 program PGMAA599 + X'8C')

R11: 00175EB6 (Module PGMAA599 program PGMAA599 + X'AA6')

R12: 00175490 (Module PGMAA599 program PGMAA599 + X'80')

R13: 001BB380 (527488 bytes of storage addressable)

R14: 50176806 (Module PGMAA599 program PGMAA599 + X'13F6')

R15: 8018CEB8 (Module IGZCLNK + X'0')

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

Associated Storage Areas

Task Global Table (TGT) at address 001BB380 for length 00000308

WORKING-STORAGE SECTION

BLW=0000 at address 001BD038 for length 00000768

LINKAGE SECTION

BLL=0000 has not been assigned an address

BLL=0001 at address 0009F6D8 for length 00000A28

BLL=0002 at address 0009F360 for length 00000378

BLL=0003 at address 000A0CA8 for length 00000398

BLL=0004 at address 000A0890 for length 00000418

BLL=0005 at address 000A04C8 for length 000003C8

BLL=0006 storage at 000A0100 suppressed due to StoragePrintLimit option exceeded

BLL=0007 storage at 000A1C78 suppressed due to StoragePrintLimit option exceeded

BLL=0008 storage at 000A1950 suppressed due to StoragePrintLimit option exceeded

BLL=0009 storage at 000A1628 suppressed due to StoragePrintLimit option exceeded

BLL=000A storage at 000A1338 suppressed due to StoragePrintLimit option exceeded

BLL=000B storage at 000A2CD8 suppressed due to StoragePrintLimit option exceeded

BLL=000C storage at 000A2940 suppressed due to StoragePrintLimit option exceeded

BLL=000D storage at 000A25A8 suppressed due to StoragePrintLimit option exceeded

BLL=000E storage at 000A2210 suppressed due to StoragePrintLimit option exceeded

BLL=000F storage at 000A3CA8 suppressed due to StoragePrintLimit option exceeded

BLL=0010 storage at 000A3910 suppressed due to StoragePrintLimit option exceeded

BLL=0011 storage at 000A1040 suppressed due to StoragePrintLimit option exceeded

BLL=0012 storage at 000A34A8 suppressed due to StoragePrintLimit option exceeded

BLL=0013 storage at 000A3178 suppressed due to StoragePrintLimit option exceeded

BLL=0014 storage at 000A4BD8 suppressed due to StoragePrintLimit option exceeded

BLL=0015 storage at 000A4408 suppressed due to StoragePrintLimit option exceeded

BLL=0016 storage at 000A5BB8 suppressed due to StoragePrintLimit option exceeded

BLL=0017 storage at 000A4118 suppressed due to StoragePrintLimit option exceeded

BLL=0018 storage at 000A5820 suppressed due to StoragePrintLimit option exceeded

BLL=0019 storage at 000A5530 suppressed due to StoragePrintLimit option exceeded

BLL=001A storage at 000A5198 suppressed due to StoragePrintLimit option exceeded

BLL=001B storage at 000A6C48 suppressed due to StoragePrintLimit option exceeded

BLL=001C storage at 000A67E0 suppressed due to StoragePrintLimit option exceeded

BLL=001D storage at 000A6448 suppressed due to StoragePrintLimit option exceeded

BLL=001E storage at 000A7C28 suppressed due to StoragePrintLimit option exceeded

BLL=001F storage at 000A6080 suppressed due to StoragePrintLimit option exceeded

BLL=0020 storage at 000A78C0 suppressed due to StoragePrintLimit option exceeded

BLL=0021 storage at 000A7528 suppressed due to StoragePrintLimit option exceeded

BLL=0022 storage at 000A7110 suppressed due to StoragePrintLimit option exceeded

BLL=0023 storage at 000A8C78 suppressed due to StoragePrintLimit option exceeded

BLL=0024 storage at 000A8860 suppressed due to StoragePrintLimit option exceeded

BLL=0025 storage at 000A8448 suppressed due to StoragePrintLimit option exceeded

BLL=0026 storage at 000A80B0 suppressed due to StoragePrintLimit option exceeded

BLL=0027 storage at 000A9C28 suppressed due to StoragePrintLimit option exceeded

BLL=0028 storage at 000A94F8 suppressed due to StoragePrintLimit option exceeded

BLL=0029 storage at 000A9160 suppressed due to StoragePrintLimit option exceeded

BLL=002A storage at 000AAD10 suppressed due to StoragePrintLimit option exceeded

BLL=002B storage at 000AA978 suppressed due to StoragePrintLimit option exceeded

BLL=002C storage at 000AA5C8 suppressed due to StoragePrintLimit option exceeded

BLL=002D storage at 000AA1B0 suppressed due to StoragePrintLimit option exceeded

BLL=002E storage at 000ABC28 suppressed due to StoragePrintLimit option exceeded

BLL=002F storage at 000AB810 suppressed due to StoragePrintLimit option exceeded

BLL=0030 storage at 000AB478 suppressed due to StoragePrintLimit option exceeded

BLL=0031 storage at 000AB0B0 suppressed due to StoragePrintLimit option exceeded

BLL=0032 storage at 000ACCC0 suppressed due to StoragePrintLimit option exceeded

BLL=0033 storage at 000AC928 suppressed due to StoragePrintLimit option exceeded

BLL=0034 storage at 000AC560 suppressed due to StoragePrintLimit option exceeded

BLL=0035 storage at 000AC180 suppressed due to StoragePrintLimit option exceeded

BLL=0036 storage at 000ADC78 suppressed due to StoragePrintLimit option exceeded

BLL=0037 storage at 000AD980 suppressed due to StoragePrintLimit option exceeded

BLL=0038 storage at 000AD600 suppressed due to StoragePrintLimit option exceeded

BLL=0039 storage at 000AD238 suppressed due to StoragePrintLimit option exceeded

BLL=003A at address 000AECA8 for length 00001000

*** Special registers not available ***

See "System-Wide Information" - "Storage Areas" - "Hex-Dumped Storage" for

unformatted storage areas related to this event.

================================================================================

EVENT 7 OF 23: CALL (DSA ADDRESS 0019B018)

Load Module Name. . . . . . : SYS1.CEE.SCEERUN(IGZCLNK) - LINKAGE MANAGER FOR VS COBOL II and COBOL/370

At Address. . . . . . . . : 0018CEB8

Load Module Length. . . . : X'1148'

Entry Point Name. . . . . . : IGZCLNK - LINKAGE MANAGER FOR VS COBOL II and

                              COBOL/370

At Address. . . . . . . . : 0018CEB8 (Module

                              IGZCLNK offset X'0')

Service Level . . . . . . : C64DEV

Machine Instruction . . . . : 0CEF          BASSM   R14,R15

At Address. . . . . . . . : 0018D354 (Entry point

                              IGZCLNK offset X'49C')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -2E 9102 6010      TM      16(R6),2

       -2A A774 000A      BRC     7,*+20

       -26 5870 C1F4      L       R7,500(,R12)

       -22 5070 D054      ST      R7,84(,R13)

       -1E 5850 6020     L       R5,32(,R6)

       -1A 5050 C1F4      ST      R5,500(,R12)

       -16 5810 D138      L       R1,312(,R13)

       -12 58F0 6014      L       R15,20(,R6)

        -E 9140 A00D      TM      13(R10),64

        -A A774 0009      BRC     7,*+18

        -6 4180 B4A0      LA      R8,1184(,R11)

        -2 0B80           BSM     R8,0

  0018D354 0CEF           BASSM   R14,R15

        +2 0B08           BSM     0,R8

        +4 A7F4 0003      BRC     15,*+6

        +8 05EF           BALR    R14,R15

        +A 50F0 9078      ST      R15,120(,R9)

        +E 9102 6010      TM      16(R6),2

       +12 A774 001D      BRC     7,*+58

       +16 5870 D054      L       R7,84(,R13)

General Purpose Registers:

R0: 00000008 (2040 bytes of storage addressable)

R1: 001BB5B8 (526920 bytes of storage addressable)

R2: 001BB760 (526496 bytes of storage addressable)

R3: 2A931954 (4753068 bytes of storage addressable)

R4: 00175890 (Module PGMAA599 program PGMAA599 + X'480')

R5: 2AC14048 (1728440 bytes of storage addressable)

R6: 001D51F8 (421384 bytes of storage addressable)

R7: 00000000 (2048 bytes of storage addressable)

R8: 8018D358 (Module IGZCLNK + X'4A0')

R9: 001BB380 (527488 bytes of storage addressable)

R10: 001BB038 (528328 bytes of storage addressable)

R11: 8018CEB8 (Module IGZCLNK + X'0')

R12: 00188C80 (734080 bytes of storage addressable)

R13: 0019B018 (659432 bytes of storage addressable)

R14: 8018D356 (Module IGZCLNK + X'49E')

R15: 801F1000 (Module PGMAA300 program PGMAA300 + X'0')

================================================================================

EVENT 8 OF 23: CALL (DSA ADDRESS 2AC1F448)

Machine Instruction . . . . : 0CEF          BASSM   R14,R15

At Address. . . . . . . . : 001C185C

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -16 F010 0CEF 58E0 SRP     3311(2),2272(R5),0

       -10 D06C 0B0E AA9A TRTR    2830(109),2714(R10)

        -A C6F0 50E0 D06C EXRL    R15,*+2713821400

        -4 58F0 F010      L       R15,16(,R15)

  001C185C 0CEF           BASSM   R14,R15

        +2 58E0 D06C      L       R14,108(,R13)

        +6 0B0E           BSM    0,R14

General Purpose Registers:

R0: FFE645F4 (1681932 bytes of storage addressable)

R1: 0019B4F8 (658184 bytes of storage addressable)

R2: 0033A068 (2473880 bytes of storage addressable)

R3: 001FCFB0 (Module PGMAA300 program PGMAA300 + X'BFB0')

R4: 0000F2F4 (Module DFSKEYT0 + X'E4C')

R5: 001FE10B (Module PGMAA300 program PGMAA300 + X'D10B')

R6: 003896D0 (2148656 bytes of storage addressable)

R7: 001F1600 (Module PGMAA300 program PGMAA300 + X'600')

R8: 2AC14058 (1728424 bytes of storage addressable)

R9: 0033A048 (2473912 bytes of storage addressable)

R10: 001FED79 (Module PGMAA300 program PGMAA300 + X'DD79')

R11: 00000000 (2048 bytes of storage addressable)

R12: 00188C80 (734080 bytes of storage addressable)

R13: 2AC1F448 (1682360 bytes of storage addressable)

R14: 801C185E (501666 bytes of storage addressable)

R15: 2AA26FE8 (Module IGZXLPKA + X'ABA88')

================================================================================

EVENT 9 OF 23: CALL (DSA ADDRESS 2ADFD660)

Load Module Name. . . . . . : SYS1.CEE.SCEERUN(IGZXLPKA)

At Address. . . . . . . . : 2A97B560

Load Module Length. . . . : X'120AA0'

Entry Point Name. . . . . . : IGZXSM0A

At Address. . . . . . . . : 2AA26FE8 (Module

                              IGZXLPKA offset X'ABA88')

Machine Instruction . . . . : 0DEF          BASR    R14,R15

At Address. . . . . . . . : 2A989494 (Entry point

                              IGZXSM0A offset X'7FF624AC')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -36 58F0 7000      L       R15,0(,R7)

       -32 50E0 7110      ST      R14,272(,R7)

       -2E 5090 F45C      ST      R9,1116(,R15)

       -2A E54C F450 0000 MVHI    1104(R15),0

       -24 E54C FC50 0000 MVHI    3152(R15),0

       -1E 58E0 7104      L       R14,260(,R7)

       -1A 58E0 E010      L       R14,16(,R14)

       -16 5090 FC5C      ST      R9,3164(,R15)

       -12 50E0 F460      ST      R14,1120(,R15)

        -E 50E0 FC60      ST      R14,3168(,R15)

        -A 58F0 70A4      L       R15,164(,R7)

        -6 D203 D008 D048 MVC     8(4,R13),72(R13)

  2A989494 0DEF           BASR    R14,R15

        +2 58E0 7150      L       R14,336(,R7)

        +6 ECE8 0023 007E CIJ     R14,0,8,*+70

        +C E54C D084 0361 MVHI    132(R13),865

       +12 5800 6000      L       R0,0(,R6)

       +16 5060 D088      ST      R6,136(,R13)

       +1A C0E0 0000 28D1 LARL    R14,*+20898

       +20 A54A 8000      OILH    R4,X'8000'

General Purpose Registers:

R0: 2ADFD660 (1948064 bytes of storage addressable)

R1: 2ADFD6DC (1947940 bytes of storage addressable)

R2: 2ADFD610 (1948144 bytes of storage addressable)

R3: 2A9896A8 (Module IGZXLPKA + X'E148')

R4: 2A933A2C (4744660 bytes of storage addressable)

R5: 00000000 (2048 bytes of storage addressable)

R6: 2A9339F4 (4744716 bytes of storage addressable)

R7: 2A9338A8 (4745048 bytes of storage addressable)

R8: 0019B220 (658912 bytes of storage addressable)

R9: 2A98E37C (Module IGZXLPKA + X'12E1C')

R10: 0033A060 (2473888 bytes of storage addressable)

R11: 2ADFD708 (1947896 bytes of storage addressable)

R12: 00188C80 (734080 bytes of storage addressable)

R13: 2ADFD660 (1948064 bytes of storage addressable)

R14: 80192942 (693950 bytes of storage addressable)

R15: 89AA4970 (Module CEEPLPKA + X'203970')

================================================================================

EVENT 10 OF 23: CALL (DSA ADDRESS 00199018)

Load Module Name. . . . . . : CEEPLPKA (In Link Pack Area) - CEL Common Runtime

At Address. . . . . . . . : 098A1000

Load Module Length. . . . : X'225568'

Entry Point Name. . . . . . : CEEYSORT - CEL Sort Callable Service.

At Address. . . . . . . . : 09AA4970 (Module

                              CEEPLPKA offset X'203970')

Service Level . . . . . . : HLE77D0

Machine Instruction . . . . : A7E500DA      BRAS    R14,*+436

At Address. . . . . . . . : 09AA4D02 (Entry point

                              CEEYSORT offset X'392')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex           Instruction

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

       -2A 58F0 A0EC      L       R15,236(,R10)

       -26 1814           LR      R1,R4

       -24 5840 0010      L       R4,16

       -20 9180 4074      TM      116(R4),128

       -1C A784 0005      BRC     8,*+10

       -18 0CEF           BASSM   R14,R15

       -16 A7F4 0003      BRC     15,*+6

       -12 05EF           BALR    R14,R15

       -10 50F0 A0E8      ST      R15,232(,R10)

        -C A7F4 0028      BRC     15,*+80

        -8 4190 A0E8      LA      R9,232(,R10)

        -4 5090 A0C8      ST      R9,200(,R10)

  09AA4D02 A7E5 00DA      BRAS   R14,*+436

        +4 9108 D001      TM      1(R13),8

        +8 A774 001E      BRC     7,*+60

        +C 9180 A16B      TM      363(R10),128

       +10 A7E4 001A      BRC     14,*+52

       +14 947F A16B      NI      363(R10),127

       +18 5840 D008      L       R4,8(,R13)

       +1C 58D0 4008      L       R13,8(,R4)

General Purpose Registers:

R0: 2ADFD660 (1948064 bytes of storage addressable)

R1: 2ADFDE40 (1946048 bytes of storage addressable)

R2: 00199288 (667000 bytes of storage addressable)

R3: 00000000 (2048 bytes of storage addressable)

R4: 00199190 (667248 bytes of storage addressable)

R5: 00000003 (2045 bytes of storage addressable)

R6: 00896A48 (431544 bytes of storage addressable)

R7: 00187358 (740520 bytes of storage addressable)

R8: 001990FC (667396 bytes of storage addressable)

R9: 00199100 (667392 bytes of storage addressable)

R10: 00199018 (667624 bytes of storage addressable)

R11: 89AA4970 (Module CEEPLPKA + X'203970')

R12: 00188C80 (734080 bytes of storage addressable)

R13: 00199018 (667624 bytes of storage addressable)

R14: 89AA4D06 (Module CEEPLPKA + X'203D06')

R15: 89AA4970 (Module CEEPLPKA + X'203970')

================================================================================

EVENT 11 OF 23: LINK (DSA ADDRESS 00199330)

Load Module Name. . . . . . : CEEPLPKA (In Link Pack Area) - CEL Common Runtime

At Address. . . . . . . . : 098A1000

Load Module Length. . . . : X'225568'

Entry Point Name. . . . . . : CEEYSORT - CEL Sort Callable Service.

At Address. . . . . . . . : 09AA4970 (Module

                              CEEPLPKA offset X'203970')

Service Level . . . . . . : HLE77D0

Machine Instruction . . . . : 0A06          SVC     6 (LINK LINKX)

At Address. . . . . . . . : 09AA4F0C (Entry point

                              CEEYSORT offset X'59C')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

        -4 4040 4040      STH     R4,64(,R4)

  09AA4F0C 0A06           SVC     6        (LINK LINKX)

        +2 5830 A0C8      L       R3,200(,R10)

        +6 50F0 3000      ST      R15,0(,R3)

        +A 58D0 D004      L       R13,4(,R13)

        +E 947F A16B      NI      363(R10),127

       +12 98EC D00C      LM      R14,R12,12(R13)

       +16 07FE           BCR     15,R14

Program Status Word (PSW) . : 078D1000 89AA4F0E

PSW Summary . . . . . . . : Primary Space Mode, PSW Key 8, AMODE 31, Problem

                              State

General Purpose Registers:

R0: 0_2ADFD660 (1948064 bytes of storage addressable)

R1: 0_00199190 (667248 bytes of storage addressable)

R2: C6F1F0F0_00199330 (666832 bytes of storage addressable)

R3: 0_00000000 (2048 bytes of storage addressable)

R4: 0_00199190 (667248 bytes of storage addressable)

R5: 0_00000003 (2045 bytes of storage addressable)

R6: 0_00FD7AE0 (CVT + X'0')

R7: 0_00187358 (740520 bytes of storage addressable)

R8: 0_0019BCB8 (656200 bytes of storage addressable)

R9: 0_00199100 (667392 bytes of storage addressable)

R10: 0_00199018 (667624 bytes of storage addressable)

R11: 0_89AA4970 (Module CEEPLPKA + X'203970')

R12: 0_00188C80 (734080 bytes of storage addressable)

R13: 0_00199330 (666832 bytes of storage addressable)

R14: 0_89AA4D06 (Module CEEPLPKA + X'203D06')

R15: 0_89AA4EFC (Module CEEPLPKA + X'203EFC')

================================================================================

EVENT 12 OF 23: CALL (DSA ADDRESS 00202000)

Load Module Name. . . . . . : ICEXP24 (In Link Pack Area)

At Address. . . . . . . . : 00D49728

Load Module Length. . . . : X'300'

Machine Instruction . . . . : 0CEF          BASSM   R14,R15

At Address. . . . . . . . : 00D4991A (Module

                              ICEXP24 offset X'1F2')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -20 1BFF           SR      R15,R15

       -1E BFF7 E035      ICM     R15,7,53(R14)

       -1A 0DEF           BASR    R14,R15

       -18 0B0A           BSM     0,R10

       -16 0A1F           SVC     31        (FEOV)

       -14 0B0A           BSM     0,R10

       -12 0550           BALR    R5,0

       -10 5850 D0B8      L       R5,184(,R13)

        -C 07FF           BCR     15,R15

        -A 0550           BALR    R5,0

        -8 50E0 D3BC      ST      R14,956(,R13)

        -4 5850 D0B8      L       R5,184(,R13)

  00D4991A 0CEF           BASSM   R14,R15

        +2 5410 D2B0      N       R1,688(,R13)

        +6 58E0 D3BC      L       R14,956(,R13)

        +A 0B0E           BSM     0,R14

        +C 0550           BALR    R5,0

        +E 5850 D0BC      L       R5,188(,R13)

       +12 07FF           BCR     15,R15

       +14 0550           BALR    R5,0

General Purpose Registers:

R0: 00000000 (2048 bytes of storage addressable)

R1: 00202578 (236168 bytes of storage addressable)

R2: 00009BD0 (Module DFSBNUC0 + X'2F8')

R3: 00009BD0 (Module DFSBNUC0 + X'2F8')

R4: 0000BC48 (2294712 bytes of storage addressable)

R5: FFFFFFF8 (Storage invalid)

R6: 40D8303A (Storage invalid)

R7: 0B150290 (Module ICEIPUT + X'290')

R8: 2AFAEF60 (172192 bytes of storage addressable)

R9: 0B170CC0 (Module ICEIPUT + X'20CC0')

R10: 8B170092 (Module ICEIPUT + X'20092')

R11: 8B236028 (Module ICEXPUB + X'28')

R12: 0B16FCC0 (Module ICEIPUT + X'1FCC0')

R13: 00202000 (237568 bytes of storage addressable)

R14: 80D4991C (Module ICEXP24 + X'1F4')

R15: 801991EC (667156 bytes of storage addressable)

================================================================================

EVENT 13 OF 23: CALL (DSA ADDRESS 00199288)

Machine Instruction . . . . : 58EE0008      L       R14,8(R14)

At Address. . . . . . . . : 00199308

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

00199308 58EE 0008      L       R14,8(R14)

        +4 0B0E           BSM     0,R14

        +6 0B0F           BSM     0,R15

        +8 89AA 4E84      SLL     R10,3716(R4)

        +C 4000 0004      STH     R0,4

General Purpose Registers:

R0: AAA605EC (Module IGZXLPKA + X'E508C')

R1: 00202578 (236168 bytes of storage addressable)

R2: 00009BD0 (Module DFSBNUC0 + X'2F8')

R3: 00009BD0 (Module DFSBNUC0 + X'2F8')

R4: 0000BC48 (2294712 bytes of storage addressable)

R5: FFFFFFF8 (Storage invalid)

R6: 0020200C (237556 bytes of storage addressable)

R7: 10D4991C (Storage invalid)

R8: 89AA4E84 (Module CEEPLPKA + X'203E84')

R9: 80000000 (2048 bytes of storage addressable)

R10: 00199018 (667624 bytes of storage addressable)

R11: 89AA4970 (Module CEEPLPKA + X'203970')

R12: 00188C80 (734080 bytes of storage addressable)

R13: 00199288 (667000 bytes of storage addressable)

R14: 80199308 (666872 bytes of storage addressable)

R15: AAA605EC (Module IGZXLPKA + X'E508C')

================================================================================

EVENT 14 OF 23: CALL (DSA ADDRESS 001D5920)

Load Module Name. . . . . . : SYS1.CEE.SCEERUN(IGZXLPKA)

At Address. . . . . . . . : 2A97B560

Load Module Length. . . . : X'120AA0'

Entry Point Name. . . . . . : IGZXE35H

At Address. . . . . . . . : 2AA605EC (Module

                              IGZXLPKA offset X'E508C')

Machine Instruction . . . . : A7F4002A      BRC     15,*+84

At Address. . . . . . . . : 2A98E37C (Entry point

                              IGZXE35H offset X'7FF2DD90')

AMODE . . . . . . . . . . : n/a

Additional instructions around event offset:

  Offset   Hex            Instruction

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

2A98E37C A7F4 002A      BRC     15,*+84

General Purpose Registers:

R0: 00000000 (2048 bytes of storage addressable)

R1: 00000000 (2048 bytes of storage addressable)

R2: 00000000 (2048 bytes of storage addressable)

R3: 00000000 (2048 bytes of storage addressable)

R4: 00000000 (2048 bytes of storage addressable)

R5: 00000000 (2048 bytes of storage addressable)

R6: 00000000 (2048 bytes of storage addressable)

R7: 00000000 (2048 bytes of storage addressable)

R8: 00000000 (2048 bytes of storage addressable)

R9: 00000000 (2048 bytes of storage addressable)

R10: 00000000 (2048 bytes of storage addressable)

R11: 00000000 (2048 bytes of storage addressable)

R12: 00000000 (2048 bytes of storage addressable)

R13: 001D5920 (419552 bytes of storage addressable)

R14: 2A98E37C (Module IGZXLPKA + X'12E1C')

R15: 801F1000 (Module PGMAA300 program PGMAA300 + X'0')

================================================================================

EVENT 15 OF 23: CALL (DSA ADDRESS 0019B220)

COBOL Source Code:

  Source

Line #

------

      -5       *ALIMENTER SI NECESSAIRE LES

      -4       *ZONES ELEMENTS DEMANDES ET

      -3       *ELEMENTS DE RECHERCHE

      -2       *EX : M 'A01' XW32-ELDEM

      -1       *ACCES     SUBPGMAB

003733           CALL SUBPGMAB USING XW32

003734                            DB07

003735                             Z740Y020

      +1            DISPLAY 'DB07-D2RET : ' DB07-D2RET

      +2            IF XW32-COOUR = '00'

      +3                MOVE DB07-D2RET            TO DAT7C

      +4                PERFORM F9520-C

      +5                MOVE DAT6C                 TO W-DARET

Data Field Declarations:

  Source

Line #

------

000700000010 01                 XW32.                                         CENXW322

001262       01 SUBPGMAB                          PIC X(08) VALUE 'SUBPGMAB'.

001263       01 Z740Y020                        PIC X(12) VALUE

001264            'Z740Y020    '.

001268000010 01                 DB07.                                         CEND3071

Data Field Values:

  DB07     = 5              000000VENIS./ST PRT       SP 3108202115042022

SUBPGMAB   = SUBPGMAB

XW32     =   BGP    0081001

             NOTE: Above value truncated after 119 bytes.

Z740Y020 = Z740Y020

The DWARF debugging information used for the above was found via Compiler TEST

option in LOADLI.MYLPROD.PGMBATCH(PGMAA300).

Load Module Name. . . . . . : LOADLI.MYLPROD.PGMBATCH(PGMAA300)

At Address. . . . . . . . : 001F1000

Load Module Length. . . . : X'11000'

Link-Edit Date and Time . : 2020/11/30 12:17:03

Program and Entry Point Name: PGMAA300

At Address. . . . . . . . : 001F1000 (Module

                              PGMAA300 offset X'0')

Program Length. . . . . . : X'F718'

Program Language. . . . . : COBOL (Compiled using IBM Enterprise COBOL R6 M2

                              on 2020/11/30 at 12:16:56)

Compiler Options Used . . : NOADATA NOADV AFP(NOVOLATILE) APOST ARCH(12)

                              ARITH(COMPAT) NOAWO NOBLOCK0 NOCICS CODEPAGE(1140)

                              NOCURRENCY DATA(24) DBCS NODECK DISPSIGN(SEP)

                              NODLL NODUMP NODYNAM NOEXPORTALL NOFASTSRT

                              HGPR(PRESERVE) INTDATE(ANSI) NOINITIAL INLINE

                              NOINVDATA LIB NOLIST MAP NOMDECK NONAME NONUMBER

                              NONUMCHECK NUMPROC(NOPFD) OBJ OFFSET OPTIMIZE(1)

                              OUTDD(SYSOUT) PGMNAME(COMPAT) NOPARMCHECK

                              QUALIFY(EXTEND) RENT RES RMODE(ANY) NOSEQUENCE

                              SOURCE NOSQL NOSQLIMS NOSQLCCSID SSRANGE(NOZLEN,

                              ABD) NOSTGOPT SUPPRESS NOTERM TEST(EJPD,DWARF,

                              SOURCE,NOSEPARATE) NOTHREAD TRUNC(OPT) VBREF

                              VLR(STANDARD) VSAMOPENFS(COMPAT) NOWORD

                              XMLPARSE(XMLSS) XREF ZONEDATA(PFD) ZWB

Machine Instruction . . . . : 0DEF          BASR    R14,R15

At Address. . . . . . . . : 001F25C4 (Program

                              PGMAA300 offset X'15C4')

AMODE . . . . . . . . . . : 31

General Purpose Registers:

R0: 0019B890 (657264 bytes of storage addressable)

R1: 0019B4F8 (Module PGMAA300 program PGMAA300 LOCAL-STORAGE SECTION auto + X'2D8')

R2: 801F2240 (Module PGMAA300 program PGMAA300 + X'1240', source line #3645)

R3: 001FCFB0 (Module PGMAA300 program PGMAA300 + X'BFB0')

R4: 2AC14CA8 (1725272 bytes of storage addressable)

R5: 001D56A4 (420188 bytes of storage addressable)

R6: 2AC14BEC (1725460 bytes of storage addressable)

R7: 8033A830 (Module PGMAA300 program PGMAA300 WORKING-STORAGE SECTION heap + X'7E8', symbol Z740Y020, source line #1263)

R8: 2AC14058 (1728424 bytes of storage addressable)

R9: 0033A048 (Module PGMAA300 program PGMAA300 WORKING-STORAGE SECTION heap + X'0')

R10: 0000F2F4 (Module DFSKEYT0 + X'E4C')

R11: 0134AF70 (21188752 bytes of storage addressable)

R12: 00188C80 (734080 bytes of storage addressable)

R13: 0019B220 (Module PGMAA300 program PGMAA300 LOCAL-STORAGE SECTION auto + X'0')

R14: 801F25C6 (Module PGMAA300 program PGMAA300 + X'15C6', source line #3733)

R15: 2A99CBD0 (Module IGZXLPKA + X'21670')

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

Associated Open Files

File Name . . . . . . . . . : PA

Data Set Name . . . . . . : NULLFILE

File Attributes . . . . . : ORGANIZATION=SEQUENTIAL, ACCESS MODE=SEQUENTIAL,

                              RECFM=FIXED

Last I/O Function . . . . : UNKNOWN

Open Status . . . . . . . : OUTPUT

File Status Code. . . . . : 0

  No record buffers available.

File Name . . . . . . . . . : PE

Data Set Name . . . . . . : NULLFILE

File Attributes . . . . . : ORGANIZATION=SEQUENTIAL, ACCESS MODE=SEQUENTIAL,

                              RECFM=FIXED

Last I/O Function . . . . : UNKNOWN

Open Status . . . . . . . : OUTPUT

File Status Code. . . . . : 0

  No record buffers available.

File Name . . . . . . . . . : PX

Data Set Name . . . . . . : NULLFILE

File Attributes . . . . . : ORGANIZATION=SEQUENTIAL, ACCESS MODE=SEQUENTIAL,

                              RECFM=FIXED

Last I/O Function . . . . : UNKNOWN

Open Status . . . . . . . : OUTPUT

File Status Code. . . . . : 0

  No record buffers available.

File Name . . . . . . . . . : SW

Data Set Name . . . . . . : NULLFILE

File Attributes . . . . . : ORGANIZATION=SEQUENTIAL, ACCESS MODE=SEQUENTIAL,

                              RECFM=FIXED

Last I/O Function . . . . : UNKNOWN

Open Status . . . . . . . : OUTPUT

File Status Code. . . . . : 0

  No record buffers available.

File Name . . . . . . . . . : UG

Data Set Name . . . . . . : NULLFILE

File Attributes . . . . . : ORGANIZATION=SEQUENTIAL, ACCESS MODE=SEQUENTIAL,

                              RECFM=FIXED

Last I/O Function . . . . : UNKNOWN

Open Status . . . . . . . : OUTPUT

File Status Code. . . . . : 0

  No record buffers available.

File Name . . . . . . . . . : VW

Data Set Name . . . . . . : TMG.F105F220.G0002V00

File Attributes . . . . . : ORGANIZATION=SEQUENTIAL, ACCESS MODE=SEQUENTIAL,

                              RECFM=FIXED

Last I/O Function . . . . : UNKNOWN

Open Status . . . . . . . : OUTPUT

File Status Code. . . . . : 0

  Current Record Build Area : Record data length 38

Address Offset     Hex                                 EBCDIC

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

00215DC0            0021CB00 00000000 00000000 00000000 *................*

00215DD0       +10 00000000 00000000 00000000 00000000 *................*

00215DE0       +20 00000000 0000                       *......          *

File Name . . . . . . . . . : WC

Data Set Name . . . . . . : TMG.F105F218.G0002V00

File Attributes . . . . . : ORGANIZATION=SEQUENTIAL, ACCESS MODE=SEQUENTIAL,

                              RECFM=FIXED

Last I/O Function . . . . : UNKNOWN

Open Status . . . . . . . : OUTPUT

File Status Code. . . . . : 0

  Current Record Build Area : Record data length 186

Address Offset     Hex                                 EBCDIC

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

00563F00            0056AC00 00000000 00000000 00000000 *................*

00563F10       +10 00000000 00000000 00000000 00000000 *................*

           Lines 00563F20-00563FA0 (X'90' bytes) same as above

00563FB0       +B0 00000000 00000000 0000              *..........      *

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

Associated Storage Areas

FILE SECTION

BLF=00001 through to BLF=00002 have not been assigned an address (File NE)

Offset Hex Value                           Data Value         Source (Starting at Line # 000154)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 000164)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 000216)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 000240)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

BLF=00008 has not been assigned an address (File TC)

Offset Hex Value                           Data Value         Source (Starting at Line # 000311)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

WORKING-STORAGE SECTION

Offset Hex Value                           Data Value         Source (Starting at Line # 000460)

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

HEAP storage at address 0033A048

                                                                 01                 XW05.                                         CE

                                                                        10          XW05-XPCB.                                    CE

                                                                         15         XW05-XNMDBD PICTURE X(8)                      CE

     100 40404040 40404040                   *                *                          VALUE SPACE.                            CE

                                                                         15         XW05-XNISEG PICTURE XX                        CE

     108 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         XW05-XCORET PICTURE XX                        CE

     10A 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         XW05-XOPTRT PICTURE X(4)                      CE

     10C 40404040                            *                *                          VALUE SPACE.                            CE

                                                                         15         XW05-FILLER PICTURE S9(5)                     CE

                                                                                         BINARY                                   CE

     110 00000000                            0                                           VALUE ZERO.                             CE

                                                                         15         XW05-XNMSEG PICTURE X(8)                      CE

     114 40404040 40404040                   *                *                          VALUE SPACE.                            CE

                                                                         15         XW05-XLGKEY PICTURE S9(5)                     CE

                                                                                         BINARY                                   CE

     11C 00000000                            0                                           VALUE ZERO.                             CE

                                                                         15         XW05-XNBSEG PICTURE S9(5)                     CE

                                                                                         BINARY                                   CE

     120 00000000                            0                                           VALUE ZERO.                             CE

                                                                         15         XW05-XCLECO PICTURE X(70)                     CE

     124 40404040 40404040 40404040 40404040 *                *                          VALUE SPACE.                            CE

       Lines 134-154 same as above

     164 40404040 4040                       *                *

                                                                        10          XW05-XLGKE9 PICTURE 9(5)                      CE

     16A F0F0F0F0 F0                         0                                           VALUE ZERO.                            CE

                                                                        10          XW05-XNBSE9 PICTURE 9(5)                      CE

     16F F0F0F0F0 F0                         0                                           VALUE ZERO.                             CE

                                                                        10          XW05-XNFPAC PICTURE X(8)                      CE

     174 40404040 40404040                   *                *                          VALUE SPACE.                            CE

                                                                        10          XW05-XSSA.                                    CE

                                                                         15         XW05-FILLER.                                  CE

                                                                          20       XW05-SEGNM PICTURE X(8)                      CE

     17C 40404040 40404040                   *                *                          VALUE SPACE.                            CE

                                                                         20        XW05-SEPARA PICTURE X                         CE

     184 40                                  *                *                          VALUE SPACE.                            CE

                                                                         15         XW05-XCCOD PICTURE X(5)                      CE

     185 40404040 40                         *                *                          VALUE SPACE.                            CE

                                                                         15         XW05-XQSTA.                                   CE

                                                                          20        XW05-FILLER PICTURE X(9)                      CE

     18A 40404040 40404040 40                *                *                          VALUE SPACE.                            CE

                                                                          20        XW05-XOPER PICTURE XX                        CE

     193 4040                                *                *                          VALUE SPACE.                            CE

                                                                          20        XW05-FILLER PICTURE X(70)                     CE

     195 40404040 40404040 40404040 40404040 *                *                          VALUE SPACE.                            CE

         Lines 1A5-1C5 same as above

     1D5 40404040 4040                       *                *

                                                                        10          XW05-XCOUNT PICTURE S9(5)                     CE

                                                                                         BINARY                                   CE

     1DB 00000000                            0                                           VALUE ZERO.                             CE

                                                                        10          XW05-XGU    PICTURE X(4)                      CE

     1DF C7E44040                            *GU              *                          VALUE 'GU '.                           CE

                                                                        10          XW05-XGHU   PICTURE X(4)                      CE

     1E3 C7C8E440                            *GHU             *                          VALUE 'GHU '.                           CE

                                                                        10          XW05-XGN    PICTURE X(4)                      CE

     1E7 C7D54040                            *GN              *                          VALUE 'GN '.                           CE

                                                                        10          XW05-XGHN   PICTURE X(4)                      CE

     1EB C7C8D540                            *GHN             *                          VALUE 'GHN '.                           CE

                                                                        10          XW05-XGNP   PICTURE X(4)                      CE

     1EF C7D5D740                            *GNP             *                          VALUE 'GNP '.                           CE

                                                                        10          XW05-XGHNP PICTURE X(4)                      CE

     1F3 C7C8D5D7                            *GHNP            *                          VALUE 'GHNP'.                           CE

                                                                        10          XW05-XISRT PICTURE X(4)                      CE

     1F7 C9E2D9E3                            *ISRT            *                          VALUE 'ISRT'.                           CE

                                                                        10          XW05-XREPL PICTURE X(4)                      CE

     1FB D9C5D7D3                            *REPL            *                          VALUE 'REPL'.                           CE

                                                                        10          XW05-XDLET PICTURE X(4)                      CE

     1FF C4D3C5E3                            *DLET            *                          VALUE 'DLET'.                           CE

                                                                        10          XW05-XFONC PICTURE X(4)                      CE

     203 40404040                            *                *                          VALUE '    '.                           CE

                                                                        10          XW05-NOMPGS PICTURE X(8)                      CE

     207 E9F0F4F0 D7C3C1D3                   *Z040PCAL        *                          VALUE 'Z040PCAL'.                       CE

                                                                        10          XW05-NOMPGT PICTURE X(8)                      CE

     20F E9F0F4F0 D7E2E3C1                   *Z040PSTA        *                          VALUE 'Z040PSTA'.                       CE

                                                                        10          XW05-XXSSA PICTURE X(95)                     CE

     217 40404040 40404040 40404040 40404040 *                *                          VALUE SPACE.                            CE

         Lines 227-257 same as above

     267 40404040 40404040 40404040 404040   *                *

                                                                 01                 XW06.                                         CE

                                                                        10          XW06-ZGROUP.                                  CE

                                                                         15         XW06-NOMPG PICTURE X(8)                      CE

     278 40404040 40404040                   *                *                          VALUE SPACE.                            CE

                                                                         15         XW06-FILLER PICTURE XXX                       CE

     280 404040                              *                *                          VALUE SPACE.                            CE

                                                                         15         XW06-PACFIP PICTURE XX                        CE

     283 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         XW06-FILLER PICTURE XXX                       CE

     285 404040                              *                *                          VALUE SPACE.                            CE

                                                                         15         XW06-DDNAM PICTURE X(8)                      CE

     288 40404040 40404040                   *                *                          VALUE SPACE.                            CE

                                                                         15        XW06-FILLER PICTURE XXX                       CE

     290 404040                              *                *                          VALUE SPACE.                            CE

                                                                         15         XW06-CPTENE PICTURE 9(7)                      CE

     293 F0F0F0F0 F0F0F0                     0                                           VALUE ZERO.                             CE

                                                                         15         XW06-FILLER PICTURE XXX                       CE

     29A 404040                              *                *                          VALUE SPACE.                            CE

                                                                         15         XW06-FICLI PICTURE X(25)                     CE

     29D 40404040 40404040 40404040 40404040 *                *                          VALUE SPACE.                            CE

     2AD 40404040 40404040 40                *                *

                                                                        10          XW06-ZTITRE.                                  CE

                                                                         15         XW06-FILLER PICTURE X(11)                     CE

     2B6 D3D6C1C4 60D4D6C4 404040            *LOAD-MOD        *                          VALUE 'LOAD-MOD'.                       CE

                                                                         15         XW06-FILLER PICTURE X(5)                      CE

     2C1 D7C1C340 40                         *PAC             *                          VALUE 'PAC '.                          CE

                                                                         15         XW06-FILLER PICTURE X(11)                     CE

     2C6 C4C4D5C1 D4C54040 404040            *DDNAME          *                          VALUE 'DDNAME'.                         CE

                                                                         15         XW06-FILLER PICTURE X(10)                     CE

     2D1 C3D6D4D7 E3C5E4D9 4040              *COMPTEUR        *                          VALUE 'COMPTEUR'.                       CE

                                                                         15         XW06-FILLER PICTURE X(18)                     CE

     2DB C3D6D5E3 C5D5E440 C4E440C6 C9C3C8C9 *CONTENU DU FICHI*                          VALUE 'CONTENU DU FICHIER'.             CE

     2EB C5D9                                *ER              *

                                                                        10          XW06-NOMPGA PICTURE X(8)                      CE

     2ED C1C2C5D5 C4404040                   *ABEND           *                          VALUE 'ABEND   '.                       CE

                                                                        10          XW06-XXXX   PICTURE X(4)                      CE

     2F5 40404040                            *                *                          VALUE SPACE.                            CE

                                                                 01                 XW1B.                                         CE

                                                                        10          XW1B-NMEPG PICTURE X(8)                      CE

     300 C6F1F0F0 D7F3F0F0                   *PGMAA300        *                          VALUE SPACE.                            CE

                                                                        10          XW1B-GROU1.                                   CE

                                                                         15        XW1B-FILLER PICTURE X(6)                      CE

     308 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                         15         XW1B-NMCPT PICTURE X(4)                      CE

     30E 40404040                            *                *                          VALUE SPACE.                            CE

                                                                         15         XW1B-FILLER PICTURE X(9)                      CE

     312 40404040 40404040 40                *                *                          VALUE SPACE.                            CE

                                                                         15         XW1B-CTENE PICTURE 9(9)                      CE

     31B F0F0F0F0 F0F0F0F0 F0                0                                           VALUE ZERO.                             CE

                                                                         15         XW1B-FILLER PICTURE X(3)                      CE

     324 404040                              *                *                          VALUE SPACE.                            CE

                                                                         15         XW1B-LIDIV PICTURE X(30)                     CE

     327 40404040 40404040 40404040 40404040 *                *                          VALUE SPACE.                            CE

     337 40404040 40404040 40404040 4040     *                *

                                                                        10          XW1B-GROU2.                                   CE

                                                                         15         XW1B-FILLER PICTURE X(3)                      CE

     345 404040                              *                *                          VALUE SPACE.                            CE

                                                                         15         XW1B-COFPA PICTURE XX                        CE

     348 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         XW1B-FILLER PICTURE X(3)                      CE

     34A 404040                              *                *                          VALUE SPACE.                            CE

                                                                         15         XW1B-NMDDN PICTURE X(8)                      CE

     34D 40404040 40404040                   *                *                          VALUE SPACE.                            CE

                                                                         15         XW1B-FILLER PICTURE X(3)                      CE

     355 404040                              *                *                          VALUE SPACE.                            CE

                                                                         15         XW1B-CTENE1 PICTURE 9(9)                      CE

     358 F0F0F0F0 F0F0F0F0 F0                0                                           VALUE ZERO.                            CE

                                                                         15         XW1B-FILLER PICTURE X(3)                      CE

     361 404040                              *                *                          VALUE SPACE.                            CE

                                                                         15         XW1B-LIDIVA PICTURE X(30)                     CE

     364 40404040 40404040 40404040 40404040 *                *                          VALUE SPACE.                            CE

     374 40404040 40404040 40404040 4040     *                *

                                                                        10          XW1B-GRDII.                                   CE

                                                                         15         XW1B-FILLER PICTURE X(5)                      CE

     382 5B7B5B7B C9                         *$#$#I           *                          VALUE '$#$#I'.                          CE

                                                                         15         XW1B-NMEPGI PICTURE X(8)                      CE

     387 C6F1F0F0 D7F3F0F0                   *PGMAA300        *                          VALUE SPACE.                            CE

                                                                        10          XW1B-GRDIE.                                   CE

                                                                         15         XW1B-FILLER PICTURE X(5)                      CE

     38F 5B7B5B7B C5                         *$#$#E           *                          VALUE '$#$#E'.                          CE

                                                                         15         XW1B-NMEPGE PICTURE X(8)                      CE

     394 C6F1F0F0 D7F3F0F0                   *PGMAA300        *                          VALUE SPACE.                            CE

                                                                        10          XW1B-GRDIT.                                   CE

                                                                         15         XW1B-FILLER PICTURE X(5)                      CE

     39C 5B7B5B7B E3                         *$#$#T           *                          VALUE '$#$#T'.                          CE

                                                                         15         XW1B-NMEPGT PICTURE X(8)                      CE

     3A1 C6F1F0F0 D7F3F0F0                   *PGMAA300        *                          VALUE SPACE.                            CE

                                                                        10          XW1B-GRDIW.                                   CE

                                                                         15         XW1B-FILLER PICTURE X(5)                      CE

     3A9 5B7B5B7B E6                         *$#$#W           *                          VALUE '$#$#W'.                          CE

                                                                         15         XW1B-NMEPGW PICTURE X(8)                      CE

     3AE C6F1F0F0 D7F3F0F0                   *PGMAA300        *                          VALUE SPACE.                            CE

                                                                        10          XW1B-STABD PICTURE X(5)                      CE

     3B6 C1C2C5D5 C4                         *ABEND           *                          VALUE 'ABEND'.                          CE

                                                                        10          XW1B-XW38.                                    CE

                                                                         15         XW1B-DTAMJ PICTURE X(8)                      CE

     3BB F2F261F0 F261F2F4                   *22/02/24        *                          VALUE SPACE.                            CE

                                                                         15         XW1B-HREDN.                                   CE

                                                                          20        XW1B-HRDHH PICTURE XX                        CE

     3C3 F1F0                                *10              *                          VALUE SPACE.                            CE

                                                                          20        XW1B-HRDMM PICTURE XX                        CE

     3C5 F1F3                                *13              *                          VALUE SPACE.                            CE

                                                                          20        XW1B-HRDSS PICTURE XX                        CE

     3C7 F4F6                                *46              *                          VALUE SPACE.                            CE

                                                                         15         XW1B-HRED8 PICTURE X(08)                     CE

     3C9 F1F07AF1 F37AF4F6                   *10:13:46        *                          VALUE SPACE.                            CE

                                                                        10          XW1B-FILLER PICTURE X(50)                     CE

     3D1 40404040 40404040 40404040 40404040 *                *                          VALUE SPACE.                            CE

         Lines 3E1-3F1 same as above

     401 4040                                *                *

                                                                 01                 XW32.                                         CE

                                                                        10          XW32-COPRN PICTURE XX                        CE

     408 4040                                *                *                          VALUE SPACE.                            CE

                                                                        10          XW32-CONVI PICTURE X                         CE

     40A C2                                  *B               *                          VALUE SPACE.                            CE

                                                                        10          XW32-COFON PICTURE XX                        CE

     40B C7D7                                *GP              *                          VALUE SPACE.                           CE

                                                                        10          XW32-NBPST PICTURE S9(8)                     CE

                                                                                         BINARY                                   CE

     40D 40404040                            1077952576                                  VALUE ZERO.                             CE

                                                                        10          XW32-NBPSR                                    CE

                                                                                         REDEFINES     XW32-NBPST.                CE

     40D 4040                                *                *          15         XW32-NBPSX PICTURE XX.                       CE

                                                                         15         XW32-NBPS9 PICTURE S9(4)                     CE

     40F 4040                                16448                                       BINARY       .                           CE

                                                                        10          XW32-COOUR PICTURE XX                        CE

     411 F0F0                                *00              *                          VALUE SPACE.                            CE

                                                                        10          XW32-COTBL.                                   CE

                                                                         15        XW32-CORTS PICTURE X(2)                      CE

     413 F8F1                                *81              *                          VALUE SPACE.                            CE

                                                                         15         XW32-COLIE PICTURE X(02)                     CE

     415 F0F0                                *00              *                          VALUE SPACE.                            CE

                                                                         15         XW32-COVER PICTURE X                         CE

     417 F1                                  *1               *                          VALUE SPACE.                            CE

                                                                         15         XW32-COASP PICTURE XXX                       CE

     418 404040                              *                *                          VALUE SPACE.                            CE

                                                                        10          XW32-ELDEM.                                   CE

                                                                         15         XW32-ELTDEM                                   CE

                                                                                         OCCURS 020.                              CE

                                                                          20        XW32-INLED PICTURE X                         CE

     41B 40                                  *                *                          VALUE SPACE.                            CE

                                                                          20        XW32-INPED PICTURE 99                        CE

     41C 4040                                *                *                          VALUE ZERO.                             CE

                                                                                    XW32-ELTDEM(2) to XW32-ELTDEM(20) same as above

                                                                        10          XW32-ELREC.                                   CE

                                                                         15         XW32-ELTREC                                   CE

                                                                                         OCCURS 020.                              CE

                                                                          20        XW32-INLER PICTURE X                         CE

     457 40                                  *                *                          VALUE SPACE.                            CE

                                                                          20        XW32-INPER PICTURE 99                        CE

     458 4040                                *                *                          VALUE ZERO.                             CE

                                                                                    XW32-ELTREC(2) to XW32-ELTREC(20) same as above

                                                                        10          XW32-COORT PICTURE XX                        CE

     493 7E40                                *=               *                          VALUE SPACE.                           CE

                                                                        10          XW32-RFPOS PICTURE X(50)                     CE

     495 F5404040 40404040 40404040 404040F0 *5              0*                          VALUE SPACE.                            CE

     4A5 F0F0F0F0 F0404040 40404040 40404040 *00000           *

     4B5 40404040 40404040 40404040 40404040 *                *

     4C5 4040                                *                *

                                                                        10          XW32-RFFIN PICTURE X(50)                     CE

     4C7 40404040 40404040 40404040 40404040 *                *                          VALUE SPACE.                            CE

         Lines 4D7-4E7 same as above

     4F7 4040                                *                *

                                                                 01 CP1A.

                                                                   05 CP1A-CPART.

     500 0000                                *..              *      10 CP1A-CPROD                  PIC XX.

     502 00000000 00000000 0000              *..........      *      10 CP1A-NARTI                  PIC X(10).

     50C 0000                                *..              *    05 CP1A-IMSLLC                   PIC S999 COMP-3 .

     50E 00                                  *.               *    05 CP1A-INARTA                   PIC X.

     50F 00                                  *.               *    05 CP1A-INARTT                   PIC X.

     510 00                                  *.               *    05 CP1A-EXUTIP                   PIC X.

     511 00000000 00                         *.....           *    05 CP1A-SERVCA                   PIC X(05).

     516 00                                  *.               *    05 CP1A-ORREL                    PIC X.

                                                                   05 CP1A-NASTR.

     517 0000                                *..              *      10 CP1A-NATAR                  PIC XX.

     519 00                                  *.               *      10 CP1A-STRAR                  PIC X.

     51A 00                                  *.               *    05 CP1A-ACTAR                    PIC X.

     51B 00000000 00000000 00000000 00000000 *................*    05 CP1A-LIBAR1                   PIC X(20).

     52B 00000000                            *....            *

     52F 00000000 00000000 0000              *..........      *    05 CP1A-NPLAN                    PIC X(10).

     539 0000                                *..              *    05 CP1A-INPLAA                   PIC XX.

     53B 00                                  *.               *    05 CP1A-CONCA                    PIC X.

     53C 0000                                *..              *    05 CP1A-UEART                    PIC XX.

     53E 00000000 00                         *.....           *    05 CP1A-SERVCM                   PIC X(05).

     543 0000                                *..              *    05 CP1A-UGART                    PIC XX.

     545 00000000 00                         *.....           *    05 CP1A-KOPAS                    PIC S9(05)V9(04) COMP-3 .

     54A 00                                  *.               *    05 CP1A-TECNI                    PIC X.

     54B 00000000 00                         *.....           *    05 CP1A-FCONT                    PIC X(05).

     550 00000000                            *....            *    05 CP1A-POIDS                    PIC S9(04)V9(03) COMP-3 .

     554 000000                              *...             *    05 CP1A-NUDIFA                   PIC X(03).

     557 000000                              *...             *    05 CP1A-NUDIFB                   PIC X(03).

     55A 000000                              *...             *    05 CP1A-NUDIFC                   PIC X(03).

     55D 000000                              *...             *    05 CP1A-NUDIFD                   PIC X(03).

     560 000000                              *...             *    05 CP1A-NUDIFE                   PIC X(03).

     563 00000000 00                         *.....           *    05 CP1A-SERVCD                   PIC X(05).

     568 00                                  *.               *    05 CP1A-DESAC                    PIC X.

     569 00                                  *.               *    05 CP1A-ANTIP                    PIC X.

                                                                   05 CP1A-SIGES.

     56A 00                                  *.               *      10 CP1A-EXPRO                  PIC X.

     56B 00                                  *.               *      10 CP1A-NIGER                  PIC X.

     56C 00                                 *.               *      10 CP1A-CESIB                  PIC X.

     56D 000000                              *...             *    05 CP1A-CAGES                    PIC X(03).

     570 00000000 00                         *.....           *    05 CP1A-SERVCG                   PIC X(05).

     575 00                                  *.               *    05 CP1A-CLAGE                    PIC X.

     576 00000000                            *....            *    05 CP1A-FAPROU                   PIC X(04).

     57A 0000                                *..              *    05 CP1A-STDORU                   PIC XX.

     57C 0000                                *..              *    05 CP1A-FARCG                    PIC X(02).

     57E 00                                  *.               *    05 CP1A-NOMCO                    PIC X.

     57F 00                                  *.               *    05 CP1A-MOREA                    PIC X.

     580 00                                  *.               *    05 CP1A-ARCHA                    PIC X.

     581 00                                  *.               *    05 CP1A-OPSTA                    PIC X.

     582 00                                  *.               *    05 CP1A-CHYCO                    PIC X.

     583 0000                                *..              *    05 CP1A-DCYCO                    PIC S9(03) COMP-3 .

     585 0000                                *..              *    05 CP1A-PALEC                    PIC 9(02).

     587 00                                  *.               *    05 CP1A-CHDES                    PIC X.

     588 0000                                *..              *    05 CP1A-DESEC                    PIC S9(03) COMP-3 .

     58A 00                                  *.               *    05 CP1A-CHDAC                    PIC X.

     58B 0000                                *..              *    05 CP1A-DEDAC                    PIC S9(03) COMP-3 .

     58D 0000                                *..              *    05 CP1A-PALEP                    PIC 9(02).

     58F 0000                                *..              *    05 CP1A-DMIRE                    PIC S9(03) COMP-3 .

     591 000000                              *...             *    05 CP1A-QSEC                     PIC S9(05) COMP-3 .

     594 000000                              *...             *    05 CP1A-QEXTI                    PIC S9(05) COMP-3 .

     597 00                                  *.               *    05 CP1A-RPSTC                    PIC X.

                                                                   05 CP1A-ADSTO.

     598 0000                                *..              *      10 CP1A-STOAB                  PIC X(02).

     59A 00000000 000000                     *.......         *      10 CP1A-PLSTO                  PIC X(07).

     5A1 00000000                            *....            *    05 CP1A-SRTHC                    PIC S9(07) COMP-3 .

     5A5 00                                  *.               *    05 CP1A-EXCOT                    PIC X.

     5A6 00                                  *.               *    05 CP1A-EXPLM                    PIC X.

     5A7 00                                 *.               *    05 CP1A-EXOTA                    PIC X.

     5A8 00                                  *.               *    05 CP1A-EXLIB2                   PIC X.

     5A9 00000000 0000                       *......          *    05 CP1A-DACRE                    PIC X(06).

     5AF 00000000 0000                       *......          *    05 CP1A-DAMAJ                    PIC 9(06).

     5B5 00                                  *.               *    05 CP1A-INAPM                    PIC X.

     5B6 00                                  *.               *    05 CP1A-INCON                    PIC X.

     5B7 0000                                *..              *    05 CP1A-LICON                    PIC X(02).

     5B9 00000000                            *....            *    05 CP1A-IDCMP                    PIC X(04).

     5BD 0000                                *..              *    05 CP1A-FARCB                    PIC X(02).

     5BF 0000                                *..              *    05 CP1A-FARST                    PIC X(02).

     5C1 00                                  *.               *    05 CP1A-COARE                    PIC X.

     5C2 00                                  *.               *    05 CP1A-TYPDS                    PIC X.

     5C3 00                                  *.               *    05 CP1A-INDOCP                   PIC X.

     5C4 00000000                            *....            *    05 CP1A-FILLER                   PIC X(04).

                                                                 01 CR1G.

                                                                   05 CR1G-KCR1G.

                                                                     10 CR1G-CPNOT.

     5C8 0000                                *..              *        15 CR1G-CPROD                PIC XX.

                                                                       15 CR1G-NOTBM.

     5CA 00000000 00                         *.....           *          20 CR1G-NUBAS              PIC X(05).

     5CF 0000                                *..              *          20 CR1G-MOIND              PIC X(02).

     5D1 00                                  *.               *    05 CR1G-MORES                    PIC X.

     5D2 00                                  *.               *    05 CR1G-ETANO                    PIC X.

     5D3 00000000 00                         *.....           *    05 CR1G-SERVCO                   PIC X(05).

     5D8 00000000 00000000 00000000 00000000 *................*    05 FILLER                        PIC X(108).

         Lines 5E8-628 same as above

     638 00000000 00000000 00000000          *............    *

                                                                 01 CR10                  REDEFINES CR1G.

     5C8 0000                                *..              *    05 CR10-CMVTPP                   PIC X(02).

     5CA 00                                  *.               *    05 CR10-MAJLIL                   PIC X.

     5CB 00000000 00                         *.....           *    05 CR10-SERVCT                   PIC X(05).

     5D0 000000                              *...             *    05 CR10-CAGET                   PIC X(03).

                                                                   05 CR10-KCR10.

     5D3 00                                  *.               *      10 CR10-CSTRUL                 PIC X.

     5D4 00                                  *.               *    05 CR10-CHMAJ                    PIC X.

     5D5 0000                                *..              *    05 CR10-CMVTE                    PIC XX.

     5D7 00                                  *.               *    05 CR10-ORIBM                    PIC X.

     5D8 00                                  *.               *    05 CR10-ORREL                    PIC X.

                                                                   05 CR10-NASTR.

     5D9 0000                                *..              *      10 CR10-NATAR                  PIC XX.

     5DB 00                                  *.               *      10 CR10-STRAR                  PIC X.

     5DC 00000000 00000000 00000000 00000000 *................*    05 CR10-LIBAR1                   PIC X(20).

     5EC 00000000                            *....            *

     5F0 00000000 00000000 00000000 00000000 *................*    05 CR10-LIBAR2                   PIC X(20).

     600 00000000                            *....            *

     604 00000000 00                         *.....           *    05 CR10-SERVCA                   PIC X(05).

     609 00000000 00000000 0000              *..........      *    05 CR10-NPLAN                    PIC X(10).

     613 0000                                *..              *    05 CR10-INPLAA                   PIC XX.

     615 00                                  *.               *    05 CR10-CONCA                    PIC X.

     616 0000                                *..              *    05 CR10-UEART                    PIC XX.

     618 0000                                *..              *    05 CR10-INPLA                    PIC XX.

     61A 00                                  *.               *    05 CR10-INAMJI                   PIC X.

     61B 00000000 00000000 00000000 00000000 *................*    05 CR10-FILLER                   PIC X(41).

     62B 00000000 00000000 00000000 00000000 *................*

     63B 00000000 00000000 00                *.........       *

                                                                 01 CR13                  REDEFINES CR1G.

     5C8 0000                                *..              *    05 CR13-CMVTPP                   PIC X(02).

     5CA 00                                  *.               *    05 CR13-MAJLIL                   PIC X.

     5CB 00000000 00                         *.....           *    05 CR13-SERVCT                   PIC X(05).

     5D0 000000                              *...             *    05 CR13-CAGET                    PIC X(03).

                                                                   05 CR13-KCR13.

     5D3 00                                  *.               *      10 CR13-CSTRUL                 PIC X.

     5D4 00000000 00                         *.....           *    05 CR13-SERVCG                   PIC X(05).

     5D9 000000                              *...             *    05 CR13-CAGES                    PIC X(03).

     5DC 00                                  *.               *    05 CR13-MOREA                    PIC X.

     5DD 00                                  *.               *    05 CR13-ARCHA                    PIC X.

     5DE 00                                  *.               *    05 CR13-ACTAR                    PIC X.

     5DF 00                                  *.               *    05 CR13-OPSTA                    PIC X.

     5E0 00                                  *.               *    05 CR13-CHYCO                    PIC X.

                                                                   05 CR13-DCYCO.

     5E1 000000                              *...             *      10 CR13-3DCYCO                 PIC 9(03).

                                                                   05 CR13-PALEC.

     5E4 0000                                *..              *      10 CR13-3PALEC                 PIC 99.

     5E6 00                                  *.               *    05 CR13-CHDES                    PIC X.

                                                                   05 CR13-DESEC.

     5E7 000000                              *...             *      10 CR13-3DESEC                 PIC 999.

     5EA 00                                  *.               *    05 CR13-CHDAC                    PIC X.

                                                                   05 CR13-DEDAC.

     5EB 0000                                *..              *      10 CR13-3DEDAC                 PIC 99.

                                                                   05 CR13-PALEP.

     5ED 0000                                *..              *      10 CR13-3PALEP                 PIC 99.

                                                                   05 CR13-DMIRE.

     5EF 000000                              *...             *      10 CR13-3DMIRE                 PIC 999.

                                                                   05 CR13-QSEC.

     5F2 00000000 00                         *.....           *      10 CR13-3QSEC                  PIC 9(05).

                                                                   05 CR13-QEXTI.

     5F7 00000000 00                         *.....           *      10 CR13-3QEXTI                 PIC 9(05).

     5FC 00                                 *.               *    05 CR13-RPSTC                    PIC X.

     5FD 0000                                *..              *    05 CR13-FARCG                    PIC X(02).

     5FF 00                                  *.               *    05 CR13-CLAGE                    PIC X.

                                                                   05 CR13-ADSTO.

     600 0000                                *..              *      10 CR13-STOAB                  PIC X(02).

     602 00000000 000000                     *.......         *      10 CR13-PLSTO                  PIC X(07).

     609 00000000 00000000 0000              *..........      *    05 CR13-TYCONM                   PIC X(10).

                                                                   05 CR13-QMXCOM.

     613 00000000 000000                     *.......         *      10 CR13-3QMXCM                 PIC 9(07).

     61A 00000000 00000000 0000              *..........      *    05 CR13-TYCONA                   PIC X(10).

                                                                   05 CR13-QMXCOA.

     624 00000000 000000                     *.......         *      10 CR13-3QMXCA                 PIC 9(07).

     62B 00000000 00000000 0000              *..........      *    05 CR13-TYCONP                   PIC X(10).

                                                                   05 CR13-SRTHC.

     635 00000000 000000                     *.......         *      10 CR13-3SRTHC                 PIC 9(07).

     63C 0000                                *..              *    05 CR13-FARCB                    PIC X(02).

     63E 0000                                *..              *    05 CR13-FARST                    PIC X(02).

     640 00000000                            *....            *    05 CR13-FILLER                   PIC X(04).

                                                                 01 CT10.

     648 0000                                *..              *    05 CT10-CPRODI                   PIC XX.

                                                                 01 CW00.

                                                                     02                 CW1A.                                     CE

                                                                        10          CW1A-KCW1A.                                   CE

                                                                         15         CW1A-CPNOT.                                   CE

                                                                          20        CW1A-CPROD PICTURE XX                        CE

     650 4040                                *                *                          VALUE SPACE.                            CE

                                                                          20        CW1A-NOTBM.                                   CE

                                                                           25       CW1A-NUBAS PICTURE X(5)                      CE

     652 40404040 40                         *                *                          VALUE SPACE.                            CE

                                                                           25       CW1A-MOIND PICTURE X(2)                      CE

     657 4040                                *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-SERVCO PICTURE X(5)                      CE

     659 40404040 40                         *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-CAGES PICTURE X(3)                      CE

     65E 404040                              *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-MORES PICTURE X                         CE

     661 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-ETANO PICTURE X                         CE

     662 D6                                  *O               *                          VALUE 'O'.                              CE

                                                                        10          CW1A-INAMJD PICTURE X                         CE

     663 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-TYMOD PICTURE X                         CE

     664 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-INVALN PICTURE X                         CE

     665 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-ORINM PICTURE X                         CE

     666 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-CPRODV PICTURE XX                        CE

     667 4040                                *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-STDORI PICTURE XX                        CE

     669 4040                                *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-TYPNM PICTURE X                         CE

     66B 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-INFNO PICTURE X                         CE

     66C 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-AREFM PICTURE X(10)                     CE

     66D 40404040 40404040 4040              *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-DTRFM.                                   CE

                                                                         15         CW1A-DTSRF PICTURE X(2)                      CE

     677 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW1A-DREFM PICTURE X(6)                      CE

     679 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-CPNOTG.                                  CE

                                                                         15         CW1A-CPRODG PICTURE XX                        CE

     67F 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW1A-NOTBMG PICTURE X(7)                      CE

     681 40404040 404040                     *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-DELMOA PICTURE S9(3)                     CE

                                                                                         COMPUTATIONAL-3                          CE

     688 000C                                0                                           VALUE ZERO.                            CE

                                                                        10          CW1A-DELMOB PICTURE S9(3)                     CE

                                                                                         COMPUTATIONAL-3                          CE

     68A 000C                                0                                           VALUE ZERO.                             CE

                                                                        10         CW1A-DELMOC PICTURE S9(3)                     CE

                                                                                         COMPUTATIONAL-3                          CE

     68C 000C                                0                                           VALUE ZERO.                             CE

                                                                        10          CW1A-STAME PICTURE X                         CE

     68E 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-DTAPNG.                                  CE

                                                                         15         CW1A-DTSAPG PICTURE XX                        CE

     68F 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW1A-DAPLIG PICTURE X(6)                      CE

     691 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-DTAPNH.                                  CE

                                                                         15         CW1A-DTSAPH PICTURE XX                        CE

     697 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW1A-DAPLIH PICTURE X(6)                      CE

     699 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-GELSY PICTURE 9                         CE

     69F F0                                  0                                           VALUE ZERO.                             CE

                                                                        10          CW1A-ORCUM PICTURE X                         CE

     6A0 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-DTCRT.                                   CE

                                                                         15         CW1A-DTSCR PICTURE X(2)                      CE

     6A1 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW1A-DACRE PICTURE X(6)                      CE

     6A3 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-DTMJN.                                   CE

                                                                         15         CW1A-DTSMJ PICTURE X(2)                      CE

     6A9 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW1A-DAMAJ PICTURE 9(6)                      CE

     6AB F0F0F0F0 F0F0                       0                                           VALUE ZERO.                             CE

                                                                        10         CW1A-DTFNPT.                                  CE

                                                                         15         CW1A-DTSFN PICTURE X(2)                      CE

     6B1 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW1A-DTFNP PICTURE X(6)                      CE

     6B3 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-DTGELC.                                  CE

                                                                         15         CW1A-DTSGL PICTURE X(2)                      CE

     6B9 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW1A-DTGEL PICTURE X(6)                      CE

     6BB 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-DTMJNA.                                  CE

                                                                         15         CW1A-DTSMJA PICTURE X(2)                      CE

     6C1 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW1A-DTDMJH PICTURE X(6)                      CE

     6C3 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-CGRES PICTURE XX                        CE

     6C9 4040                                *                *                          VALUE SPACE.                            CE

                                                                        10          CW1A-INDBEG.                                  CE

                                                                         15         CW1A-INDBE PICTURE XX                        CE

                                                                                         VALUE SPACE                             CE

     6CB 4040                                *                *                          OCCURS 010.                              CE

                                                                                    CW1A-INDBE(2) to CW1A-INDBE(10) same as above

                                                                        10          CW1A-DTFI3N PICTURE S9(8)                     CE

                                                                                         COMPUTATIONAL-3                          CE

     6DF 00000000 0C                         0                                           VALUE ZERO.                             CE

                                                                     02                 CW2A.                                     CE

                                                                        10          CW2A-KCW2A.                                   CE

                                                                         15         CW2A-CPART.                                   CE

                                                                          20        CW2A-CPROD PICTURE XX                        CE

     6E4 4040                                *                *                          VALUE SPACE.                            CE

                                                                          20        CW2A-NARTI PICTURE X(10)                     CE

     6E6 40404040 40404040 4040              *                *                          VALUE SPACE.                            CE

                                                                        10          CW2A-COPART PICTURE X                         CE

     6F0 F0                                  *0               *                          VALUE ZERO.                             CE

                                                                        10          CW2A-ZTITIN.                                  CE

                                                                         15         CW2A-TITINA PICTURE X                         CE

     6F1 F0                                  *0               *                          VALUE ZERO.                             CE

                                                                         15         CW2A-TITINB PICTURE X                         CE

     6F2 F0                                  *0               *                          VALUE ZERO.                             CE

                                                                         15         CW2A-TITINC PICTURE X                         CE

     6F3 F0                                  *0               *                          VALUE ZERO.                             CE

                                                                         15         CW2A-TITIND PICTURE X                         CE

     6F4 F0                                  *0               *                          VALUE ZERO.                             CE

                                                                         15         CW2A-TITINE PICTURE X                         CE

     6F5 F0                                  *0               *                          VALUE ZERO.                             CE

                                                                         15         CW2A-TITINF PICTURE X                         CE

     6F6 F0                                  *0               *                          VALUE ZERO.                            CE

                                                                         15         CW2A-TITING PICTURE X                         CE

     6F7 F0                                  *0               *                          VALUE ZERO.                             CE

                                                                         15         CW2A-TITINH PICTURE X                         CE

     6F8 F0                                  *0               *                          VALUE ZERO.                             CE

                                                                         15         CW2A-TITINJ PICTURE X                         CE

     6F9 F0                                  *0               *                          VALUE ZERO.                             CE

                                                                        10          CW2A-INART PICTURE X                         CE

     6FA 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW2A-DTAPNP.                                  CE

                                                                         15         CW2A-DTSAPP PICTURE XX                        CE

     6FB 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15        CW2A-DAPLIP PICTURE X(6)                      CE

     6FD 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW2A-DTAPNS.                                  CE

                                                                         15         CW2A-DTSAPS PICTURE XX                        CE

     703 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW2A-DAPLIS PICTURE X(6)                      CE

     705 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW2A-DTAPNK.                                  CE

                                                                         15         CW2A-DTSAPK PICTURE XX                        CE

     70B 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW2A-DAPLIK PICTURE X(6)                      CE

     70D 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW2A-DTAPNR.                                  CE

                                                                         15         CW2A-DTSAPR PICTURE XX                        CE

     713 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW2A-DAPLIR PICTURE X(6)                      CE

     715 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW2A-DTMJN.                                   CE

                                                                         15         CW2A-DTSMJ PICTURE X(2)                      CE

     71B 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW2A-DAMAJ PICTURE 9(6)                      CE

     71D F0F0F0F0 F0F0                       0                                           VALUE ZERO.                             CE

                                                                        10          CW2A-DTMJNA.                                  CE

                                                                         15         CW2A-DTSMJA PICTURE X(2)                      CE

     723 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW2A-DTDMJR PICTURE X(6)                      CE

     725 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW2A-DTAPNJ.                                  CE

                                                                         15         CW2A-DTSAPJ PICTURE XX                        CE

     72B 4040                                *                *                          VALUE SPACE.                            CE

                                                                         15         CW2A-DAPLIJ PICTURE X(6)                      CE

     72D 40404040 4040                       *                *                          VALUE SPACE.                            CE

                                                                        10          CW2A-ORCUM PICTURE X                         CE

     733 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW2A-DEREL PICTURE S9(3)                     CE

                                                                                         COMPUTATIONAL-3                          CE

     734 000C                                0                                           VALUE ZERO.                             CE

                                                                        10          CW2A-DEREG PICTURE S9(3)                     CE

                                                                                         COMPUTATIONAL-3                          CE

     736 000C                                0                                           VALUE ZERO.                             CE

                                                                        10          CW2A-PRIDE PICTURE X                         CE

     738 40                                  *                *                          VALUE SPACE.                            CE

                                                                        10          CW2A-IDART PICTURE XX                        CE

     739 4040                                *                *                          VALUE SPACE.                            CE

                                                                        10          CW2A-FILLER PICTURE X(08)                     CE

     73B 40404040 40404040                   *                *                          VALUE SPACE.                            CE

                                                                     02                 CW30.                                     CE

                                                                        10          CW30-KCW30.                                   CE

                                                                         15         CW30-CPNOTG.                                  CE

                                                                          20        CW30-CPRODG PICTURE XX                        CE

     743 4040                                *                *                          VALUE SPACE.                            CE

                                                                          20        CW30-NOTBMG PICTURE X(7)                      CE

     745 40404040 404040                     *                *                          VALUE SPACE.                            CE

                                                                         15         CW30-CPNOT.                                   CE

                                                                          20        CW30-CPROD PICTURE XX                        CE

     74C 4040                                *                *                          VALUE SPACE.                            CE

                                                                          20        CW30-NOTBM PICTURE X(7)                      CE

     74E 40404040 404040                     *                *                          VALUE SPACE.                            CE

                                                                 01 W-DARET.

     758 0000                                *..              *    05 W-DARETS                      PIC 99.

     75A 0000                                *..              *    05 W-DARETA                      PIC 99.

     75C 0000                                *..              *    05 W-DARETM                      PIC 99.

     75E 0000                                *..              *    05 W-DARETJ                      PIC 99.

     760 0000                                *..              * 01 W-CPROD                         PIC XX.

     768 0000                                *..              * 01 W1-CPROD                        PIC XX.

     770 F0F0                                *00              * 77 W-CGPREC                        PIC X(02).

     778 0000                                *..              * 77 W-CGPREC1                       PIC X(02).

     780 00                                  *.               * 77 W-GELSY                         PIC 9.

     788 00000000 00000000                   *........        * 77 W-DAT1                          PIC 9(08).

     790 00000000 00000000                   *........        * 77 W-DAT2                          PIC 9(08).

     798 0000                                0                   77 W-IND1                          PIC S9(04) COMP .

     7A0 0000                                0                   77 W-IND2                          PIC S9(04) COMP .

                                                                 01 W8-DATCE.

     7A8 F2F0                                *20              *    05 W8-SIECLE                     PIC XX.

                                                                   05 W8-AAMMJJ.

     7AA F2F4                                *24              *      10 W8-ANNEE                    PIC XX.

     7AC F0F2                                *02              *      10 W8-MOIS                     PIC XX.

     7AE F2F2                                *22              *      10 W8-JOUR                     PIC XX.

     7B0 0000                                0                   01 W-CYCLE                         PIC S9(04) COMP .

     7B8 F0                                  *0               * 01 W-MODI-DTAPNH                   PIC X VALUE ZERO.

     7C0 F0                                  *0               * 01 W-MODI-GELSY                    PIC X VALUE ZERO.

     7C8 F0                                  *0               * 01 W-MAJ-ARTICLE                   PIC X VALUE ZERO.

     7D0 F0                                  *0               * 01 W-TEST-RAB-TYMOD                PIC X VALUE ZERO.

     7D8 00000000 00000000                   *........        * 01 W-EW2A-DTAPNR                   PIC X(08).

     7E0 E9F7F4F0 D7E3C1C2                   *SUBPGMAB        * 01 SUBPGMAB                          PIC X(08) VALUE 'SUBPGMAB'.

                                                                 01 Z740Y020                        PIC X(12) VALUE

     7E8 E9F7F4F0 E8F0F2F0 40404040          *Z740Y020        *       'Z740Y020    '.

                                                                 01                 DB07.                                         CE

                                                                        10          DB07-KDA02.                                   CE

                                                                         15         DB07-ARGUT.                                   CE

     7F8 F5                                  *5               *           20        DB07-SORDI PICTURE X.                        CE

     7F9 40404040 40404040 40404040 4040     *               *           20        DB07-FILLER PICTURE X(14).                    CE

     807 F0F0F0F0 F0F0                       *000000          *          15         DB07-DAVAL PICTURE X(6).                     CE

     80D E5C5D5C9 E24B61E2 E340D7D9 E34040   *VENIS./ST PRT   *         10          DB07-LIRES PICTURE X(15).                    CE

     81C 40404040 40                         *                *         10          DB07-FILLER PICTURE X(05).                    CE

     821 E2D7                                *SP              *         10          DB07-CPROD PICTURE XX.                       CE

     823 40                                  *                *         10          DB07-FILLER PICTURE X.                        CE

                                                                        10          DB07-D2RET.                                   CE

     824 F3F1                                31                          15         DB07-DARETJ PICTURE 99.                       CE

     826 F0F8                                8                           15         DB07-DARETM PICTURE 99.                       CE

     828 F2F0                                *20              *          15         DB07-DASIEA PICTURE XX.                       CE

     82A F2F1                                21                          15         DB07-DARETA PICTURE 99.                       CE

                                                                        10          DB07-D2RETE.                                  CE

    82C F1F5                                15+                         15         DB07-DRETEJ PICTURE S99.                      CE

     82E F0F4                                4+                          15         DB07-DRETEM PICTURE S99.                      CE

     830 F2F0                                *20              *          15         DB07-DASIEB PICTURE XX.                       CE

     832 F2F2                                22+                         15         DB07-DRETEA PICTURE S99.                      CE

                                                                 01                 DB1G.                                         CE

                                                                        10          DB1G-KDA02.                                   CE

                                                                         15         DB1G-ARGUT.                                   CE

     838 0000                                *..              *           20        DB1G-CPROD PICTURE XX.                       CE

     83A 00000000 00000000 00000000 00       *.............   *           20        DB1G-FILLER PICTURE X(13).                    CE

     847 00000000 0000                       *......          *          15         DB1G-DAVAL PICTURE X(6).                     CE

     84D 000000                              *...             *         10          DB1G-DCYMG PICTURE 9(3).                     CE

     850 0000                                *..              *         10          DB1G-DCINF PICTURE 99.                       CE

                                                                 01                 DB4T.                                         CE

                                                                        10         DB4T-KDA02.                                   CE

                                                                         15         DB4T-ARGUT.                                   CE

     858 0000                                *..              *          20        DB4T-CGMON PICTURE XX.                       CE

     85A 0000                                *..              *           20        DB4T-STDOR PICTURE XX.                       CE

     85C 00000000 00000000 000000            *...........     *           20        DB4T-FILLER PICTURE X(11).                    CE

     867 00000000 0000                       *......          *          15         DB4T-DAVAL PICTURE X(6).                     CE

     86D 000000                              *...             *         10          DB4T-DEIN9O PICTURE 9(3).                     CE

     870 00                                  *.               *         10          DB4T-COSPM PICTURE X.                        CE

     871 00000000                            *....            *         10          DB4T-DLTPO PICTURE 9(4).                     CE

     875 00                                  *.               *         10          DB4T-FILLER PICTURE X.                        CE

     876 00000000 00000000 0000             *..........      *         10          DB4T-NUOPR PICTURE X(10).                    CE

     880 000000                              *...             *         10          DB4T-DEIN9K PICTURE 9(3).                     CE

     883 00                                  *.               *         10          DB4T-COSPMK PICTURE X.                        CE

     884 00000000 00000000 00000000 00000000 *................*         10          DB4T-FILLER PICTURE X(16).                    CE

                                                                 01                 DB8E.                                         CE

                                                                        10          DB8E-KDA02.                                   CE

                                                                         15         DB8E-ARGUT.                                   CE

     898 0000                                *..              *           20        DB8E-CPROD PICTURE XX.                       CE

     89A 00000000 000000                     *.......         *           20        DB8E-NOTBM PICTURE X(7).                     CE

     8A1 00000000 0000                       *......          *           20        DB8E-FILLER PICTURE X(6).                     CE

     8A7 00000000 0000                       *......          *          15         DB8E-DAVAL PICTURE X(6).                     CE

     8AD 00000000 00000000 00000000 00000000 *................*         10          DB8E-LRNOT PICTURE X(20).                    CE

     8BD 00000000                            *....            *

     8C8 F0                                  *0               * 77 7-GRPRI                         PIC X VALUE ZERO.

     8D0 F0                                  *0               * 77 7-GRPRD                         PIC X VALUE ZERO.

     8D8 F0                                  *0               * 77 7-GREG                          PIC X VALUE ZERO.

     8E0 F0                                  *0               * 77 7-GMER                          PIC X VALUE ZERO.

     8E8 F0                                  *0               * 77 7-UTPR                          PIC X VALUE ZERO.

                                                                 01 DW00.

                                                                   05 DW00-SUITE.

     8F0 00000000 00000000 00000000 00000000 *................*      10 FILLER                      PIC X(148).

         Lines 900-970 same as above

     980 00000000                            *....            *

                                                                 01 DW1A                  REDEFINES DW00.

                                                                   05 DW1A-KCW1A.

                                                                     10 DW1A-CPNOT.

     8F0 0000                                *..              *        15 DW1A-CPROD                PIC XX.

                                                                       15 DW1A-NOTBM.

     8F2 00000000 00                         *.....           *          20 DW1A-NUBAS              PIC X(05).

     8F7 0000                                *..              *          20 DW1A-MOIND              PIC X(02).

     8F9 00000000 00                         *.....           *    05 DW1A-SERVCO                   PIC X(05).

     8FE 000000                              *...             *    05 DW1A-CAGES                    PIC X(03).

     901 00                                  *.               *    05 DW1A-MORES                    PIC X.

     902 00                                  *.               *    05 DW1A-ETANO                    PIC X.

     903 00                                  *.               *    05 DW1A-INAMJD                   PIC X.

     904 00                                  *.               *    05 DW1A-TYMOD                   PIC X.

     905 00                                  *.               *    05 DW1A-INVALN                   PIC X.

     906 00                                  *.               *    05 DW1A-ORINM                    PIC X.

     907 0000                                *..              *    05 DW1A-CPRODV                   PIC XX.

     909 0000                                *..              *    05 DW1A-STDORI                   PIC XX.

     90B 00                                  *.               *    05 DW1A-TYPNM                    PIC X.

     90C 00                                  *.               *    05 DW1A-INFNO                    PIC X.

     90D 00000000 00000000 0000              *..........      *    05 DW1A-AREFM                    PIC X(10).

                                                                   05 DW1A-DTRFM.

     917 0000                                *..              *      10 DW1A-DTSRF                  PIC X(02).

     919 00000000 0000                       *......          *      10 DW1A-DREFM                  PIC X(06).

                                                                   05 DW1A-CPNOTG.

     91F 0000                                *..              *      10 DW1A-CPRODG                 PIC XX.

     921 00000000 000000                     *.......         *      10 DW1A-NOTBMG                 PIC X(07).

     928 0000                                *..              *    05 DW1A-DELMOA                   PIC S9(03) COMP-3 .

     92A 0000                                *..              *    05 DW1A-DELMOB                   PIC S9(03) COMP-3 .

     92C 0000                                *..              *    05 DW1A-DELMOC                   PIC S9(03) COMP-3 .

     92E 00                                  *.               *    05 DW1A-STAME                    PIC X.

                                                                   05 DW1A-DTAPNG.

     92F 0000                                *..              *      10 DW1A-DTSAPG                 PIC XX.

     931 00000000 0000                       *......          *      10 DW1A-DAPLIG                 PIC X(06).

                                                                   05 DW1A-DTAPNH.

     937 0000                                *..              *      10 DW1A-DTSAPH                 PIC XX.

     939 00000000 0000                       *......          *      10 DW1A-DAPLIH                 PIC X(06).

     93F 00                                  *.               *    05 DW1A-GELSY                    PIC 9.

     940 00                                  *.               *    05 DW1A-ORCUM                    PIC X.

                                                                   05 DW1A-DTCRT.

     941 0000                                *..              *      10 DW1A-DTSCR                  PIC X(02).

     943 00000000 0000                       *......          *      10 DW1A-DACRE                  PIC X(06).

                                                                   05 DW1A-DTMJN.

     949 0000                                *..              *      10 DW1A-DTSMJ                  PIC X(02).

     94B 00000000 0000                       *......          *      10 DW1A-DAMAJ                  PIC 9(06).

                                                                   05 DW1A-DTFNPT.

     951 0000                                *..              *      10 DW1A-DTSFN                  PIC X(02).

     953 00000000 0000                       *......          *      10 DW1A-DTFNP                  PIC X(06).

                                                                   05 DW1A-DTGELC.

     959 0000                                *..              *      10 DW1A-DTSGL                  PIC X(02).

     95B 00000000 0000                       *......          *      10 DW1A-DTGEL                  PIC X(06).

                                                                   05 DW1A-DTMJNA.

     961 0000                                *..              *      10 DW1A-DTSMJA                 PIC X(02).

     963 00000000 0000                       *......          *      10 DW1A-DTDMJH                 PIC X(06).

     969 0000                                *..              *    05 DW1A-CGRES                    PIC XX.

                                                                   05 DW1A-INDBEG.

     96B 0000                                *..              *      10 DW1A-INDBE       OCCURS 010 PIC XX.

                                                                        DW1A-INDBE(2) to DW1A-INDBE(10) same as above

     97F 00000000 00                         *.....           *    05 DW1A-DTFI3N                   PIC S9(08) COMP-3 .

                                                                 01 EW2A.

                                                                   05 EW2A-KCW2A.

                                                                     10 EW2A-CPART.

     988 0000                                *..              *        15 EW2A-CPROD                PIC XX.

     98A 00000000 00000000 0000              *..........     *        15 EW2A-NARTI                PIC X(10).

     994 00                                  *.               *    05 EW2A-COPART                   PIC X.

                                                                   05 EW2A-ZTITIN.

     995 00                                  *.               *      10 EW2A-TITINA                 PIC X.

     996 00                                  *.               *      10 EW2A-TITINB                 PIC X.

     997 00                                  *.               *      10 EW2A-TITINC                 PIC X.

     998 00                                  *.               *      10 EW2A-TITIND                 PIC X.

     999 00                                  *.               *      10 EW2A-TITINE                 PIC X.

     99A 00                                  *.               *      10 EW2A-TITINF                 PIC X.

     99B 00                                  *.               *      10 EW2A-TITING                 PIC X.

     99C 00                                  *.               *      10 EW2A-TITINH                 PIC X.

     99D 00                                  *.               *      10 EW2A-TITINJ                 PIC X.

     99E 00                                  *.               *    05 EW2A-INART                    PIC X.

                                                                   05 EW2A-DTAPNP.

     99F 0000                                *..              *      10 EW2A-DTSAPP                 PIC XX.

     9A1 00000000 0000                       *......          *      10 EW2A-DAPLIP                 PIC X(06).

                                                                   05 EW2A-DTAPNS.

     9A7 0000                                *..              *      10 EW2A-DTSAPS                 PIC XX.

     9A9 00000000 0000                       *......          *      10 EW2A-DAPLIS                 PIC X(06).

                                                                   05 EW2A-DTAPNK.

     9AF 0000                                *..              *      10 EW2A-DTSAPK                 PIC XX.

     9B1 00000000 0000                       *......          *      10 EW2A-DAPLIK                 PIC X(06).

                                                                   05 EW2A-DTAPNR.

     9B7 0000                                *..              *      10 EW2A-DTSAPR                 PIC XX.

     9B9 00000000 0000                       *......          *      10 EW2A-DAPLIR                 PIC X(06).

                                                                   05 EW2A-DTMJN.

     9BF 0000                                *..              *      10 EW2A-DTSMJ                  PIC X(02).

     9C1 00000000 0000                       *......          *      10 EW2A-DAMAJ                  PIC 9(06).

                                                                   05 EW2A-DTMJNA.

     9C7 0000                                *..              *      10 EW2A-DTSMJA                 PIC X(02).

     9C9 00000000 0000                       *......          *      10 EW2A-DTDMJR                 PIC X(06).

                                                                   05 EW2A-DTAPNJ.

     9CF 0000                                *..              *      10 EW2A-DTSAPJ                 PIC XX.

     9D1 00000000 0000                       *......          *      10 EW2A-DAPLIJ                 PIC X(06).

     9D7 00                                  *.               *    05 EW2A-ORCUM                    PIC X.

     9D8 0000                                *..              *    05 EW2A-DEREL                    PIC S9(03) COMP-3 .

     9DA 0000                                *..              *    05 EW2A-DEREG                    PIC S9(03) COMP-3 .

     9DC 00                                  *.               *    05 EW2A-PRIDE                    PIC X.

     9DD 0000                                *..              *    05 EW2A-IDART                    PIC XX.

     9DF 00000000 00000000                   *........        *    05 EW2A-FILLER                   PIC X(08).

     9E8 C6F1F4F0 D7C4D1F2                   *F140PDJ2        * 01 W-F14DJ2                        PIC X(08) VALUE 'F140PDJ2'.

                                                                 01 WO00.

                                                                   02 WO2JT.

                                                                     03                 WO2J.                                     FD

     9F0 0000                                *..              *         10          WO2J-CPROD PICTURE XX.                       FD

                                                                        10          WO2J-DTAPNE.                                  FD

     9F2 0000                                *..              *          15         WO2J-DASIEE PICTURE XX.                       FD

                                                                         15         WO2J-DATENT.                                  FD

     9F4 0000                                *..              *           20        WO2J-DTDAA PICTURE XX.                       FD

     9F6 0000                                *..              *           20        WO2J-DTDMM PICTURE XX.                       FD

     9F8 0000                                *..              *           20       WO2J-DTDJJ PICTURE XX.                       FD

                                                                        10          WO2J-DTAPNO.                                  FD

     9FA 0000                                *..              *          15         WO2J-DASIEO PICTURE XX.                       FD

                                                                         15         WO2J-DATSOR.                                  FD

     9FC 0000                                *..              *           20        WO2J-DTFAA PICTURE XX.                       FD

     9FE 0000                                *..              *           20        WO2J-DTFMM PICTURE XX.                       FD

     A00 0000                                *..              *           20        WO2J-DTFJJ PICTURE XX.                       FD

                                                                        10          WO2J-DLNJOO PICTURE S9(3)                     FD

     A02 0000                                *..              *                          COMPUTATIONAL-3.                         FD

     A04 00                                  *.               *         10          WO2J-INREC PICTURE X.                        FD

     A05 00                                  *.               *         10          WO2J-INTPB PICTURE X.                        FD

     A06 00                                  *.               *         10          WO2J-TYDEM PICTURE X.                        FD

     A07 0000                                *..              *         10          WO2J-LIMACS PICTURE 9(2).                     FD

                                                                        10          WO2J-IDDECE PICTURE S9(4)                     FD

     A09 0000                                0                                           BINARY       .                           FD

                                                                        10          WO2J-IDCIVL PICTURE S9(4)                     FD

     A0B 0000                                0                                           BINARY       .                           FD

     A0D 0000                                *..              *         10          WO2J-XCORET PICTURE XX.                       FD

     A0F 0000                                *..              *         10          WO2J-XCORE PICTURE XX.                       FD

     A11 00000000 00000000 00000000 00000000 *................*         10          WO2J-FILLER PICTURE X(47).                    FD

     A21 00000000 00000000 00000000 00000000 *................*

     A31 00000000 00000000 00000000 000000   *............... *

                                                                   02 WO3JT.

                                                                     03 WO3J                        OCCURS 3000.

     A40 0000                                0                         10 WO3J-IDCIVH               PIC S9(04) BINARY .

                                                                        WO3J(2) to WO3J(737) same as above

*** Storage suppressed due to StoragePrintLimit option exceeded ***

LOCAL-STORAGE SECTION

AUTO at address 0019B220 for length 00000470

LINKAGE SECTION

Offset Hex Value                           Data Value         Source (Starting at Line # 003212)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 003235)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 003258)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 003281)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 003304)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 003327)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 003350)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 003373)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 003396)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

Special Registers:

RETURN-CODE     = 0

SORT-RETURN     = 0

SORT-CONTROL    = 'IGZSRTCD'

SORT-CORE-SIZE = 100000

SORT-FILE-SIZE = 0

SORT-MODE-SIZE = 0

SORT-MESSAGE    = 'SYSOUT '

TALLY           = 0

SHIFT-OUT       = X'0E'

SHIFT-IN        = X'0F'

XML-CODE        = 0

XML-EVENT       = '                              '

XML-INFORMATION = 0

JSON-CODE       = 0

JSON-STATUS     = 0

================================================================================

EVENT 16 OF 23: CALL (DSA ADDRESS 0019B690)

Load Module Name. . . . . . : SYS1.CEE.SCEERUN(IGZXLPKA)

At Address. . . . . . . . : 2A97B560

Load Module Length. . . . : X'120AA0'

Entry Point Name. . . . . . : IGZXFCA1

At Address. . . . . . . . : 2A99CBD0 (Module

                              IGZXLPKA offset X'21670')

Machine Instruction . . . . : 0DEF          BASR    R14,R15

At Address. . . . . . . . : 2A99FFF4 (Entry point

                              IGZXFCA1 offset X'3424')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -32 9180 4014      TM      20(R4),128

       -2E A784 0022      BRC     8,*+68

       -2A 58E0 4014      L       R14,20(,R4)

       -26 5870 D074      L       R7,116(,R13)

       -22 E54C D074 0000 MVHI    116(R13),0

       -1C 50E0 D174      ST      R14,372(,R13)

       -18 581D 0004      L       R1,4(R13)

       -14 58FD 0174      L       R15,372(R13)

       -10 410D 0170      LA      R0,368(R13)

        -C 5811 0018      L       R1,24(R1)

        -8 586D 0154      L       R6,340(R13)

        -4 58AD 0150      L       R10,336(R13)

  2A99FFF4 0DEF           BASR    R14,R15

        +2 50FD 0178      ST      R15,376(R13)

        +6 581D 0004      L       R1,4(R13)

        +A 5001 0014      ST      R0,20(R1)

        +E 5070 D074      ST      R7,116(,R13)

       +12 A7F4 00CA      BRC     15,*+404

       +16 58E0 D154      L       R14,340(,R13)

       +1A 50E0 D17C      ST      R14,380(,R13)

General Purpose Registers:

R0: 0019B800 (657408 bytes of storage addressable)

R1: 0019B4F8 (658184 bytes of storage addressable)

R2: 2A931E50 (4751792 bytes of storage addressable)

R3: 2A9A0740 (Module IGZXLPKA + X'251E0')

R4: 001BBC40 (525248 bytes of storage addressable)

R5: 2AC14048 (1728440 bytes of storage addressable)

R6: 00000035 (1995 bytes of storage addressable)

R7: 00000000 (2048 bytes of storage addressable)

R8: 2AC155C8 (1722936 bytes of storage addressable)

R9: 2AC14048 (1728440 bytes of storage addressable)

R10: 0019B744 (657596 bytes of storage addressable)

R11: 00000080 (1920 bytes of storage addressable)

R12: 00188C80 (734080 bytes of storage addressable)

R13: 0019B690 (657776 bytes of storage addressable)

R14: AA99FFF6 (Module IGZXLPKA + X'24A96')

R15: AAC23000 (Module SUBPGMAB program SUBPGMAB + X'0')

================================================================================

EVENT 17 OF 23: CALL (DSA ADDRESS 0019B950)

NOTE: Source code information could not be presented because the search for a

      compiler listing or side-file was unsuccessful for program SUBPGMAB.

Load Module Name. . . . . . : LOADLI.RTLDEVA.PGMBATCH(SUBPGMAB)

At Address. . . . . . . . : 2AC23000

Load Module Length. . . . : X'6000'

Link-Edit Date and Time . : 2024/02/21 15:02:40

Program and Entry Point Name: SUBPGMAB

At Address. . . . . . . . : 2AC23000 (Module

                              SUBPGMAB offset X'0')

Program Length. . . . . . : X'3BE8'

Program Language. . . . . : COBOL (Compiled using IBM Enterprise COBOL R6 M4

                              on 2024/02/21 at 15:02:38)

Compiler Options Used . . : NOADATA NOADV AFP(NOVOLATILE) APOST ARCH(13)

                              ARITH(COMPAT) NOAWO NOBLOCK0 NOCICS CODEPAGE(1140)

                              NOCURRENCY DATA(31) DBCS NODECK DISPSIGN(SEP)

                              NODLL NODUMP NODYNAM NOEXPORTALL NOFASTSRT

                              HGPR(PRESERVE) INTDATE(ANSI) NOINITIAL INLINE

                              NOINVDATA LIB NOLIST MAP LP(32) NOMDECK NONAME

                              NONUMBER NONUMCHECK NUMPROC(NOPFD) OBJ OFFSET

                              OPTIMIZE(1) OUTDD(SYSOUT) PGMNAME(COMPAT)

                              NOPARMCHECK QUALIFY(EXTEND) RENT RES RMODE(ANY)

                              NOSEQUENCE SMARTBIN SOURCE(DEC) NOSQL NOSQLIMS

                              NOSQLCCSID SSRANGE(NOZLEN,ABD) NOSTGOPT SUPPRESS

                              NOTERM TEST(EJPD,DWARF,SOURCE,NOSEPARATE) NOTHREAD

                              TRUNC(OPT) VBREF VLR(STANDARD) VSAMOPENFS(COMPAT)

                              NOWORD XMLPARSE(XMLSS) XREF ZONEDATA(PFD) ZWB

Machine Instruction . . . . : 0DEF          BASR    R14,R15

At Address. . . . . . . . : 2AC238E6 (Program

                              SUBPGMAB offset X'8E6')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -32 D704 D29C D29C XC      668(5,R13),668(R13)

       -2C 4120 91B0      LA      R2,432(,R9)

       -28 5020 D198      ST      R2,408(,R13)

       -24 4120 91B8      LA      R2,440(,R9)

       -20 5020 D19C      ST      R2,412(,R13)

       -1C 5820 8000      L       R2,0(,R8)

       -18 4120 2002      LA      R2,2(,R2)

       -14 A52A 8000      OILH    R2,X'8000'

       -10 5020 D1A0      ST      R2,416(,R13)

        -C 58F0 3018      L       R15,24(,R3)

        -8 4110 D198      LA      R1,408(,R13)

        -4 58C0 D084      L       R12,132(,R13)

  2AC238E6 0DEF           BASR    R14,R15

        +2 40F0 9008      STH     R15,8(,R9)

        +6 D201 91A8 9008 MVC     424(2,R9),8(R9)

        +C C004 0000 0000 BRCL    0,*+0

       +12 C004 0000 0000 BRCL    0,*+0

       +18 0700           BCR     0,0

       +1A 5820 8000      L       R2,0(,R8)

       +1E E320 2000 0095 LLH     R2,0(,R2)

General Purpose Registers:

R0: 00000000 (2048 bytes of storage addressable)

R1: 0019BAE8 (Module SUBPGMAB program SUBPGMAB LOCAL-STORAGE SECTION auto + X'198')

R2: 8033A452 (2472878 bytes of storage addressable)

R3: 2AC25B68 (Module SUBPGMAB program SUBPGMAB + X'2B68')

R4: 00002C88 (Storage invalid)

R5: 2AC185E8 (Module SUBPGMAB program SUBPGMAB WORKING-STORAGE SECTION heap + X'2E98')

R6: 80000000 (2048 bytes of storage addressable)

R7: 00000000 (2048 bytes of storage addressable)

R8: 2AC155D8 (1722920 bytes of storage addressable)

R9: 2AC15750 (Module SUBPGMAB program SUBPGMAB WORKING-STORAGE SECTION heap + X'0')

R10: 2AC23024 (Module SUBPGMAB program SUBPGMAB + X'24')

R11: 0019B4F8 (658184 bytes of storage addressable)

R12: 00188C80 (734080 bytes of storage addressable)

R13: 0019B950 (Module SUBPGMAB program SUBPGMAB LOCAL-STORAGE SECTION auto + X'0')

R14: AAC238E8 (Module SUBPGMAB program SUBPGMAB + X'8E8')

R15: 2A99CBD0 (Module IGZXLPKA + X'21670')

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

Associated Storage Areas

WORKING-STORAGE SECTION

HEAP at address 2AC15750 for length 00004236

LOCAL-STORAGE SECTION

AUTO at address 0019B950 for length 000002C8

LINKAGE SECTION

BLL=00001 storage at 0033A450 suppressed due to StoragePrintLimit option exceeded

BLL=00002 storage at 0033A840 suppressed due to StoragePrintLimit option exceeded

BLL=00003 storage at 0033A830 suppressed due to StoragePrintLimit option exceeded

Special Registers:

RETURN-CODE     = 0

SORT-RETURN     = 0

SORT-CONTROL    = 'IGZSRTCD'

SORT-CORE-SIZE = 0

SORT-FILE-SIZE = 0

SORT-MODE-SIZE = 0

SORT-MESSAGE    = 'SYSOUT '

TALLY           = 0

SHIFT-OUT       = X'0E'

SHIFT-IN        = X'0F'

XML-CODE        = 0

XML-EVENT       = '                              '

XML-INFORMATION = 0

JSON-CODE       = 0

JSON-STATUS     = 0

See "System-Wide Information" - "Storage Areas" - "Hex-Dumped Storage" for

unformatted storage areas related to this event.

================================================================================

EVENT 18 OF 23: CALL (DSA ADDRESS 0019BC18)

Load Module Name. . . . . . : SYS1.CEE.SCEERUN(IGZXLPKA)

At Address. . . . . . . . : 2A97B560

Load Module Length. . . . : X'120AA0'

Entry Point Name. . . . . . : IGZXFCA1

At Address. . . . . . . . : 2A99CBD0 (Module

                              IGZXLPKA offset X'21670')

Machine Instruction . . . . : 0DEF          BASR    R14,R15

At Address. . . . . . . . : 2A99FFF4 (Entry point

                              IGZXFCA1 offset X'3424')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -32 9180 4014      TM      20(R4),128

       -2E A784 0022      BRC     8,*+68

       -2A 58E0 4014      L       R14,20(,R4)

       -26 5870 D074      L       R7,116(,R13)

       -22 E54C D074 0000 MVHI    116(R13),0

       -1C 50E0 D174      ST      R14,372(,R13)

       -18 581D 0004      L       R1,4(R13)

       -14 58FD 0174      L       R15,372(R13)

       -10 410D 0170      LA      R0,368(R13)

        -C 5811 0018      L       R1,24(R1)

        -8 586D 0154      L       R6,340(R13)

        -4 58AD 0150      L       R10,336(R13)

  2A99FFF4 0DEF           BASR    R14,R15

        +2 50FD 0178      ST      R15,376(R13)

        +6 581D 0004      L       R1,4(R13)

        +A 5001 0014      ST      R0,20(R1)

        +E 5070 D074      ST      R7,116(,R13)

       +12 A7F4 00CA      BRC     15,*+404

       +16 58E0 D154      L       R14,340(,R13)

       +1A 50E0 D17C      ST      R14,380(,R13)

General Purpose Registers:

R0: 0019BD88 (655992 bytes of storage addressable)

R1: 0019BAE8 (656664 bytes of storage addressable)

R2: 2A931E50 (4751792 bytes of storage addressable)

R3: 2A9A0740 (Module IGZXLPKA + X'251E0')

R4: 001BBCC0 (525120 bytes of storage addressable)

R5: 2AC155C8 (1722936 bytes of storage addressable)

R6: 00000000 (2048 bytes of storage addressable)

R7: 00000000 (2048 bytes of storage addressable)

R8: 2AC199B8 (1705544 bytes of storage addressable)

R9: 2AC155C8 (1722936 bytes of storage addressable)

R10: 00000000 (2048 bytes of storage addressable)

R11: 00000080 (1920 bytes of storage addressable)

R12: 00188C80 (734080 bytes of storage addressable)

R13: 0019BC18 (656360 bytes of storage addressable)

R14: AA99FFF6 (Module IGZXLPKA + X'24A96')

R15: AAC32000 (Module SUBPGMAM program SUBPGMAM + X'0')

================================================================================

EVENT 19 OF 23: CALL (DSA ADDRESS 0019BED8)

COBOL Source Code:

  Source

Line #

------

      -5

      -4       *apres CBL NORENT

      -3       *LINKOPT AMODE(31),RMODE(ANY)

      -2

      -1        IDENTIFICATION DIVISION.

000008       PROGRAM-ID. SUBPGMAM.

000111       MAIN SECTION.

000118      * verrue pour supprimer la stack trace pour test de perf

000119      *     MOVE SPACES TO LIPGMAPP

000120      *     STRING 'Suppression de la stack trace dans pgm SUBPGMAM '

000121      *            'pour cause de perf'

000122      *        DELIMITED BY SIZE INTO LIPGMAPP

000123

000124            CALL SUBPGMAL USING PGM-TAB

      +1             INSPECT LIPGMAPP REPLACING ALL

      +2                                        'SUBPGMAM' BY '        '

      +3

      +4       * fin de la verrue

      +5

Data Field Declarations:

  Source

Line #

------

000060       01 SUBPGMAL                  PIC X(8) VALUE 'SUBPGMAL'.

000061       01 PGM-TAB                                            .

Data Field Values:

  PGM-TAB = ?000000SUBPGMAMSUBPGMAMN001SUBPGMABSUBPGMABN...........................................................................

             NOTE: Above value truncated after 119 bytes.

SUBPGMAL = SUBPGMAL

The DWARF debugging information used for the above was found via Compiler TEST

option in LOADLI.RTLDEVA.PGMBATCH(SUBPGMAM).

Load Module Name. . . . . . : LOADLI.RTLDEVA.PGMBATCH(SUBPGMAM)

At Address. . . . . . . . : 2AC32000

Load Module Length. . . . : X'5000'

Link-Edit Date and Time . : 2024/02/21 14:58:29

Program and Entry Point Name: SUBPGMAM

At Address. . . . . . . . : 2AC32000 (Module

                              SUBPGMAM offset X'0')

Program Length. . . . . . : X'17A8'

Program Language. . . . . : COBOL (Compiled using IBM Enterprise COBOL R6 M4

                              on 2024/02/21 at 14:58:29)

Compiler Options Used . . : NOADATA NOADV AFP(NOVOLATILE) APOST ARCH(13)

                              ARITH(COMPAT) NOAWO NOBLOCK0 NOCICS CODEPAGE(1140)

                              NOCURRENCY DATA(31) DBCS NODECK DISPSIGN(SEP)

                              NODLL NODUMP NODYNAM NOEXPORTALL NOFASTSRT

                              HGPR(PRESERVE) INTDATE(ANSI) NOINITIAL INLINE

                              NOINVDATA LIB NOLIST MAP LP(32) NOMDECK NONAME

                              NONUMBER NONUMCHECK NUMPROC(NOPFD) OBJ OFFSET

                              OPTIMIZE(1) OUTDD(SYSOUT) PGMNAME(COMPAT)

                              NOPARMCHECK QUALIFY(EXTEND) RENT RES RMODE(ANY)

                              NOSEQUENCE SMARTBIN SOURCE(DEC) SQL NOSQLIMS

                              NOSQLCCSID SSRANGE(NOZLEN,ABD) NOSTGOPT SUPPRESS

                              NOTERM TEST(EJPD,DWARF,SOURCE,NOSEPARATE) NOTHREAD

                              TRUNC(OPT) VBREF VLR(STANDARD) VSAMOPENFS(COMPAT)

                              NOWORD XMLPARSE(XMLSS) XREF ZONEDATA(PFD) ZWB

Machine Instruction . . . . : 0DEF          BASR    R14,R15

At Address. . . . . . . . : 2AC322D8 (Program

                              SUBPGMAM offset X'2D8')

AMODE . . . . . . . . . . : 31

General Purpose Registers:

R0: 00000000 (2048 bytes of storage addressable)

R1: 0019BFD8 (Module SUBPGMAM program SUBPGMAM LOCAL-STORAGE SECTION auto + X'100')

R2: AAC1B1F0 (Module SUBPGMAM program SUBPGMAM WORKING-STORAGE SECTION heap + X'1718', symbol PGM-LIST, source line #63)

R3: 2AC32DA8 (Module SUBPGMAM program SUBPGMAM + X'DA8')

R4: 2AC1AF40 (Module SUBPGMAM program SUBPGMAM WORKING-STORAGE SECTION heap + X'1468')

R5: 2AC19C8C (Module SUBPGMAM program SUBPGMAM WORKING-STORAGE SECTION heap + X'1B4')

R6: 2AC19C08 (Module SUBPGMAM program SUBPGMAM WORKING-STORAGE SECTION heap + X'130')

R7: 00000000 (2048 bytes of storage addressable)

R8: 2AC199C8 (1705528 bytes of storage addressable)

R9: 2AC19AD8 (Module SUBPGMAM program SUBPGMAM WORKING-STORAGE SECTION heap + X'0', symbol PGM-TAB-IX, source line #65)

R10: 2AC32024 (Module SUBPGMAM program SUBPGMAM + X'24', source line #8)

R11: 0019BAE8 (656664 bytes of storage addressable)

R12: 00188C80 (734080 bytes of storage addressable)

R13: 0019BED8 (Module SUBPGMAM program SUBPGMAM LOCAL-STORAGE SECTION auto + X'0')

R14: AAC322DA (Module SUBPGMAM program SUBPGMAM + X'2DA', source line #124)

R15: 2A99CBD0 (Module IGZXLPKA + X'21670')

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

Associated Storage Areas

WORKING-STORAGE SECTION

Offset Hex Value                           Data Value         Source

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

HEAP storage at address 2AC19AD8

                                                                 01 SQL---PLIST

      A0 0000                                0                    02 SQL---PLIST-LEN

      A2 0000                                0                    02 SQL---FLAGS

      A4 0000                                0                    02 SQL---CALLTYPE

      A6 C9D5E3E3 E2E34040                   *INTTST          *   02 SQL---PROG-NAME

      AE 00000000                            0                    02 SQL---TIMESTAMP-1

      B2 00000000                            0                    02 SQL---TIMESTAMP-2

      B6 0000                                0                    02 SQL---SECTION

      B8 00000000                            *....            *   02 SQL---CODEPTR

      BC 00000000                            *....            *   02 SQL---VPARMPTR

      C0 00000000                            *....            *   02 SQL---APARMPTR

      C4 0000                                0                    02 SQL---CCSID

      C6 0000                                0                    02 SQL---STMT-TYPE

      C8 00000000                            0                    02 SQL---STMT-NUM

      CC 0000                                0                    02 SQL---PLIST-FLG

      CE 00000000 00000000 00000000 00000000 *................*   02 FILLER

      DE 0000                                *..              *

                                                                 01 SQL---AVAR-LIST

      E0 E2D8D3C4 C1404040                   *SQLDA           *   02 SQL---AVAR-PRE-SQLDAID

      E8 00000000                            0                    02 SQL---AVAR-PRE-SQLDABC

      EC 0000                                0                    02 SQL---AVAR-PRE-SQLN

      EE 0000                                0                    02 SQL---AVAR-PRE-SQLLD

NOTE: The following table has zero occurrences.

                                                                 01 SQL---PVAR-LIST

     120 E2D8D3C4 C1404040                   *SQLDA           *   02 SQL---PVAR-PRE-SQLDAID

     128 00000000                            0                    02 SQL---PVAR-PRE-SQLDABC

     12C 0000                                0                    02 SQL---PVAR-PRE-SQLN

     12E 0000                                0                    02 SQL---PVAR-PRE-SQLLD

NOTE: The following table has zero occurrences.

     1B8 00000000 00000000 00000000 00000000 *................* 01 SQL---PROCNAME

         Lines 1C8-328 same as above

     338 0000                                *..              *

     340 00000000 00000000 00000000 00000000 *................* 01 SQL---CURSORNAME

         Lines 350-3B0 same as above

     3C0 00000000 00000000 00000000 00000000 *................* 01 SQL---TEMP

         Lines 3D0-430 same as above

     440 00000000                            0                   01 DSN---NROWS

     448 0000                                0                   01 DSN---NTYPE

     450 0000                                0                   01 DSN---NLEN

     458 00000000 00000000 0000              *..........      * 01 SQL---SCRVALD

     468 00000000 00000000 00000000 00000000 *................* 01 SQL---SCPPD

         Lines 478-1458 same as above

*** Storage suppressed due to StoragePrintLimit option exceeded ***

LOCAL-STORAGE SECTION

AUTO at address 0019BED8 for length 00000228

LINKAGE SECTION

Offset Hex Value                           Data Value         Source (Starting at Line # 000103)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 000104)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 000105)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

INDEXED BY Data Items

Line # Name                           Hex Value Occurrence Occurs Table

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

000065 PGM-TAB-IX                     00000000           1     22 PGM

Special Registers:

RETURN-CODE                = 0

SORT-RETURN                = 0

SORT-CONTROL               = 'IGZSRTCD'

SORT-CORE-SIZE             = 0

SORT-FILE-SIZE             = 0

SORT-MODE-SIZE             = 0

SORT-MESSAGE               = 'SYSOUT '

TALLY                      = 0

SHIFT-OUT                  = X'0E'

SHIFT-IN                   = X'0F'

XML-CODE                   = 0

XML-EVENT                  = '                              '

XML-INFORMATION            = 0

JSON-CODE                  = 0

JSON-STATUS                = 0

IGY-JAVAIOP-CALL-EXCEPTION = X'000000'

================================================================================

EVENT 20 OF 23: CALL (DSA ADDRESS 0019C100)

Load Module Name. . . . . . : SYS1.CEE.SCEERUN(IGZXLPKA)

At Address. . . . . . . . : 2A97B560

Load Module Length. . . . : X'120AA0'

Entry Point Name. . . . . . : IGZXFCA1

At Address. . . . . . . . : 2A99CBD0 (Module

                              IGZXLPKA offset X'21670')

Machine Instruction . . . . : 0DEF          BASR    R14,R15

At Address. . . . . . . . : 2A99FFF4 (Entry point

                              IGZXFCA1 offset X'3424')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -32 9180 4014      TM      20(R4),128

       -2E A784 0022      BRC     8,*+68

       -2A 58E0 4014      L       R14,20(,R4)

       -26 5870 D074      L       R7,116(,R13)

       -22 E54C D074 0000 MVHI    116(R13),0

       -1C 50E0 D174      ST     R14,372(,R13)

       -18 581D 0004      L       R1,4(R13)

       -14 58FD 0174      L       R15,372(R13)

       -10 410D 0170      LA      R0,368(R13)

        -C 5811 0018      L       R1,24(R1)

        -8 586D 0154      L       R6,340(R13)

        -4 58AD 0150      L       R10,336(R13)

  2A99FFF4 0DEF           BASR    R14,R15

        +2 50FD 0178      ST      R15,376(R13)

        +6 581D 0004      L       R1,4(R13)

        +A 5001 0014      ST      R0,20(R1)

        +E 5070 D074      ST      R7,116(,R13)

       +12 A7F4 00CA      BRC     15,*+404

       +16 58E0 D154      L       R14,340(,R13)

       +1A 50E0 D17C      ST      R14,380(,R13)

General Purpose Registers:

R0: 0019C270 (654736 bytes of storage addressable)

R1: 0019BFD8 (655400 bytes of storage addressable)

R2: 2A931E50 (4751792 bytes of storage addressable)

R3: 2A9A0740 (Module IGZXLPKA + X'251E0')

R4: 001BBD40 (524992 bytes of storage addressable)

R5: 2AC199B8 (1705544 bytes of storage addressable)

R6: ECEDEEEF (Storage invalid)

R7: 00000000 (2048 bytes of storage addressable)

R8: 00000000 (2048 bytes of storage addressable)

R9: 2AC199B8 (1705544 bytes of storage addressable)

R10: E8E9EAEB (Storage invalid)

R11: 00000080 (1920 bytes of storage addressable)

R12: 00188C80 (734080 bytes of storage addressable)

R13: 0019C100 (655104 bytes of storage addressable)

R14: AA99FFF6 (Module IGZXLPKA + X'24A96')

R15: 80238000 (Module SUBPGMAL program SUBPGMAL + X'0')

================================================================================

EVENT 21 OF 23: CALL (DSA ADDRESS 0019C3C0)

********************************************************************************

*********************** P O I N T   O F   F A I L U R E **********************

********************************************************************************

This is the point where control left program SUBPGMAL prior to the S0C4 abend.

COBOL Source Code:

  Source

Line #

------

      -5            CONTINUE.

      -4        STACKTRACE-FN.

      -3            EXIT.

      -2

      -1

000357        CALL-CEETBCK.

000358      *

000359      * CALL CEETBC

000360      *

000361

000362            CALL CEETBCK USING

000363                          DSAPTR

000364                          DSA_FORMAT

000365                          CAAPTR

000366                          MEMBER_ID

000367                          PROGRAM_UNIT_NAME

000368                          PROGRAM_UNIT_NAME_LENGTH

000369                          PROGRAM_UNIT_ADDRESS

000370                          CALL_INSTRUCTION_ADDRESS

000371                          ENTRY_NAME

000372                          ENTRY_NAME_LENGTH

000373                          ENTRY_ADDRESS

000374                          CALLERS_CALL_INST_ADDRESS

000375                          CALLERS_DSAPTR

000376                          CALLERS_DSA_FORMAT

000377                          STATEMENT_ID

000378                          STATEMENT_ID_LENGTH

000379                          CIBPTR

000380                          MAIN_PROGRAM

000381                          FC

000382

000383      *     IF PROGRAM_UNIT_NAME_LENGTH > 0

000384      *           DISPLAY 'STACKTRACE ' PGM-LEVEL ' '

000385      *             PROGRAM_UNIT_NAME(1:PROGRAM_UNIT_NAME_LENGTH) ' '

000386      *             ENTRY_NAME(1:ENTRY_NAME_LENGTH) ' ' MAIN_PROGRAM

000387      *     END-IF

000388

      +1             IF PROGRAM_UNIT_NAME_LENGTH > 0

      +2               AND PROGRAM_UNIT_NAME(1:3) NOT = 'IGZ'

      +3               AND PROGRAM_UNIT_NAME(1:8) NOT = 'SUBPGMAL'

      +4               AND ENTRY_NAME_LENGTH > 0

      +5                MOVE PGM-LEVEL TO CALL-LEVEL(PGM-TAB-IX)

Data Field Declarations:

  Source

Line #

------

000035       01 CEETBCK USAGE FUNCTION-POINTER.

000059          02 DSAPTR                     USAGE POINTER   .

000060          02 DSA_FORMAT                 PIC 9(9) COMP-4 .

000061          02 CAAPTR                     USAGE POINTER   .

000062          02 MEMBER_ID                  PIC 9(9) COMP-4 .

000063          02 PROGRAM_UNIT_NAME          PIC X(8)        .

000064          02 PROGRAM_UNIT_NAME_LENGTH   PIC 9(9) COMP-4 .

000065          02 PROGRAM_UNIT_ADDRESS       PIC 9(9) COMP-4 .

000066          02 CALL_INSTRUCTION_ADDRESS   PIC 9(9) COMP-4 .

000067          02 ENTRY_NAME                 PIC X(8)        .

000068          02 ENTRY_NAME_LENGTH          PIC 9(9) COMP-4 .

000069          02 ENTRY_ADDRESS              PIC 9(9) COMP-4 .

000070          02 CALLERS_CALL_INST_ADDRESS PIC 9(9) COMP-4 .

000071          02 CALLERS_DSAPTR             USAGE POINTER   .

000072          02 CALLERS_DSA_FORMAT         PIC 9(9) COMP-4 .

000073          02 STATEMENT_ID               PIC X(8)        .

000074          02 STATEMENT_ID_LENGTH        PIC 9(9) COMP-4 .

000075          02 CIBPTR                     USAGE POINTER   .

000076          02 MAIN_PROGRAM               PIC 9(9) COMP-4 .

000077          02 FC.

Data Field Values:

  CAAPTR                    = X'00188C80'

CALL_INSTRUCTION_ADDRESS = 2041284

CALLERS_CALL_INST_ADDRESS = 2041284

CALLERS_DSA_FORMAT        = 0

CALLERS_DSAPTR            = X'0019B220'

CEETBCK                   = X'00195894'

CIBPTR                    = X'00000000'

DSA_FORMAT                = 0

DSAPTR                    = X'0019B220'

ENTRY_ADDRESS             = 714722256

ENTRY_NAME                = IGZXFCA1

ENTRY_NAME_LENGTH         = 8

FC                        = ............

MAIN_PROGRAM              = 0

MEMBER_ID                 = 4

PROGRAM_UNIT_ADDRESS      = 714722256

PROGRAM_UNIT_NAME         = IGZXFCA1

PROGRAM_UNIT_NAME_LENGTH = 8

STATEMENT_ID              =

  STATEMENT_ID_LENGTH       = 8

The DWARF debugging information used for the above was found via Compiler TEST

option in LOADLI.RTLDEVA.PGMBATCH(SUBPGMAL).

Load Module Name. . . . . . : LOADLI.RTLDEVA.PGMBATCH(SUBPGMAL)

At Address. . . . . . . . : 00238000

Load Module Length. . . . : X'3000'

Link-Edit Date and Time . : 2024/02/22 09:58:19

Program and Entry Point Name: SUBPGMAL

At Address. . . . . . . . : 00238000 (Module

                              SUBPGMAL offset X'0')

Program Length. . . . . . : X'1288'

Program Language. . . . . : COBOL (Compiled using IBM Enterprise COBOL R6 M4

                              on 2024/02/22 at 09:58:18)

Compiler Options Used . . : NOADATA NOADV AFP(NOVOLATILE) APOST ARCH(13)

                              ARITH(COMPAT) NOAWO NOBLOCK0 NOCICS CODEPAGE(1140)

                              NOCURRENCY DATA(31) DBCS NODECK DISPSIGN(SEP)

                              NODLL NODUMP NODYNAM NOEXPORTALL NOFASTSRT

                              HGPR(PRESERVE) INTDATE(ANSI) NOINITIAL INLINE

                              NOINVDATA LIB NOLIST MAP LP(32) NOMDECK NONAME

                              NONUMBER NONUMCHECK NUMPROC(NOPFD) OBJ OFFSET

                              OPTIMIZE(1) OUTDD(SYSOUT) PGMNAME(COMPAT)

                              NOPARMCHECK QUALIFY(EXTEND) NORENT RES RMODE(AUTO)

                              NOSEQUENCE SMARTBIN SOURCE(DEC) NOSQL NOSQLIMS

                              NOSQLCCSID SSRANGE(NOZLEN,ABD) NOSTGOPT SUPPRESS

                              NOTERM TEST(EJPD,DWARF,SOURCE,NOSEPARATE) NOTHREAD

                              TRUNC(OPT) VBREF VLR(STANDARD) VSAMOPENFS(COMPAT)

                              NOWORD XMLPARSE(XMLSS) XREF ZONEDATA(PFD) ZWB

Machine Instruction . . . . : 0DEF          BASR    R14,R15

At Address. . . . . . . . : 00238548 (Program

                              SUBPGMAL offset X'548')

AMODE . . . . . . . . . . : 31

General Purpose Registers:

R0: 00000000 (2048 bytes of storage addressable)

R1: 0019C540 (Module SUBPGMAL program SUBPGMAL LOCAL-STORAGE SECTION auto + X'180')

R2: 00239298 (Module SUBPGMAL program SUBPGMAL WORKING-STORAGE SECTION heap + X'0', symbol SAV-PGM-TAB-IX, source line #101)

R3: 00238CD8 (Module SUBPGMAL program SUBPGMAL + X'CD8')

R4: 802393CC (Module SUBPGMAL program SUBPGMAL WORKING-STORAGE SECTION heap + X'134', symbol SEVERITY, source line #83)

R5: 00000058 (1960 bytes of storage addressable)

R6: 002393A4 (Module SUBPGMAL program SUBPGMAL WORKING-STORAGE SECTION heap + X'10C', symbol ENTRY_NAME_LENGTH, source line #68)

R7: 40000000 (Storage invalid)

R8: 2AC1B21B (Module SUBPGMAL program SUBPGMAL LINKAGE SECTION BLL=00001 + X'2B', symbol IS-MAIN-PGM, source line #152)

R9: 00000000 (2048 bytes of storage addressable)

R10: 40000000 (Storage invalid)

R11: 0019BFD8 (655400 bytes of storage addressable)

R12: 00188C80 (734080 bytes of storage addressable)

R13: 0019C3C0 (Module SUBPGMAL program SUBPGMAL LOCAL-STORAGE SECTION auto + X'0')

R14: 8019589E (681826 bytes of storage addressable)

R15: 89998618 (Module CEEPLPKA + X'F7618')

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

Associated Storage Areas

WORKING-STORAGE SECTION

Offset Hex Value                           Data Value         Source (Starting at Line # 000029)

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

HEAP storage at address 00239298

      C0 6060C4C5 C2E4E340 E6D6D9D2 C9D5C760 *--DEBUT WORKING-* 77 FILLER      PIC X(16)   VALUE '--DEBUT WORKING-'.

      D0 0016                                22                  77 PGM-TAB-IX-MAX    PIC S9(4) COMP VALUE 22.

      D8 00195894                            *...m            * 01 CEETBCK USAGE FUNCTION-POINTER.

                                                                  01 ARGS.

      E0 0019B220                            *....            *     02 DSAPTR                     USAGE POINTER   .

      E4 00000000                            0                      02 DSA_FORMAT                 PIC 9(9) COMP-4 .

      E8 00188C80                            *....            *     02 CAAPTR                     USAGE POINTER   .

      EC 00000004                            4                      02 MEMBER_ID                  PIC 9(9) COMP-4 .

      F0 C9C7E9E7 C6C3C1F1                   *IGZXFCA1        *     02 PROGRAM_UNIT_NAME          PIC X(8)        .

      F8 00000008                            8                      02 PROGRAM_UNIT_NAME_LENGTH   PIC 9(9) COMP-4 .

      FC 2A99CBD0                            714722256              02 PROGRAM_UNIT_ADDRESS       PIC 9(9) COMP-4 .

     100 001F25C4                            2041284                02 CALL_INSTRUCTION_ADDRESS   PIC 9(9) COMP-4 .

     104 C9C7E9E7 C6C3C1F1                   *IGZXFCA1        *     02 ENTRY_NAME                 PIC X(8)        .

     10C 00000008                            8                      02 ENTRY_NAME_LENGTH          PIC 9(9) COMP-4 .

     110 2A99CBD0                            714722256              02 ENTRY_ADDRESS              PIC 9(9) COMP-4 .

     114 001F25C4                            2041284                02 CALLERS_CALL_INST_ADDRESS PIC 9(9) COMP-4 .

     118 0019B220                            *....            *     02 CALLERS_DSAPTR             USAGE POINTER   .

     11C 00000000                            0                      02 CALLERS_DSA_FORMAT         PIC 9(9) COMP-4 .

     120 40404040 40404040                   *                *     02 STATEMENT_ID               PIC X(8)        .

     128 00000008                            8                      02 STATEMENT_ID_LENGTH        PIC 9(9) COMP-4 .

     12C 00000000                            *....            *     02 CIBPTR                     USAGE POINTER   .

     130 00000000                            0                      02 MAIN_PROGRAM               PIC 9(9) COMP-4 .

                                                                    02 FC.

                                                                      03 CONDITION-TOKEN-VALUE.

                                                                          04 CASE-1-CONDITION-ID.

     134 0000                                0                                05 SEVERITY    PIC S9(4) BINARY.

     136 0000                                0                                05 MSG-NO      PIC S9(4) BINARY.

                                                                          04 CASE-2-CONDITION-ID

                                                                                    REDEFINES CASE-1-CONDITION-ID.

     134 0000                                0                                05 CLASS-CODE PIC S9(4) BINARY.

     136 0000                                0                                05 CAUSE-CODE PIC S9(4) BINARY.

     138 00                                  *.               *           04 CASE-SEV-CTL    PIC X.

     139 000000                              *...             *           04 FACILITY-ID     PIC XXX.

     13C 00000000                            0                        03 I-S-INFO            PIC S9(9) BINARY.

     140 00000000 00000000                   *........        *   01 ENTRY_NAME_DISPLAY PIC X(8).

     148 00000000 00000000                   *........        * 77 SAV-JOB-NUMBER                PIC X(8)            .

                                                                 01 SAV-PGM-TAB                                       .

     150 40                                  *                *       03 SAV-ISDB2                PIC X               .

                                                                      03 SAV-PGM-LIST                                 .

     151 404040                              *                *        05 SAV-NB-PGM               PIC 9(3)          .

                                                                       05 SAV-PGM OCCURS 22 INDEXED BY SAV-PGM-TAB-IX.

     154 404040                              *                *         07 SAV-CALL-LEVEL          PIC 9(3)          .

     157 40404040 40404040                   *                *         07 SAV-PGM-UNIT            PIC X(8)          .

     15F 40404040 40404040                   *                *         07 SAV-PGM-ENTRY           PIC X(8)          .

     167 40                                  *                *         07 SAV-IS-MAIN-PGM         PIC X             .

                                                                           SAV-PGM(2) to SAV-PGM(22) same as above

     30C 40404040 40404040 40404040 40404040 *                *       03 SAV-PGM-STRING             PIC X(200)        .

         Lines 31C-3BC same as above

     3CC 40404040 40404040                   *                *

     3D8 F0F0C2                              2+                   77 PGM-LEVEL                PIC S9(3)               .

     3E0 E9F8F1F0 D7E3C1D4 40404040 40404040 *SUBPGMAM        *   77 W-PGM-STRING             PIC X(200)              .

     3F0 40404040 40404040 40404040 40404040 *                *

         Lines 400-490 same as above

     4A0 40404040 40404040                   *                *

     4A8 E3F5C3C8 C5D2E2F1                   *AUSER001        * 01 job-name Pic x(8).

     4B0 D4C1D140 40404040                   *MAJ             * 01 proc-step Pic x(8).

     4B8 C5E3F0F1 F0404040                   *ET010           * 01 step-name Pic x(8).

     4C0 D1D6C2F1 F8F5F3F6                   *JOB18536        * 01 job-number Pic x(8).

     4C8 C4C6E2D9 D9C3F0F0                   *DFSRRC00        * 01 program-name Pic x(8).

     4D0 00000000 00000000                   *........       * 01 user-id Pic x(8).

     4D8 00000000 00000000                   *........        * 01 group-name Pic x(8).

     4E0 00000000 00000000 00000000 00000000 *................* 01 user-name Pic x(20).

     4F0 00000000                            *....            *

                                                                 01 four-bytes.

     4F8 00000000                            0                       05 full-word Pic s9(8) Comp.

     500 00000001                            1                   01 FUNCCODE PIC 9(9) BINARY.

     508 00000019                            25                  01 NAMELEN   PIC 9(9) BINARY.

     510 00000000                            0                   01 VALUELEN PIC 9(9) BINARY.

     518 E29789A3 8182E2A3 818392E3 99818385 *SUBPGMABStackTrace* 01 NAME      PIC X(255).

     528 D1D6C2F1 F8F5F3F6 40404040 40404040 *JOB18536        *

     538 40404040 40404040 40404040 40404040 *                *

         Lines 548-5F8 same as above

     608 40404040 40404040 40404040 404040   *                *

     618 00000000                            *....            * 01 VALPTR    POINTER.

LOCAL-STORAGE SECTION

AUTO at address 0019C3C0 for length 00000260

LINKAGE SECTION

Offset Hex Value                           Data Value         Source (Starting at Line # 000144)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 000154)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

  Offset Hex Value                           Data Value         Source (Starting at Line # 000155)

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

*** Storage suppressed due to StoragePrintLimit option exceeded ***

INDEXED BY Data Items

Line # Name                           Hex Value Occurrence Occurs Table

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

000101 SAV-PGM-TAB-IX                 00000000           1     22 SAV-PGM

000148 PGM-TAB-IX                     00000028           3     22 PGM

Special Registers:

RETURN-CODE                = -31208

SORT-RETURN                = 0

SORT-CONTROL               = 'IGZSRTCD'

SORT-CORE-SIZE             = 0

SORT-FILE-SIZE             = 0

SORT-MODE-SIZE             = 0

SORT-MESSAGE               = 'SYSOUT '

TALLY                      = 0

SHIFT-OUT                  = X'0E'

SHIFT-IN                   = X'0F'

XML-CODE                   = 0

XML-EVENT                  = '                              '

XML-INFORMATION            = 0

JSON-CODE                  = 0

JSON-STATUS                = 0

IGY-JAVAIOP-CALL-EXCEPTION = X'000000'

================================================================================

EVENT 22 OF 23: BRANCH (DSA ADDRESS 0019C620)

Load Module Name. . . . . . : CEEPLPKA (In Link Pack Area) - CEL Common Runtime

At Address. . . . . . . . : 098A1000

Load Module Length. . . . : X'225568'

Entry Point Name. . . . . . : CEEKTBCK - Traceback utility

At Address. . . . . . . . : 09998618 (Module

                              CEEPLPKA offset X'F7618')

Service Level . . . . . . : HLE77D0

Machine Instruction . . . . : A7B40005      BRC     11,*+10

At Address. . . . . . . . : 09999FD6 (Entry point

                              CEEKTBCK offset X'19BE')

AMODE . . . . . . . . . . : 31

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -30 C02B 8000 0000 NILF    R2,X'80000000'

       -2A A774 0007      BRC     7,*+14

       -26 C05B 00FF FFFF NILF    R5,X'00FFFFFF'

       -20 A7F4 0005      BRC     15,*+10

       -1C C05B 7FFF FFFF NILF    R5,X'7FFFFFFF'

       -16 5870 8452      L       R7,1106(,R8)

       -12 A768 1000      LHI     R6,4096

        -E 5070 C2CC      ST      R7,716(,R12)

        -A 1825           LR      R2,R5

        -8 A778 0002      LHI     R7,2

        -4 1F27           SLR     R2,R7

        -2 1526           CLR     R2,R6

  09999FD6 A7B4 0005      BRC     11,*+10

        +4 1843           LR      R4,R3

        +6 A7F4 0007      BRC     15,*+14

        +A D201 D7F8 2000 MVC     2040(2,R13),0(R2)

       +10 A748 0001      LHI     R4,1

       +14 5030 C2CC      ST      R3,716(,R12)

       +18 1244           LTR     R4,R4

       +1A A784 0044      BRC     8,*+136

NOTE: All registers shown are as at the time of the next event. Registers were

      not saved at this event and their content might have been different.

General Purpose Registers:

R0: 0_0019C850 (653232 bytes of storage addressable)

R1: 0_0019C818 (653288 bytes of storage addressable)

R2: 40404040_0098E37A (Storage invalid)

R3: 0_00000000 (2048 bytes of storage addressable)

R4: E9F7F4F0_00187808 (739320 bytes of storage addressable)

R5: E2D8D3C4_0098E37C (Storage invalid)

R6: 0_00001000 (Storage invalid)

R7: 0_00000002 (2046 bytes of storage addressable)

R8: 0_0999A616 (Module CEEPLPKA + X'F9616')

R9: 0_89998618 (Module CEEPLPKA + X'F7618')

R10: 0_09999617 (Module CEEPLPKA + X'F8617')

R11: 0_0019D61F (649697 bytes of storage addressable)

R12: 0_00188C80 (734080 bytes of storage addressable)

R13: 0_0019C620 (653792 bytes of storage addressable)

R14: 0_0019C88C (653172 bytes of storage addressable)

R15: 0_0019C88C (653172 bytes of storage addressable)

================================================================================

EVENT 23 OF 23: ABEND S0C4

Abend Code. . . . . . . . . : S0C4-X'11'

Program-Interruption Code . : 0011 (Page-Translation Exception)

                              A page-translation exception occurred due to one

                              of the following:

                              - The page-table entry indicated by the page-index

                                portion of a virtual address was outside the

                                page table.

                              - The page-invalid bit was one.

Load Module Name. . . . . . : CEEPLPKA (In Link Pack Area) - CEL Common Runtime

At Address. . . . . . . . : 098A1000

Load Module Length. . . . : X'225568'

Entry Point Name. . . . . . : CEEKTBCK - Traceback utility

At Address. . . . . . . . : 09998618 (Module

                              CEEPLPKA offset X'F7618')

Service Level . . . . . . : HLE77D0

Machine Instruction . . . . : D201D7F82000 MVC    2040(2,R13),0(R2)

At Address. . . . . . . . : 09999FE0 (Entry point

                              CEEKTBCK offset X'19C8')

AMODE . . . . . . . . . . : 31

Failing Operand . . . . . : Second operand

First Operand Address . . : 0019CE18 (651752

                              bytes of storage addressable)

First Operand Length. . . : 2

First Operand Storage . . : 0DEF *..*

Second Operand Address. . : 40404040_0098E37A (Storage

                              invalid)

Second Operand Length . . : 2

Additional instructions around event offset:

  Offset   Hex            Instruction

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

       -2A A7F4 0005      BRC     15,*+10

       -26 C05B 7FFF FFFF NILF    R5,X'7FFFFFFF'

       -20 5870 8452      L       R7,1106(,R8)

       -1C A768 1000      LHI     R6,4096

       -18 5070 C2CC      ST      R7,716(,R12)

       -14 1825           LR      R2,R5

       -12 A778 0002      LHI     R7,2

        -E 1F27           SLR     R2,R7

        -C 1526           CLR     R2,R6

        -A A7B4 0005      BRC     11,*+10

        -6 1843           LR      R4,R3

        -4 A7F4 0007      BRC     15,*+14

  09999FE0 D201 D7F8 2000 MVC     2040(2,R13),0(R2)

        +6 A748 0001      LHI     R4,1

        +A 5030 C2CC      ST      R3,716(,R12)

        +E 1244           LTR     R4,R4

       +10 A784 0044      BRC     8,*+136

       +14 D501 D7F8 8429 CLC     2040(2,R13),1065(R8)

       +1A A774 003F      BRC     7,*+126

       +1E 5870 844E      L       R7,1102(,R8)

Program Status Word (PSW) . : 078D2000 89999FE0

PSW Summary . . . . . . . : Primary Space Mode, PSW Key 8, AMODE 31, Problem

                              State

Breaking Event Address

Register (BEAR) . . . . . . : 09999FD6 (Event 22)

General Purpose Registers:

R0: 0_0019C850 (653232 bytes of storage addressable)

R1: 0_0019C818 (653288 bytes of storage addressable)

R2: 40404040_0098E37A (Storage invalid)

R3: 0_00000000 (2048 bytes of storage addressable)

R4: E9F7F4F0_00187808 (739320 bytes of storage addressable)

R5: E2D8D3C4_0098E37C (Storage invalid)

R6: 0_00001000 (Storage invalid)

R7: 0_00000002 (2046 bytes of storage addressable)

R8: 0_0999A616 (Module CEEPLPKA + X'F9616')

R9: 0_89998618 (Module CEEPLPKA + X'F7618')

R10: 0_09999617 (Module CEEPLPKA + X'F8617')

R11: 0_0019D61F (649697 bytes of storage addressable)

R12: 0_00188C80 (734080 bytes of storage addressable)

R13: 0_0019C620 (653792 bytes of storage addressable)

R14: 0_0019C88C (653172 bytes of storage addressable)

R15: 0_0019C88C (653172 bytes of storage addressable)

------------------------------
Loic Vital-Durand
------------------------------

Original Message
12. RE: COBOL "StackTrace"

0 Like
Roy Bae
Posted Wed February 28, 2024 11:02 AM

Reply
Hello Loic,

Thanks for posting the CEEDUMP. I do read those outputs and dumps. I looked at it and the one that caught my eyes is

EVENT 23 OF 23: ABEND S0C4
...Machine Instruction . . . . : D201D7F82000 MVC 2040(2,R13),0(R2) At Address. . . . . . . . : 09999FE0 (Entry point CEEKTBCK offset X'19C8') ...
R2: 40404040_0098E37A (Storage invalid)
I do not own the CEEKTBCK but, as far as I *believe* , CEEKTBCK was trying to walk through caller programs and abended when an address pointing to "Storage Invalid" was used in "MVC ..." . The abending code in CEEKTBCK should have been protected from abending but it seems missing. You need to open a CASE with IBM and have the owner of CEEKTBCK take a look at this issue. If you need help with opening a CASE, let me know. I will find someone else who can help with that.

The turnaround with IBM might take some time. In the meantime, If you want, you can protect your program from abending by calling CEEKTBCK (that is, your own error recovery like TRY/CATCH in Java):
https://www.ibm.com/docs/en/zos/3.1.0?topic=services-ceemrcemove-resume-cursor-explicit#clcmre
The goal of this protection is
1) Set up this error recovery before calling CEEKTBCK in your program
2) If CEEKTBCK abends, the error recovery takes a control
3) Emit your own error message like "CEEKTBCK failed"
4) Your program continues the rest instead of abending
Note that in this scenario, the traceback from CEEKTBCK won't be generated.

------------------------------
Roy Bae
------------------------------

Original Message
13. RE: COBOL "StackTrace"

0 Like
Loic Vital-Durand
Posted Thu February 29, 2024 05:05 AM

Reply
Thanks a lot Roy,

I will raise a case to IBM using my client network, I'll let you know if I get stocked and need help, I appreciate the proposal.

Meanwhile I'll "protect" my sub-program from abending using your advice.

I'll keep you updated.

/Loic

------------------------------
Loic Vital-Durand
------------------------------

Original Message
14. RE: COBOL "StackTrace"

0 Like
Loic Vital-Durand
Posted Wed March 27, 2024 11:59 AM

Reply
Hello Roy,

Now that I added

//CEEOPTS DD *
TRAP(ON,SPIE)

to my JCL I managed to implement "TRY/CATCH" to capture CEEKTBCK issue without abending and it seems to work fine.

More testing has to be done in the coming weeks but it looks promising.

Thanks a lot, I owe you some more beers ;)

/Loic

------------------------------
Loic Vital-Durand
------------------------------

Original Message

COBOL