COBOL calling Assembler
Link & Load of Non-Executable Member
  Table of Contents  v-24.01.01 - asmmix01.htm 
  Introduction
  Execute
  JCL Member
  Expected Result from Job Execution
  SYSOUT from COBOL Program
  Console Output from Assembler Programs
  Prepare
  Prepare, WIP2
  Technical Details
  The COBOL Program
  Assembler Source Code
  Primary Program
  Secondary Program
  Non-Executable Load Member
  Control File for a Composite Link
  Summary
  Software Agreement and Disclaimer
  Downloads and Links
  Current Server or Internet Access
  Internet Access Required
  Glossary of Terms
  Contact or Feedback
  Company Overview
The SimoTime Home Page 

Table of Contents Previous Section Next Section Introduction

This suite of programs provides an example of how a mainframe COBOL program can call a Mainframe Assembler program that is a composite link of multiple Assembler members. The Assembler program does a load of a non-executable member that is a data table. The contents of the table are displayed to the console using a Write-To-Operator (WTO). The assembler programs are written in IBM Mainframe Assembler, they will compile using Assembler/H or HLASM. A JCL member is provided to run the job as an MVS batch job on an IBM mainframe or as a project with Micro Focus Mainframe Express (MFE) running on a PC with Windows.

This program may serve as a tutorial for programmers that are new to 370 Assembler and as a reference for experienced programmers.


We have made a significant effort to ensure the documents and software technologies are correct and accurate. We reserve the right to make changes without notice at any time. The function delivered in this version is based upon the enhancement requests from a specific group of users. The intent is to provide changes as the need arises and in a timeframe that is dependent upon the availability of resources.

Copyright © 1987-2024
SimoTime Technologies and Services
All Rights Reserved

Table of Contents Previous Section Next Section Execute

This suite of programs originally executed on an IBM Mainframe System.

Table of Contents Previous Section Next Section JCL Member

The following ASMMIXJ1.jcl is the JCL Member that used to run the job.

//ASMMIXJ1 JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//*       ASMMIXJ1.JCL - a JCL Member for Batch Job Processing        *
//*       This JCL Member is provided by SimoTime Technologies        *
//*           (C) Copyright 1987-2019 All Rights Reserved             *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Text   - COBOL calls ASSEMBLER that is created with composite link
//* Author - SimoTime Technologies
//* Date   - January 01, 1989
//*
//* This set of programs illustrate the use a COBOL program that calls
//* an Assembler routine that is a composite link of multiple assembler
//* programs.
//*
//* The DD statement for SYSOUT is required by this example. The
//* COBOL program may be compiled using the SYSOUT directive. However,
//* without the DD statement for SYSOUT an RTS173 or RTS227 may occur.
//*
//* This set of programs will run on a mainframe under MVS or on
//* a Personal Computer running Windows and Mainframe Express by
//* Micro Focus.
//*
//*   ************
//*   * ASMMIXJ1 *
//*   ********jcl*
//*        *
//*        *
//*   ************     ************
//*   * ASMMIXC1 *-----* DISPLAY  *
//*   ********cbl*     ************
//*        *   *
//*        *   *       ************     ************
//*        *   *-CALL--* ASMMIXA1 *-----*   WTO    *
//*        *           ********mlc*     ************
//*        *                *
//*        *                *           ************     ************
//*        *                *---VCON----* ASMMIXA6 *-----*   WTO    *
//*        *                *           ********mlc*     ************
//*        *                *
//*        *                *           ************     ************
//*        *                *---LOAD----* ASMMIXA8 *-----*   WTO    *
//*        *                            ********mlc*     ************
//*        *
//*   ************
//*   *   EOJ    *
//*   ************
//*
//* *******************************************************************
//* Step 1 of 1, This is a single step job.
//*
//ASMMIXS1 EXEC PGM=ASMMIXC1
//STEPLIB  DD  DSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR
//SYSOUT   DD  SYSOUT=*
//*

