Abnormal Termination
When technology complements business   ABEND Example for Micro Focus Environment
Copyright © 1987-2008  SimoTime Enterprises, LLC  All Rights Reserved http://www.simotime.com

 
Introduction Version 07.01.25
 
  Programming Objectives
  Programming Input and Output
  Programming Requirements
  Programming Overview
  A CMD Member for the Windows Environment
  A JCL Member for the Mainframe Environment
  The COBOL Demonstration Programs
 
  Display Call Stack, Mainline Program or ABTESTC1
 
  Display Call Stack, First Call or ABSUBRC1
  Display Call Stack, Second Call or ABSUBRC2
  The COBOL ABEND Routine
 
  Mainframe Utility, ILBOABN0, a Callable ABEND Routine
  Examples of Actual Program Failures
 
  Divide by Zero, RTS0048
  Numeric with Non-Numeric value, RTS0163 or S0C7
  Called Program Not Found, RTS0173
  Compile the Programs, the Directives
  Summary
 
  Software Agreement and Disclaimer
  Downloads and Links to Similar Pages
  Glossary of Terms
  Comments or Suggestions
  About SimoTime

Introduction
(Next) (Previous) (Table-of-Contents)

This suite of sample programs describes how to call an ABEND (ABnormal ENDing) routine in a Micro Focus environment. This routine will display the call stack starting with the program that called the ABEND (or abnormal termination) routine.

Programming Objectives
(Next) (Previous) (Table-of-Contents)

The objective is to show how to call an ABEND routine that will access the Micro Focus call stack and display the information to the screen.

Programming Input and Output
(Next) (Previous) (Table-of-Contents)

The purpose of this suite of programs is to test the ABEND routine that displays the call stack. The ABEND routine (SIMOAB01) is called without parameters. If parameters are supplied they are ignored. The following is an example of a COBOL statement that will call the ABEND routine.

           CALL 'SIMOAB01'

The output of the ABEND routine is a display to the console. If the environment is ES/MTO then the information will be written to the spool file.

The following is displayed on the screen when using a Windows command file to execute.

*******************************************************AbTestE1
Starting JobName AbTestE1
Micro Focus Net Express V5.001.0099
RUN TIME ENVIRONMENT Copyright (C) 1984-2006 Micro Focus (IP) Limited.
URN AXCGG/AA0/00000
* SIMOAB01 ABENDING, display the call stack.  v07.01.24 http://www.simotime.com
* SIMOAB01 Copyright 1987-2007   SimoTime Enterprises, LLC  All Rights Reserved
* SIMOAB01 ABSUBRC2
* SIMOAB01 ABSUBRC1
* SIMOAB01 AbTestC1
Finished JobName AbTestE1, Job Status is 0000
Conclude SysLog is c:\SimoSAM1\LOGS\SpoolSimoNOTE.TXT
Press any key to continue . . .

The following is written to the spool file when using Micro FOcus Enterprise Server (ES/MTO).

     *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* 
     *-*-*              Micro Focus ESJCL Version 3.0.07I ASCII  JES2              *-*-* 
     *-*-*                                                                         *-*-* 
     *-*-*  Job: 01056 Name: ABTESTJ1 User: mfuser   Date: 01/22/07 Time: 15:07:13 *-*-* 
     *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* 
 
   1 //ABTESTJ1 JOB SIMOTIME,ACCOUNT,CLASS=A,MSGCLASS=0,NOTIFY=CSIP1 
   2 //* ******************************************************************* 
   3 //* Step   1 of 2  Test the ABEND Routine. 
   4 //* 
   5 //STEP0010 EXEC PGM=ABTESTC1 
   6 //SYSOUT   DD  SYSOUT=* 
   7 //* 