Table of Contents Previous Section Next Section Expected Result from Job Execution

Table of Contents Previous Section Next Section SYSOUT from COBOL Program

The following is the expected result that is posted to SYSOUT by the mainline COBOL program that calls the Assembler program.

* ASMMIXC1 Call Assembler with Composite Link v08.06.05 http://www.simotime.com
* ASMMIXC1 Copyright 1987-2012 --- SimoTime Enterprises --- All Rights Reserved
* ASMMIXC1 Thank you for using this software provided from SimoTime Enterprises
* ASMMIXC1 Please send all inquires or suggestions to the helpdesk@simotime.com

Table of Contents Previous Section Next Section Console Output from Assembler Programs

The following is the expected result that is posted to the JES Spool by the mainline Assembler programs. In addition to the standard JES output it contains the information posted by the Assembler programs using the Write-To-Operator (WTO).

     *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
     *-*-*  Micro Focus ESJCL  EBCDIC JES2 Version ED20.00.00_012                              *-*-*
     *-*-*  Copyright (C) 1997-2012 Micro Focus. All rights reserved.                          *-*-*
     *-*-*  Job: 03706 Name: ASMMIXJ1 User: mfuser   Date: 07/26/12 Time: 16:22:11             *-*-*
     *-*-*  File: $TXRFDIR/T000000032.T                                                        *-*-*
     *-*-*  DSN:                                                                               *-*-*
     *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

   1 //ASMMIXJ1 JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
   2 //* *******************************************************************
   3 //*        This program is provided by: SimoTime Enterprises          *
   4 //*           (C) Copyright 1987-2012 All Rights Reserved             *
   5 //*             Web Site URL:   http://www.simotime.com               *
   6 //*                   e-mail:   helpdesk@simotime.com                 *
   7 //* *******************************************************************
   8 //*
   9 //* Text   - COBOL calls ASSEMBLER that is created with composite link
  10 //* Author - SimoTime Enterprises
  11 //* Date   - January 01, 1989
  12 //*
  13 //* This set of programs illustrate the use a COBOL program that calls
  14 //* an Assembler routine that is a composite link of multiple assembler
  15 //* programs.
  16 //*
  17 //* The DD statement for SYSOUT is required by this example. The
  18 //* COBOL program may be compiled using the SYSOUT directive. However,
  19 //* without the DD statement for SYSOUT an RTS173 or RTS227 may occur.
  20 //*
  21 //* This set of programs will run on a mainframe under MVS or on
  22 //* a Personal Computer running Windows and Mainframe Express by
  23 //* Micro Focus.
  24 //*
  25 //*   ************
  26 //*   * ASMMIXJ1 *
  27 //*   ********jcl*
  28 //*        *
  29 //*        *
  30 //*   ************     ************
  31 //*   * ASMMIXC1 *-----* DISPLAY  *
  32 //*   ********cbl*     ************
  33 //*        *   *
  34 //*        *   *       ************     ************
  35 //*        *   *-CALL--* ASMMIXA1 *-----*   WTO    *
  36 //*        *           ********mlc*     ************
  37 //*        *                *
  38 //*        *                *           ************     ************
  39 //*        *                *---VCON----* ASMMIXA6 *-----*   WTO    *
  40 //*        *                *           ********mlc*     ************
  41 //*        *                *
  42 //*        *                *           ************     ************
  43 //*        *                *---LOAD----* ASMMIXA8 *-----*   WTO    *
  44 //*        *                            ********mlc*     ************
  45 //*        *
  46 //*   ************
  47 //*   *   EOJ    *
  48 //*   ************
  49 //*
  50 //* *******************************************************************
  51 //* Step   1 of 1  This is a single step job.
  52 //*
  53 //ASMMIXS1 EXEC PGM=ASMMIXC1
  54 //STEPLIB  DD  DSN=SIMOTIME.DEMO.LOADLIB1,DISP=SHR
  55 //SYSOUT   DD  SYSOUT=*
  56 //*
**** JCLCM0180I Job ready for execution.
**** Execution on Server SIMOBATE  Process       4444

     16:22:11 JCLCM0188I JOB  STARTED

     16:22:11 JCLCM0190I STEP STARTED   ASMMIXS1
     16:22:11 JCLCM0199I Program ASMMIXC1 is COBOL VSC2  ASCII  Big-Endian    NOAMODE.
     *MSG * ASMMIXA1 is starting, example of a Composite LINK
     *MSG * ASMMIXA6 is starting, example of VCON BASR combo.
     *MSG * ASMMIXA6 is complete, example of VCON BASR combo.
     *MSG * ASMMIXA1 is complete, example of a Composite LINK
     *MSG * ASMMIXA1 load ASMMIXA8, a non-executable member
     *MSG * ASMMIXA1 ASMMIXA8, Table Entry 001
     *MSG * ASMMIXA1 ASMMIXA8, Table Entry 002
     *MSG * ASMMIXA1 ASMMIXA8, Table Entry 003
     *MSG * ASMMIXA1 ASMMIXA8, Table Entry 004
     *MSG * ASMMIXA1 ASMMIXA8, Table Entry 005
     *MSG * ASMMIXA1 ASMMIXA8, Table Entry 006
     *MSG * ASMMIXA1 ASMMIXA8, Table Entry 007
     *MSG * ASMMIXA1 ASMMIXA8, Table Entry 008
     *MSG * ASMMIXA1 ASMMIXA8, Table Entry 009
     *MSG * ASMMIXA1 ASMMIXA8, Table Entry 010
     *MSG * ASMMIXA1 is complete, normal End of Job
     SIMOTIME.DEMO.LOADLIB1                                            STEPLIB
                                                                        DEFERRED
     MFE2012.S0726.S162211.J03706.D00001.SYSOUT                        SYSOUT
      C:\SIMOSAM1\DEVL\DATA\SPOOL\MFE2*162211.J03706.D00001.SYSOUT.DAT  SPOOLED
---> 16:22:15 JCLCM0191I STEP ENDED     ASMMIXS1 - COND CODE 0000

---> 16:22:15 JCLCM0182I JOB  ENDED   - COND CODE 0000

Table of Contents Previous Section Next Section Prepare

WIP1

Table of Contents Previous Section Next Section Prepare, WIP2

WIP2

Table of Contents Previous Section Next Section Technical Details

This section provides additional details about the programs and control files that are used in this suite of programs.

Table of Contents Previous Section Next Section The COBOL Program