**** JCLCM0180I Job ready for execution. 
**** EXECUTION SUMMARY ----------------------------------------------------- 
 
     15:07:13 JCLCM0188I JOB  STARTED 
 
     15:07:14 JCLCM0190I STEP STARTED   STEP0010 
     15:07:14 JCLCM0199I Program ABTESTC1 is COBOL VSC2  ASCII  Big-Endian    NOAMODE. 
     *MSG * SIMOAB01 ABENDING, display the call stack.  v07.01.24 http://www.simotime.com 
     *MSG * SIMOAB01 Copyright 1987-2007   SimoTime Enterprises, LLC  All Rights Reserved 
     *MSG * SIMOAB01 ABSUBRC2 
     *MSG * SIMOAB01 ABSUBRC1 
     *MSG * SIMOAB01 ABTESTC1 
     *MSG * SIMOAB01 MFJXE00 
     *MSG * SIMOAB01 CASBAT 
     *MSG * SIMOAB01 CASSPOOL 
     *MSG * SIMOAB01 CASBAT 
     *MSG * SIMOAB01 DFHECICS 
     *MSG * SIMOAB01 mvsSI 
     MFE2007.S0122.S150713.J01056.D00001.SYSOUT                        SYSOUT 
      C:\SIMOSAM1\DATALIB1\DYN1\MFE200*150713.J01056.D00001.SYSOUT.DAT  SPOOLED 
---> 15:07:16 JCLCM0191I STEP ENDED     STEP0010 - COND CODE 0016 
 
---> 15:07:16 JCLCM0182I JOB  ENDED   - COND CODE 0016

Programming Requirements
(Next) (Previous) (Table-of-Contents)

This suite of samples programs will run on the following platforms.

1. The ABEND routine was executed and tested on Windows/XP. The samples were executed using Micro Focus Net Express with a Windows CMD file and Micro Focus Enterprise Server using JCL. Both environments were configued to run in an ASCII encoded environment.
2. The SimoMODS package should be installed prior to using this suite of sample programs. This example uses the SIMOAB01.CBL program that is provided in the SimoMODS package. Refer to the SimoTime web site for more infomation.
3. May be ported to run on the UNIX platforms supported by Micro Focus COBOL.

Programming Overview
(Next) (Previous) (Table-of-Contents)

The following is a flowchart of the job for executing the program to test the ABEND routine.

ABTESTJ1
jcl
 
ABTESTE1
cmd
      The JCL or CMD member
for running the application.
     
     
     
     
     
     
     
     
     
       
 
ABTESTC1
CBL
     
     
     
      Main Program
 
 
ABSUBRC1
cbl
     
     
     
    1st nested call
 
 
 
ABSUBRC2
cbl
     
     
     
  2nd nested call
 
 
   
SIMOAB01
cbl
  ABEND Routine
 
End-of-Job
EOJ
         

The main program (ABTESTC1) will call the first subroutine (ABSUBRC1) which willcall the second subroutine (ABSUBRC2) which will call the ABEND routine (SIMOAB01) which will display the call stack on the screen. Since SIMOAB01 issues a STOP RUN the processing will be terminated along with all the programs involved in the calling process. The source code for the CMD file, the JCL member and the COBOL programs is provided and may be modified to fit your environment.

A CMD Member for the Windows Environment
(Next) (Previous) (Table-of-Contents)

The following is the Windows Command file (ABTESTE1.CMD) that is required to run as a job on a PC using Micro Focus Net Express.

@echo OFF
rem  * *******************************************************************
rem  *                   This program is provided by:                    *
rem  *                    SimoTime Enterprises, LLC                      *
rem  *           (C) Copyright 1987-2007 All Rights Reserved             *
rem  *             Web Site URL:   http://www.simotime.com               *
rem  *                   e-mail:   helpdesk@simotime.com                 *
rem  * *******************************************************************
rem  *
rem  * Text    - ABEND Routine for the Micro Focus Environment.
rem  * Author  - SimoTime Enterprises
rem  * Date    - September 23, 2006
rem  * Version - 07.01.22
rem  *
rem  * This set of programs illustrate the use a callable COBOL program
rem  * that displays the call stack and issues a STOP RUN to terminate
rem  * the process.
rem  *
rem  * This ABEND routine is for use in a Micro Focus environment.
rem  *
rem  * ********************************************************************
rem  * Step   1 of 2  Set the global environment variables...
rem  *
     setlocal
     call ..\Env1Base
rem  *
     call SimoNOTE "*******************************************************AbTestE1"
     call SimoNOTE "Starting JobName AbTestE1"
rem  * ********************************************************************
rem  * Step   2 of 2  Execute the sample program...
rem  *
     run ABTESTC1
     if ERRORLEVEL 1 goto :EojNOK
     set JobStatus=0010
     goto :EojNOK
:EojAOK
     call SimoNOTE "Finished JobName AbTestE1, Job Status is %JobStatus%"
     goto :End