The following ASMMIXC1.cbl is the source code for the COBOL program.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    ASMMIXC1.
       AUTHOR.        SIMOTIME TECHNOLOGIES.
      *****************************************************************
      * Copyright (C) 1987-2019 SimoTime Technologies.                *
      *                                                               *
      * All rights reserved.  Unpublished, all rights reserved under  *
      * copyright law and international treaty.  Use of a copyright   *
      * notice is precautionary only and does not imply publication   *
      * or disclosure.                                                *
      *                                                               *
      * Permission to use, copy, modify and distribute this software  *
      * for any 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    *
      * Technologies.                                                 *
      *                                                               *
      * Permission to use, copy, modify and distribute this software  *
      * for any commercial purpose requires a fee to be paid to       *
      * SimoTime Technologies. 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           *
      * Technologies.                                                 *
      *                                                               *
      * SimoTime Technologies makes no warranty or representations    *
      * about the suitability of the software for any purpose. It is  *
      * provided "AS IS" without any expressed or implied warranty,   *
      * including the implied warranties of merchantability, fitness  *
      * for a particular purpose and non-infringement. SimoTime       *
      * Technologies 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                                  *
      *                                                               *
      * SimoTime Technologies                                         *
      * 15 Carnoustie Drive                                           *
      * Novato, CA 94949-5849                                         *
      * 415.883.6565                                                  *
      *                                                               *
      * RESTRICTED RIGHTS LEGEND                                      *
      * Use, duplication, or disclosure by the Government is subject  *
      * to restrictions as set forth in subparagraph (c)(1)(ii) of    *
      * the Rights in Technical Data and Computer Software clause at  *
      * DFARS 52.227-7013 or subparagraphs (c)(1) and (2) of          *
      * Commercial  Computer Software - Restricted Rights  at 48      *
      * CFR 52.227-19, as applicable.  Contact SimoTime Technologies, *
      * 15 Carnoustie Drive, Novato, CA 94949-5849.                   *
      *                                                               *
      *****************************************************************
      *      This program is provided by SimoTime Technologies        *
      *        Our e-mail address is: helpdesk@simotime.com           *
      *     Also, visit our Web Site at http://www.simotime.com       *
      *****************************************************************
      *
      *****************************************************************
      * Source Member: ASMMIXC1.CBL
      * Copy Files:    PASSBITS.CPY
      * Calls/Load:    ASMMIXA1, ASMMIXA6, ASMMIXA8
      *****************************************************************
      *
      * ASMMIXC1 - Call ASMMIXA1 to convert between bits and bytes.
      *
      * CALLING PROTOCOL
      * ----------------
      * Use standard procedure to RUN or ANIMATE.
      *
      * DESCRIPTION
      * -----------
      * This program will call a COBOL routine to access a
      * routine to convert between bits and bytes.
      *
      *   ************
      *   * ASMMIXJ1 *
      *   ********jcl*
      *        *
      *        *
      *   ************    ************
      *   * ASMMIXC1 *----* DISPLAY  *
      *   ********cbl*    ************
      *        *   *
      *        *   *      ************    ************
      *        *   *-CALL-* ASMMIXA1 *----*   WTO    *
      *        *          ********mlc*    ************
      *        *               *
      *        *               *          ************   ************
      *        *               *---VCON---* ASMMIXA6 *---*   WTO    *
      *        *               *          ********mlc*   ************
      *        *               *
      *        *               *          ************   ************
      *        *               *---LOAD---* ASMMIXA8 *---*   WTO    *
      *        *                          ********mlc*   ************
      *        *
      *   ************
      *   *   EOJ    *
      *   ************
      *
      * This program calls ASMMIXA1.
      *
      * ASMMIXA1 calls ASMMIXA6 and loads ASMMIXA8.
      *
      *****************************************************************
      *
      * MAINTENANCE
      * -----------
      * 1989/02/27 Simmons, Created program.
      * 1997/03/17 Simmons, Migrate to Micro Focus MFE.
      *
      *****************************************************************
      *
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      *****************************************************************
      *    Data-structure for Title and Copyright...
      *    ------------------------------------------------------------
       01  SIM-TITLE.
           05  T1 pic X(11) value '* ASMMIXC1 '.
           05  T2 pic X(34) value 'Call Assembler with Composite Link'.
           05  T3 pic X(10) value ' v08.06.05'.
           05  T4 pic X(24) value ' http://www.simotime.com'.
       01  SIM-COPYRIGHT.
           05  C1 pic X(11) value '* ASMMIXC1 '.
           05  C2 pic X(20) value 'Copyright 1987-2019 '.
           05  C3 pic X(28) value '   SimoTime Technologies    '.
           05  C4 pic X(20) value ' All Rights Reserved'.

       01  SIM-THANKS-01.
           05  C1 pic X(11) value '* ASMMIXC1 '.
           05  C2 pic X(32) value 'Thank you for using this program'.
           05  C3 pic X(32) value ' provided from SimoTime Technolo'.
           05  C4 pic X(04) value 'gies'.

       01  SIM-THANKS-02.
           05  C1 pic X(11) value '* ASMMIXC1 '.
           05  C2 pic X(32) value 'Please send all inquires or sugg'.
           05  C3 pic X(32) value 'estions to the helpdesk@simotime'.
           05  C4 pic X(04) value '.com'.

      *****************************************************************
      *    Buffer used for posting messages to the console.
      *    ------------------------------------------------------------
       01  MESSAGE-BUFFER.
           05  MESSAGE-HEADER      pic X(11)   value '* ASMMIXC1 '.
           05  MESSAGE-TEXT        pic X(68).

      *****************************************************************
       PROCEDURE DIVISION.

           perform Z-POST-COPYRIGHT

           call 'ASMMIXA1'

           perform Z-THANK-YOU.

           move ZERO to RETURN-CODE

           GOBACK.

      *****************************************************************
      * The following Z-Routines perform administrative tasks         *
      * for this program.                                             *
      *****************************************************************

      *****************************************************************
       Z-POST-COPYRIGHT.
           display SIM-TITLE
           display SIM-COPYRIGHT
           exit.

      *****************************************************************
       Z-POST-MESSAGE.
           display MESSAGE-BUFFER
           move SPACES to MESSAGE-TEXT
           exit.

      *****************************************************************
       Z-THANK-YOU.
           display SIM-THANKS-01
           display SIM-THANKS-02
           exit.
      *****************************************************************
      *      This example is provided by SimoTime Technologies        *
      *        Our e-mail address is: helpdesk@simotime.com           *
      *     Also, visit our Web Site at http://www.simotime.com       *
      *****************************************************************