:EojNOK
     call SimoNOTE "ABENDING JobName AbTestE1, Job Status is %JobStatus%"
     echo AbTestC1 is ABENDING>>%BaseLib1%\LOGS\ABENDLOG.TXT
     goto :End
:End
     call SimoNOTE "Conclude SysLog is %SYSLOG%"
     if not "%1" == "nopause" pause
     endlocal

A JCL Member for the Mainframe Environment
(Next) (Previous) (Table-of-Contents)

The following (ABTESTJ1.JCL) is a sample of the JCL needed to run this job with Micro Focus Enterprise Server or Micro Focus Mainframe Express.

//ABTESTJ1 JOB SIMOTIME,ACCOUNT,CLASS=A,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//*                   This program is provided by:                    *
//*                    SimoTime Enterprises, LLC                      *
//*           (C) Copyright 1987-2007 All Rights Reserved             *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Text    - ABEND Routine for the Micro Focus Environment.
//* Author  - SimoTime Enterprises
//* Date    - September 23, 2006
//* Version - 07.01.22
//*
//* This set of programs illustrate the use a callable COBOL program
//* that displays the call stack and issues a STOP RUN to terminate
//* the process.
//*
//* This ABEND routine is for use in a Micro Focus environment.
//*
//* *******************************************************************
//* Step   1 of 2  Test the ABEND Routine.
//*
//STEP0010 EXEC PGM=ABTESTC1
//SYSOUT   DD  SYSOUT=*
//*

The COBOL Demonstration Programs
(Next) (Previous) (Table-of-Contents)

The following (ABTESTC1.CBL) is the main program that is executed from JCL or a Windows Command file.

Display Call Stack, Mainline Program or ABTESTC1
(Next) (Previous) (Table-of-Contents)

The following (ABTESTC1.CBL) is the main program that is executed from JCL or a Windows Command file.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    ABTESTC1.
       AUTHOR.        SIMOTIME ENTERPRISES.
      *****************************************************************
      * SOURCE MODULE ABTESTC1.CBL
      *****************************************************************
      * ABTESTC1 - Displays a message and calls ABSUBRC1.
      *
      * DESCRIPTION
      * -----------
      * This program will display a message and call the first nested
      * program.
      *
      *****************************************************************
      * MAINTENANCE
      * -----------
      * 1999/03/89 SimoTime, Created program.
      * 1999/03/89 SimoTime, No changes to date.
      *
      *****************************************************************
       ENVIRONMENT DIVISION.
      *****************************************************************
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      *****************************************************************
      *    Data-structure for Title and Copyright...
      *    ------------------------------------------------------------
       01  SIM-TITLE.
           05  simt-1 pic X(30) value '* ABTESTC1 Example of a driver'.
           05  simt-2 pic X(30) value ' program for ABEND example    '.
           05  simt-3 pic X(20) value 'V07.09.24, ABTESTC1 '.
       01  SIM-START.
           05  simc-1 pic X(11) value '* ABTESTC1 '.
           05  simc-2 pic X(19) value 'program is STARTING'.
           05  simc-3 pic X(30) value '                              '.
           05  simc-4 pic X(20) value '           ABTESTC1 '.

       01  TEST-GROUP.
           05  TEST-NUMBER     pic 9(5) comp-3.
       01  TEST-RESULT         pic 999.

      *****************************************************************
       PROCEDURE DIVISION.
           perform POST-STARTUP-INFO

           add 123 to ZERO giving TEST-NUMBER
           move ZERO to TEST-RESULT

           if  TEST-RESULT = 0
               call 'ABSUBRC1'
           else
               divide TEST-NUMBER by TEST-RESULT giving TEST-RESULT
           end-if

      *    If the SIMOAB01 has a STOP RUN then it will force the run
      *    time to ABEND and will not return to this point. This
      *    program will be cancelled along with the ABEND routine.

           display '* ABTESTC1 - ' RETURN-CODE

           GOBACK.

      *****************************************************************
       POST-STARTUP-INFO.
           display SIM-TITLE(1:79)
           display SIM-START(1:79)
           exit.

Display Call Stack, First Call or ABSUBRC1
(Next) (Previous) (Table-of-Contents)