Table of Contents Previous Section Next Section Assembler Source Code

The following three sub-section items provide additional details about the Assembler programs that are used in this suite of programs.

Table of Contents Previous Section Next Section Primary Program

The following ASMMIXA1.mlc is the source code for the primary Assembler program.

ASMMIXA1 CSECT
***********************************************************************
*             ASMMIXA1.MLC - This is an HLASM Program                 *
*                 Provided by SimoTime Technologies                   *
*           (C) Copyright 1987-2019 All Rights Reserved               *
*              Web Site URL:   http://www.simotime.com                *
*                    e-mail:   helpdesk@simotime.com                  *
***********************************************************************
*                                                                     *
* Created: 1987/06/01, Simmons                                        *
* Changed: 1992/03/17, Simmons, port to Micro Focus Assembler         *
*                                                                     *
***********************************************************************
*                                                                     *
* This program will run on an IBM Mainframe using MVS or a PC using   *
* Micro Focus Mainframe Express, version 3.0 or later (MFE) with      *
* the Assembler Option.                                               *
*                                                                     *
* Using the Micro Focus Animation You can immediately see the results *
* of each instruction execution. This is a very effective way to      *
* become familiar with how these techniques work.                     *
*                                                                     *
***********************************************************************
*
R0       EQU   0
R1       EQU   1
R2       EQU   2
R3       EQU   3
R4       EQU   4
R5       EQU   5
R6       EQU   6
R7       EQU   7
R8       EQU   8
R9       EQU   9
R10      EQU   10
R11      EQU   11
R12      EQU   12
R13      EQU   13
R14      EQU   14
R15      EQU   15
*
* ------------------------------------------------------------------- *
         SAVE (14,12)
         BALR  12,0
         USING *,12
         ST    R13,SAVREG13
*
         WTO   '* ASMMIXA1 is starting, example of a Composite LINK'
*
         L     R15,ASMMIXV6          * Get addr of entry for ASMMIXA6
         LA    R13,SAVEAREA          * Set up new save area
         BASR  R14,R15               * Branch to ASMMIXA6
*
         WTO   '* ASMMIXA1 is complete, example of a Composite LINK'
*
*---------------------------------------------------------------------*
* The following routine is an example of loading a non-executable
* member containing table data.
* The load address of the member is returned in register zero.
*
         WTO   '* ASMMIXA1 load ASMMIXA8, a non-executable member   '
         LOAD  EP=ASMMIXA8
         LTR   R15,R15
         BNZ   LOADFAIL
* The member is now loaded, the following will prepare the table data
* for processing.
         LR    R5,R0                   * REG-5 for Table Pointer ADDR
         L     R2,0(,R5)               * REG-2 for Number of Elements
         L     R3,4(,R5)               * REG-3 for Length of Element
         LA    R5,8(,R5)               * Increment REG-5 by 8
         MVI   WTOTEXT,X'40'           * Move a space to 1st position
         MVC   WTOTEXT+1(64),WTOTEXT   * Propagate space through field
* The following will perform a processing loop and display all the
* table elements on the console.
BCTLOOP  EQU   *
         MVC   WTOTEXT(32),0(R5)       * Move table entry to WTO Buffer
         WTO   MF=(E,WTOBLOCK)
         LA    R5,32(R5)               * Incr to next table entry
         BCT   R2,BCTLOOP              * Loop until REG-2 goes to ZERO
*
*---------------------------------------------------------------------*
EOJAOK   EQU   *
         WTO   '* ASMMIXA1 is complete, normal End of Job           '
         L     R13,SAVREG13
         RETURN (14,12),RC=0
*
ASMMIXV6 DC    V(ASMMIXA6)
*
* ------------------------------------------------------------------- *
* ABENDing, return to the calling program with a non-ZERO Return Code.
*
EORNOK  EQU   *
         LA    R15,16                * Set return code to 16 or x'10'
         RETURN (14,12),RC=(15)
*
***********************************************************************
* ABENDING WITH RETURN-CODE OF 4                                      *
* RETURN to the CALLING PROGRAM OR OPERATING SYSTEM                   *
*
LOADFAIL EQU   *
         WTO   '* ASMASMA2 is abending...Load Failure...RC=0004'
         L     R13,SAVREG13
         RETURN (14,12),RC=8
*
***********************************************************************
* Define Constants and EQUates                                        *
*
* The following is a user-coded WTO buffer.
*
         DS    0H            * INSURE HALF-WORD ALIGNMENT
WTOBLOCK EQU   *
         DC    H'80'         * For WTO, length of WTO buffer...
         DC    H'0'                     should be binary zeroes...
         DC    CL11'* ASMMIXA1 '
WTOTEXT  DC    CL65'WTO with user-coded buffer...'
         DS    0F            * Force alignment
*
SAVEAREA EQU   *
         DC    F(0)
         DC    F(0)
SAVREG13 DC    F(0)
         DC    15F(0)        * Used by SAVE/RETURN functions
*
         END

Table of Contents Previous Section Next Section Secondary Program

The following ASMMIXA6.mlc is the source code for the secondary Assembler program that is compiled as an object member and then linked into a single executable member with the primary Assembler program.

ASMMIXA6 CSECT
***********************************************************************
*             ASMMIXA6.MLC - This is an HLASM Program                 *
*                 Provided by SimoTime Technologies                   *
*           (C) Copyright 1987-2019 All Rights Reserved               *
*              Web Site URL:   http://www.simotime.com                *
*                    e-mail:   helpdesk@simotime.com                  *
***********************************************************************
*                                                                     *
* Created: 1993/06/01, Simmons                                        *
* Changed: 1993/06/01, Simmons, no changes to date...                 *
*                                                                     *
***********************************************************************
*                                                                     *
* This program will run on an IBM Mainframe using MVS or a PC using   *
* Micro Focus Mainframe Express, version 2.5 or later (MFE) with      *
* the Assembler Option.                                               *
*                                                                     *
* Using the Micro Focus Animation you can immediately see the results *
* of each instruction execution. This is a very effective way to      *
* become familiar with how these techniques work.                     *
*                                                                     *
***********************************************************************
         SAVE  (14,12)
         BALR  12,0              PREPARE A BASE REGISTER
         USING *,12              ESTABLISH BASE REGISTER