The following (ABSUBRC1.CBL) is called from the mainline program.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    ABSUBRC1.
       AUTHOR.        SIMOTIME ENTERPRISES.
      *****************************************************************
      * SOURCE MODULE CBLABEND.CBL
      *****************************************************************
      * ABSUBRC1 - Displays a message and calls ABSUBRC2.
      *
      * DESCRIPTION
      * -----------
      * This program will display a message and call ABSUBRC2. The
      * expected result is that ABSUBRC2 will ABEND and never return.
      *
      *****************************************************************
      * MAINTENANCE
      * -----------
      * 1999/03/89 SimoTime, Created program.
      * 1999/03/89 SimoTime, No changes to date.
      *
      *****************************************************************
       ENVIRONMENT DIVISION.
      *****************************************************************
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      *****************************************************************
      *    Data-structure for Title and Copyright...
      *    ------------------------------------------------------------
       01  SIM-TITLE.
           05  SIMT-1 pic X(30) value '* ABSUBRC1 Example of a called'.
           05  SIMT-2 pic X(30) value ' program for ABEND example    '.
           05  SIMT-3 pic X(20) value 'V1.0.00,   ABSUBRC1 '.
       01  SIM-START.
           05  SIMC-1 pic X(11) value '* ABSUBRC1 '.
           05  SIMC-2 pic X(19) value 'program is STARTING'.
           05  SIMC-3 pic X(30) value '                              '.
           05  SIMC-4 pic X(20) value '           ABSUBRC1 '.

      *****************************************************************
       PROCEDURE DIVISION.
           perform POST-STARTUP-INFO

           call 'ABSUBRC2'

      *    If the SIMOAB01 has a STOP RUN then it will force the run
      *    time to ABEND and will not return to this point. This
      *    program will be cancelled along with the ABEND routine.

           display 'ABSUBRC1 - ' RETURN-CODE

           GOBACK.

      *****************************************************************
       POST-STARTUP-INFO.
           display SIM-TITLE(1:79)
           display SIM-START(1:79)
           exit.

Display Call Stack, Second Call or ABSUBRC2
(Next) (Previous) (Table-of-Contents)

The following (ABSUBRC2.CBL) is the third level program in the call stack.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    ABSUBRC2.
       AUTHOR.        SIMOTIME ENTERPRISES.
      *****************************************************************
      * SOURCE MODULE ABSUBRC2.CBL
      *****************************************************************
      * ABSUBRC2 - Displays a message and calls SIMOAB01.
      *
      * DESCRIPTION
      * -----------
      * This program will display a message and call SIMOABN1. The
      * expected result is SIMOABN1 will issue a message a STOP RUN.
      *
      *****************************************************************
      * MAINTENANCE
      * -----------
      * 1999/03/89 SimoTime, Created program.
      * 1999/03/89 SimoTime, No changes to date.
      *
      *****************************************************************
       ENVIRONMENT DIVISION.
      *****************************************************************
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      *****************************************************************
      *    Data-structure for Title and Copyright...
      *    ------------------------------------------------------------
       01  SIM-TITLE.
           05  SIMT-1 pic X(30) value '* ABSUBRC2 Example of a called'.
           05  SIMT-2 pic X(30) value ' program calling ABEND member '.
           05  SIMT-3 pic X(20) value 'V1.0.00,   ABSUBRC2 '.
       01  SIM-START.
           05  SIMC-1 pic X(11) value '* ABSUBRC2 '.
           05  SIMC-2 pic X(19) value 'program is STARTING'.
           05  SIMC-3 pic X(30) value '                              '.
           05  SIMC-4 pic X(20) value '           ABSUBRC2 '.

      *****************************************************************
       PROCEDURE DIVISION.
           perform POST-STARTUP-INFO

           call 'SIMOAB01'

      *    If the SIMOAB01 has a STOP RUN then it will force the run
      *    time to ABEND and will not return to this point. This
      *    program will be cancelled along with the ABEND routine.

           display 'ABSUBRC2 - ' RETURN-CODE

           GOBACK.

      *****************************************************************
       POST-STARTUP-INFO.
           display SIM-TITLE(1:79)
           display SIM-START(1:79)
           exit.

The COBOL ABEND Routine
(Next) (Previous) (Table-of-Contents)