*
         WTO   '* ASMMIXA6 is starting, example of VCON BASR combo.'
*
*---------------------------------------------------------------------*
EOJAOK   EQU   *
         WTO   '* ASMMIXA6 is complete, example of VCON BASR combo.'
         RETURN (14,12),RC=0
*
***********************************************************************
* ABENDING WITH RETURN-CODE OF 8                                      *
* RETURN to the CALLING PROGRAM OR OPERATING SYSTEM                   *
*
ABEND08  EQU   *
         WTO   '* ASMMIXA6 is ABENDING...RC=0008'
         RETURN (14,12),RC=8
*
***********************************************************************
* Define Constants and EQUates                                        *
*
         DS    0F            * Force alignment
*
SAVEAREA EQU   *
         DC    F(0)
         DC    F(0)
SAVREG13 DC    F(0)
         DC    15F(0)        * Used by SAVE/RETURN functions
*
* Register EQUates
*
R0       EQU   0
R1       EQU   1
R2       EQU   2
R3       EQU   3
R4       EQU   4
R5       EQU   5
R6       EQU   6
R7       EQU   7
R8       EQU   8
R9       EQU   9
R10      EQU   10
R11      EQU   11
R12      EQU   12
R13      EQU   13
R14      EQU   14
R15      EQU   15
**
         END

Table of Contents Previous Section Next Section Non-Executable Load Member

The following ASMMIXA8.mlc is the source code for the non-executable Assembler member. This is a data table that is loaded into memory by the primary Assembler program.

ASMMIXA8 CSECT
***********************************************************************
*             ASMMIXA8.MLC - This is an HLASM Program                 *
*                 Provided by SimoTime Technologies                   *
*           (C) Copyright 1987-2019 All Rights Reserved               *
*              Web Site URL:   http://www.simotime.com                *
*                    e-mail:   helpdesk@simotime.com                  *
***********************************************************************
         DC    AL4(10)
         DC    AL4(32)
         DC    CL32'ASMMIXA8, Table Entry 001      '
         DC    CL32'ASMMIXA8, Table Entry 002      '
         DC    CL32'ASMMIXA8, Table Entry 003      '
         DC    CL32'ASMMIXA8, Table Entry 004      '
         DC    CL32'ASMMIXA8, Table Entry 005      '
         DC    CL32'ASMMIXA8, Table Entry 006      '
         DC    CL32'ASMMIXA8, Table Entry 007      '
         DC    CL32'ASMMIXA8, Table Entry 008      '
         DC    CL32'ASMMIXA8, Table Entry 009      '
         DC    CL32'ASMMIXA8, Table Entry 010      '
         END

Table of Contents Previous Section Next Section Control File for a Composite Link

The following ASMMIXA1.lin is the control file (or Link Deck) that is used for the composite link of ASMMIXA1 and ASMMIXA6 into a single executable member.

 INCLUDE SYSLIB(ASMMIXA1)
 INCLUDE SYSLIB(ASMMIXA6)
 ENTRY ASMMIXA1
 NAME ASMMIXA1(R)

Table of Contents Previous Section Next Section Summary

This suite of programs provides an example of how a mainframe COBOL program can call a Mainframe Assembler program that is a composite link of multiple Assembler members. The Assembler program does a load of a non-executable member that is a data table. This document may be used to assist as a tutorial for new programmers or as a quick reference for experienced programmers.

In the world of programming there are many ways to solve a problem. This documentation and software were developed and tested on systems that are configured for a SIMOTIME environment based on the hardware, operating systems, user requirements and security requirements. Therefore, adjustments may be needed to execute the jobs and programs when transferred to a system of a different architecture or configuration.

SIMOTIME Services has experience in moving or sharing data or application processing across a variety of systems. For additional information about SIMOTIME Services or Technologies please contact us using the information in the  Contact or Feedback  section of this document.

Table of Contents Previous Section Next Section Software Agreement and Disclaimer

Permission to use, copy, modify and distribute this software, documentation or training material for any purpose requires a fee to be paid to SimoTime Technologies. Once the fee is received by SimoTime the latest version of the software, documentation or training material 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 Technologies.

SimoTime Technologies makes no warranty or representations about the suitability of the software, documentation or learning material for any purpose. It is provided "AS IS" without any expressed or implied warranty, including the implied warranties of merchantability, fitness for a particular purpose and non-infringement. SimoTime Technologies 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, documentation or training material.

Table of Contents Previous Section Next Section Downloads and Links

This section includes links to documents with additional information that are beyond the scope and purpose of this document. The first group of documents may be available from a local system or via an internet connection, the second group of documents will require an internet connection.

Note: A SimoTime License is required for the items to be made available on a local system or server.

Table of Contents Previous Section Next Section Current Server or Internet Access

The following links may be to the current server or to the Internet.

Link to Internet   Link to Server   Explore the Assembler Connection for more examples of mainframe Assembler programming techniques and sample code.

Link to Internet   Link to Server   Explore the JCL Connection for more examples of JCL functionality with programming techniques and sample code.

Link to Internet   Link to Server   Explore an Extended List of Software Technologies that are available for review and evaluation. The software technologies (or Z-Packs) provide individual programming examples, documentation and test data files in a single package. The Z-Packs are usually in zip format to reduce the amount of time to download.

Link to Internet   Link to Server   Explore The ASCII and EBCDIC Translation Tables. These tables are provided for individuals that need to better understand the bit structures and differences of the encoding formats.

Link to Internet   Link to Server   Explore The File Status Return Codes that are used to interpret the results of accessing VSAM data sets and/or QSAM files.

Table of Contents Previous Section Next Section Internet Access Required

The following links will require an internet connect.

This suite of programs and documentation is available to download for review and evaluation purposes. Other uses will require a SimoTime Software License. Link to an Evaluation zPAK Option that includes the program members, documentation and control files.

A good place to start is The SimoTime Home Page for access to white papers, program examples and product information. This link requires an Internet Connection

Explore The Micro Focus Web Site for more information about products (including Micro Focus COBOL) and services available from Micro Focus. This link requires an Internet Connection.

Table of Contents Previous Section Next Section Glossary of Terms

Link to Internet   Link to Server   Explore the Glossary of Terms for a list of terms and definitions used in this suite of documents and white papers.

Table of Contents Previous Section Next Section Contact or Feedback

This document was created and is maintained by SimoTime Technologies. If you have any questions, suggestions, comments or feedback please use the following contact information.

1. Send an e-mail to our helpdesk.
1.1. helpdesk@simotime.com.
2. Our telephone numbers are as follows.
2.1. 1 415 763-9430 office-helpdesk
2.2. 1 415 827-7045 mobile

 

We appreciate hearing from you.

Table of Contents Previous Section Next Section Company Overview

SimoTime Technologies was founded in 1987 and is a privately owned company. 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. Our customers include small businesses using Internet technologies to corporations using very large mainframe systems.

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 complementary manner with existing corporate mainframe systems. We specialize in preparing applications and the associated data that are currently residing on a single platform to be distributed across a variety of platforms.

Preparing the application programs will require the transfer of source members that will be compiled and deployed on the target platform. The data will need to be transferred between the systems and may need to be converted and validated at various stages within the process. SimoTime has the technology, services and experience to assist in the application and data management tasks involved with doing business in a multi-system environment.

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
COBOL calling Assembler, Composite Link and Load of Non-Executable Member
Copyright © 1987-2024
SimoTime Technologies and Services
All Rights Reserved
When technology complements business
http://www.simotime.com