This program (SIMOAB01.CBL) was originally written to be used as a diagnostic aid for SimoTime consultants and programmers. Today, this program is used by a number of our customers as a diagnostic aid for programming debugging or for tracking the results of program behavior in both a development and production environment. The program has been tested on Windows/XP system with Net Express from Micro Focus.

Mainframe Utility, ILBOABN0, a Callable ABEND Routine
(Next) (Previous) (Table-of-Contents)

This is an IBM Mainframe utility program that may be explicitly called from an application program (usually COBOL) when an abnormal termination or unexpected condition is encountered in the program. This program provides mainframe dump information for the general purposes registers and memory area used by the program. With the release of Enterprise COBOL the replacement of ILBOABN0 is recommended. Micro Focus provides a version of ILBOABN0 with Mainframe Express and Enterprise Server.

The SimoAB01 program provided in this example may be renamed to ILBOABN0 (the COBOL source code is included) that dumps the call stack and identifies the program that called the ILBOABN0 program. This replacement program must be compiled using a Micro Focus dialect with the CHARSET(ASCII) directive.

You may  click here to view the source code  for the callable ABEND routine

Examples of Actual Program Failures
(Next) (Previous) (Table-of-Contents)

This section contains sample programs that will actually ABEND with a system error message.

Divide by Zero, RTS0048
(Next) (Previous) (Table-of-Contents)

The following program (AB0048C1.CBL) will cause a program ABEND (or ABnormal ENDing) when attempting to do an arithmetic calculation and a divide by zero. A JCL member (AB0048J1.JCL) is provided for the Mainframe environment and a Windows Command file (AB0048E1.CMD) is provided for the Windows, non-mainframe environment.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    AB0048C1.
       AUTHOR.        SIMOTIME ENTERPRISES.
      *****************************************************************
      * SOURCE MODULE AB0048C1.CBL
      *****************************************************************
      * AB0048C1 - Create an RTS0048 or Divide-by-Zero Error Condition.
      *
      * DESCRIPTION
      * -----------
      * This program will attempt an arithmetic calculation that does
      * a divide by zero.
      *
      *****************************************************************
      * MAINTENANCE
      * -----------
      * 1999/03/89 SimoTime, Created program.
      * 1999/03/89 SimoTime, No changes to date.
      *
      *****************************************************************
       ENVIRONMENT DIVISION.
      *****************************************************************
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      *****************************************************************
      *    Data-structure for Title and Copyright...
      *    ------------------------------------------------------------
       01  SIM-TITLE.
           05  SIMT-1 pic X(30) value '* AB0048C1 Attempt calculation'.
           05  SIMT-2 pic X(30) value ' with divide by zero          '.
           05  SIMT-3 pic X(20) value 'V07.05.24, AB0048C1 '.
       01  SIM-START.
           05  SIMC-1 pic X(11) value '* AB0048C1 '.
           05  SIMC-2 pic X(19) value 'program is STARTING'.
           05  SIMC-3 pic X(30) value '                              '.
           05  SIMC-4 pic X(20) value '           AB0048C1 '.

       01  TEST-GROUP.
           05  TEST-NUMBER     pic 9(5) comp-3.
       01  TEST-RESULT         pic 999.

      *****************************************************************
       PROCEDURE DIVISION.
           perform POST-STARTUP-INFO

           add 123 to ZERO giving TEST-NUMBER
           move ZERO to TEST-RESULT
           divide TEST-NUMBER by TEST-RESULT giving TEST-RESULT

      *    Should never get here...
           display '* AB0048C1 Should never get here...'
           GOBACK.

      *****************************************************************
       POST-STARTUP-INFO.
           display SIM-TITLE(1:79)
           display SIM-START(1:79)
           exit.

Numeric with Non-Numeric value, RTS0163 or S0C7
(Next) (Previous) (Table-of-Contents)

The following program (AB0163C1.CBL) will cause a program ABEND (or ABnormal ENDing) when attempting to do an arithmetic calculation using non-numeric values in numeric fields. A JCL member (AB0163J1.JCL) is provided for the Mainframe environment and a Windows Command file (AB0163E1.CMD) is provided for the Windows, non-mainframe environment.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    AB0163C1.
       AUTHOR.        SIMOTIME ENTERPRISES.
      *****************************************************************
      * SOURCE MODULE AB0163C1.CBL
      *****************************************************************
      * AB0163C1 - Create a S0C7 or RTS0163 Error Condition.
      *
      * DESCRIPTION
      * -----------
      * This program will attempts an arithmetic calculation using
      * a field that contains a non-numeric value.
      *
      *****************************************************************
      * MAINTENANCE
      * -----------
      * 1999/03/89 SimoTime, Created program.
      * 1999/03/89 SimoTime, No changes to date.
      *
      *****************************************************************
       ENVIRONMENT DIVISION.
      *****************************************************************
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      *****************************************************************
      *    Data-structure for Title and Copyright...
      *    ------------------------------------------------------------
       01  SIM-TITLE.
           05  SIMT-1 pic X(30) value '* AB0163C1 Attempt calculation'.
           05  SIMT-2 pic X(30) value ' with non-numeric value       '.
           05  SIMT-3 pic X(20) value 'V07.05.24, AB0163C1 '.
       01  SIM-START.
           05  SIMC-1 Pic X(11) value '* AB0163C1 '.
           05  SIMC-2 Pic X(19) value 'program is STARTING'.
           05  SIMC-3 Pic X(30) value '                              '.
           05  SIMC-4 Pic X(20) value '           AB0163C1 '.

       01  TEST-GROUP.
           05  TEST-NUMBER     pic 9(5) comp-3.
       01  TEST-RESULT         pic 999.

      *****************************************************************
       PROCEDURE DIVISION.
           perform POST-STARTUP-INFO

           move 'IJK' to TEST-GROUP
           add TEST-NUMBER to TEST-NUMBER giving TEST-RESULT

      *    Should never get here...
           display '* AB0163C1 Should never get here...'
           GOBACK.

      *****************************************************************
       POST-STARTUP-INFO.
           display SIM-TITLE(1:79)
           display SIM-START(1:79)
           exit.

Called Program not Found, RTS0173
(Next) (Previous) (Table-of-Contents)

The following program (AB0173C1.CBL) will cause a program ABEND (or ABnormal ENDing) when attempting to call a program that does not exists. A JCL member (AB0173J1.JCL) is provided for the Mainframe environment and a Windows Command file (AB0173E1.CMD) is provided for the Windows, non-mainframe environment.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    AB0173C1.
       AUTHOR.        SIMOTIME ENTERPRISES.
      *****************************************************************
      * SOURCE MODULE AB0173C1.CBL
      *****************************************************************
      * AB0173C1 - Create an RTS0173 Error Condition.
      *
      * DESCRIPTION
      * -----------
      * This program will attempta call to a program that does not
      * exist.
      *
      *****************************************************************
      * MAINTENANCE
      * -----------
      * 1999/03/89 SimoTime, Created program.
      * 1999/03/89 SimoTime, No changes to date.
      *
      *****************************************************************
       ENVIRONMENT DIVISION.
      *****************************************************************
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      *****************************************************************
      *    Data-structure for Title and Copyright...
      *    ------------------------------------------------------------
       01  SIM-TITLE.
           05  SIMT-1 pic X(30) value '* AB0173C1 Attempt a call to a'.
           05  SIMT-2 pic X(30) value ' non-existing program         '.
           05  SIMT-3 pic X(20) value 'V07.05.24, AB0173C1 '.
       01  SIM-START.
           05  SIMC-1 pic X(11) value '* AB0173C1 '.
           05  SIMC-2 pic X(19) value 'program is STARTING'.
           05  SIMC-3 pic X(30) value '                              '.
           05  SIMC-4 pic X(20) value '           AB0173C1 '.

       01  PROGRAM-NAME        pic X(8) value is SPACES.

      *****************************************************************
       PROCEDURE DIVISION.
           perform POST-STARTUP-INFO

           move 'NOTTHERE' to PROGRAM-NAME
           call PROGRAM-NAME

      *    Should never get here...
           display '* AB0173C1 Should never get here...'
           GOBACK.

      *****************************************************************
       POST-STARTUP-INFO.
           display SIM-TITLE(1:79)
           display SIM-START(1:79)
           exit.

Compile the Programs, the Directives
(Next) (Previous) (Table-of-Contents)

The following shows the compiler directives used in the Micro Focus environment.

DIALECT"OS390"
CHARSET"ASCII"
IBMCOMP
NOTRUNC
NOOPTIONAL-FILE
SHARE-OUTDD
list()
settings
ANIM
HOSTNUMMOVE
HOSTNUMCOMPARE
NOSIGNFIXUP
HOSTARITHMETIC
CHECKNUM 

Summary
(Next) (Previous) (Table-of-Contents)

The purpose of this program is to provide a callable ABEND (or abnormal termination) routine that will display the call stack in a Micro Focus environment.

Software Agreement and Disclaimer
(Next) (Previous) (Table-of-Contents)

Permission to use, copy, modify and distribute this software for any commercial purpose requires a fee to be paid to Simotime Enterprises. Once the fee is received by SimoTime the latest version of the software will be delivered and a license will be granted for use within an enterprise, provided the SimoTime copyright notice appear on all copies of the software. The SimoTime name or Logo may not be used in any advertising or publicity pertaining to the use of the software without the written permission of SimoTime Enterprises.

Permission to use, copy, modify and distribute this software for a non-commercial purpose and without fee is hereby granted, provided the SimoTime copyright notice appear on all copies of the software. The SimoTime name or Logo may not be used in any advertising or publicity pertaining to the use of the software without the written permission of SimoTime Enterprises.

SimoTime Enterprises makes no warranty or representations about the suitability of the software for any purpose. It is provided "AS IS" without any express or implied warranty, including the implied warranties of merchantability, fitness for a particular purpose and non-infringement. SimoTime Enterprises shall not be liable for any direct, indirect, special or consequential damages resulting from the loss of use, data or projects, whether in an action of contract or tort, arising out of or in connection with the use or performance of this software.

Downloads and Links to Similar Pages
(Next) (Previous) (Table-of-Contents)

You may download this example at http://www.simotime.com/sim4dzip.htm#COBOLAbend01 or view the complete list of SimoTime Examples at http://www.simotime.com/sim4dzip.htm.

Note: You must be attached to the Internet to download a Z-Pack or view the list.

The  Snap Dump  routine may be useful when analyzing abnormal or unexpected processing events.

The hexadecimal dump of the parameter-buffer uses the same technique as describe in another SimoTime example that describes the dumping of a data string using COBOL. The name of the member that does the actual hexadecimal dump is called SimoDUMP. A copy file (PASSDUMP.CPY) is provided for defining the pass area.

The SimoZAPS Utility Program has the capability of generating a COBOL program that will do the conversion of sequential and VSAM (KSDS) files between EBCDIC and ASCII. SimoZAPS can also read a sequential file in EBCDIC format and create an ASCII/CRLF file or VSAM KSDS file in ASCII format. The conversion tables may be viewed or modified to meet unique requirements. The Hexcess/2 function provides the capability of viewing, finding or patching the contents of a file in hexadecimal.

This item will provide a link to  an ASCII or EBCDIC translation table. A column for decimal, hexadecimal and binary is also included.

To review all the information available on this site start at  The SimoTime Home Page .

Glossary of Terms
(Next) (Previous) (Table-of-Contents)

Check out  The SimoTime Glossary  for a list of terms and definitions used in the documents provided by SimoTime.

Comments or Suggestions
(Next) (Previous) (Table-of-Contents)

If you have any questions, suggestions or comments please call or send an e-mail to: helpdesk@simotime.com

We appreciate your comments and feedback.

About SimoTime Enterprises, LLC
(Next) (Previous) (Table-of-Contents)

Founded in 1987, SimoTime Enterprises is a privately owned, Limited Liability Corporation located in Novato, California. We specialize in the creation and deployment of business applications using new or existing technologies and services. We have a team of individuals that understand the broad range of technologies being used in today's environments. This includes the smallest thin client using the Internet and the very large mainframe systems. There is more to making the Internet work for your company's business than just having a nice looking WEB site. It is about combining the latest technologies and existing technologies with practical business experience. It's about the business of doing business and looking good in the process. Quite often, to reach larger markets or provide a higher level of service to existing customers it requires the newer Internet technologies to work in a complimentary manner with existing corporate mainframe systems. Whether you want to use the Internet to expand into new market segments or as a delivery vehicle for existing business functions simply give us a call or check the web site at http://www.simotime.com


Return-to-Top
Copyright © 1987-2008 SimoTime Enterprises, LLC  All Rights Reserved
When technology complements business
http://www.simotime.com
Version 07.01.18