Menu Screens
 CICS Application running with Micro Focus
http://www.simotime.com
When technology complements business    Copyright © 1987-2010  SimoTime Enterprises  All Rights Reserved
  Table of Contents Version 10.03.20 
  Introduction
  Menu Programs
 
  The Main Menu
 
  Option 1, Customer Inquiry
  Option 2, Item Inquiry
  Option 3, Customer Update
  Option 8, Application Management Utility Programs
  The Utility Menu
 
  Option 1, Customer Inquiry (Hex-Dump Mode)
  Option 5, File Status Codes
  Option 6, File Properties, Data File Information
  Option 7, Application Properties, Source Code Information
  Option 8, Return to Main Menu
  Technical Details
 
  Source Code for Main Menu Program
  Source Code for Utilities Menu Program
  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 example uses a a suite of COBOL programs and BMS mapsets to display menu screens and transfer control to programs that will perform various application and utilitarian functions such as links between menu programs and data file inquiry or update programs. The programs use command level CICS statements and display information to a 3270 terminal or terminal emulator. The programs run on an IBM Mainframe System with CICS or a Microsoft Windows System with Micro Focus Server for Mainframe Migration.

Menu Programs
(Next) (Previous) (Table-of-Contents)

To display the menu of options on a 3270 display a COBOL program and a BMS screen is used. The Main Menu Screen contains a list of options. Once an option is selected an EXEC CICS LINK is used to pass control to the appropriate program and perform the requested function.

The Main Menu
(Next) (Previous) (Table-of-Contents)

The main menu provides links to the data file inquiry and update programs for the Customer Master File and the Item Master File plus a link to the menu for additional utility programs. The transaction identifier (or Tran ID) to display the main menu is "OPT1" and the program is "MN1FMS". The following shows the main menu screen.

 MN1FMS1                 Data Base Management System                 2009/08/04
 STOA                          Menu of Options                      17:04:58:73
                                Version 01.00


                        1. Customer Inquiry
                        2. Item Inquiry
                        3. Customer Update
                        4. Reserved for Future Use
                        5. Reserved for Future Use
                        6. Reserved for Future Use
                        7. Reserver for Future Use
                        8. Application Management Utility Programs
                        9. End of Job, Sign Off

                        _  Select an option, please



                                                                       PF12=Esc 

The following sections provide a brief description of the transaction definitions associated with the Main Menu options.

The Main Menu, Option 1, Customer Inquiry
(Next) (Previous) (Table-of-Contents)

The transaction identifier (or Tran ID) for this menu option is "CUI1" and the program is "CU2INQ". This program will prompt a user for the customer number. Once a customer number is entered the program accesses the Customer Master File (CUSTMAST) and displays the customer information at the 3270 Terminal. If a customer record is not found a message is displayed. A user may continue to enter customer numbers or exit the program. This program is part of the zPACK for Data File Management. For additional information refer to the  Data File Inquiry and Update Programs for CUSTMAST  that is provided as a separate document.

The Main Menu, Option 2, Item Inquiry
(Next) (Previous) (Table-of-Contents)

The transaction identifier (or Tran ID) for this menu option is "ITI1" and the program is "IT2INQ". This program will prompt a user for the item number. Once a item number is entered the program accesses the Item Master File (ITEMMAST) and displays the item information at the 3270 Terminal. If a item record is not found a message is displayed. A user may continue to enter item numbers or exit the program. This program is part of the zPACK for Data File Management. For additional information refer to the  Data File Inquiry and Update Programs for ITEMMAST  that is provided as a separate document.

The Main Menu, Option 3, Customer Update
(Next) (Previous) (Table-of-Contents)

The transaction identifier (or Tran ID) for this menu option is "CUU1" and the program is "CU2UPD". This program will prompt a user for the customer number. Once a customer number is entered the program accesses the Customer Master File (CUSTMAST) and displays the customer information at the 3270 Terminal. A user may update the record or continue to enter customer numbers or exit the program. If a customer record is not found a message is displayed. This program is part of the zPACK for Data File Management. For additional information refer to the  Data File Inquiry and Update Programs for CUSTMAST  that is provided as a separate document.

The Main Menu, Option 8, Application Management Utility Programs
(Next) (Previous) (Table-of-Contents)

The transaction identifier (or Tran ID) for this menu option is "AMUP" and the program is "MN1UTL". This program will display the Utilities Menu at the 3270 Terminal. A user may select an option or return to the main menu. The following section of this document provides additional information about the options available from the utilities menu.

The Utility Menu
(Next) (Previous) (Table-of-Contents)

The Utilities Menu is provided for programmers and support personnel that need addition information about the application programs or data files. The transaction identifier (or Tran ID) to display the main menu is "AMUP" and the program is "MN1UTL". The following shows the menu screen for the Utility Programs.

 MN1FMS1      Application Management Utility Programs        2007/11/11
 STOA                      Menu of Options                  20:30:00:00
                            Version 01.00



                  1. Customer Inquiry (Hex-Dump Mode)
                  2. Reserved for Future Use
                  3. Reserved for Future Use
                  4. Reserved for Future Use
                  5. File Status Codes
                  6. File Properties, Data File Information
                  7. Application Properties, Source Code Information
                  8. Return to Main Menu
                  9. End of Job, Sign Off
                  _  Select an Option, please




                PF3=Menu

The following sections provide a brief description of the transaction definitions associated with the Utility Menu options.

The Utility Menu, Option 1, Customer Inquiry (Hex-Dump Mode)
(Next) (Previous) (Table-of-Contents)

The transaction identifier (or Tran ID) for this menu option is "CUD1" and the program is "CUDUMP". This program will prompt a user for the customer number and a starting position within the record (if the starting position is not entered then position 1 will be used). Once a customer number is entered the program accesses the Customer Master File (CUSTMAST) and displays the customer information at the 3270 Terminal. The information displayed will be 256 bytes beginning with the starting position. If a customer record is not found a message is displayed. A user may continue to enter customer numbers or exit the program. For additional information refer to the  Customer File Hex Dump Program  that is provided as a separate document.

The Utility Menu, Option 5, File Status Codes
(Next) (Previous) (Table-of-Contents)

The transaction identifier (or Tran ID) for this menu option is "FSC1" and the program is "FILERC". This program will prompt a user for a file return code (or file status code). Once a return code is entered the program accesses the Return Code File (MSGXKSDS) and displays a brief description of the cause at the 3270 Terminal. If a return code is not found a message is displayed. A user may continue to enter return codes or exit the program. For additional information refer to the  File Return Codes  that is provided as a separate document.

The Utility Menu, Option 6, File Properties, Data File Information
(Next) (Previous) (Table-of-Contents)

The transaction identifier (or Tran ID) for this menu option is "FPU1" and the program is "FP2UPD". This program will prompt a user for a Data Set Name (or DSN). Once a DSN is entered the program accesses the File Properties Repository (FPMASTER) and displays a brief description of the file characteristics (or properties) at the 3270 Terminal. If a DSN is not found a message is displayed. A user may continue to enter DSN's or exit the program. For additional information refer to the  File Properties Repository  that is provided as a separate document.

The Utility Menu, Option 7, Application Properties, Source Code Information
(Next) (Previous) (Table-of-Contents)

The transaction identifier (or Tran ID) for this menu option is "APU1" and the program is "AP2UPD". This program will prompt a user for a source code member name code (up to eight characters in length). Once a member name is entered the program accesses the Application Properties Repository (APMASTER) and displays a brief description member at the 3270 Terminal. If a member name is not found a message is displayed. A user may continue to enter member names or exit the program. For additional information refer to the  Application Properties Repository  that is provided as a separate document.

The Utility Menu, Option 8, Return to Main Menu
(Next) (Previous) (Table-of-Contents)

The transaction identifier (or Tran ID) for this menu option is "OPT1" and the program is "MN1FMS". This program will display the Main Menu at the 3270 Terminal. For additional information refer to the  Main Menu Screen  that is provided in a preceding section of this document.

Technical Details
(Next) (Previous) (Table-of-Contents)

This section provides additional detail about the menu programs.

Source Code for Main Menu Program
(Next) (Previous) (Table-of-Contents)

The following is the source code for the Main Menu Program.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  MN1FMS.
       AUTHOR.      SIMOTIME ENTERPRISES.
      *****************************************************************
      * Copyright (C) 1987-2010 SimoTime Enterprises, LLC.            *
      *                                                               *
      * 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    *
      * Enterprises.                                                  *
      *                                                               *
      * 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.                                                  *
      *                                                               *
      * 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                                  *
      *                                                               *
      * SimoTime Enterprises                                          *
      * 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 Enterprises,  *
      * 15 Carnoustie Drive, Novato, CA 94949-5849.                   *
      *                                                               *
      *****************************************************************
      *      This program is provided by SimoTime Enterprises         *
      *        Our e-mail address is: helpdesk@simotime.com           *
      *     Also, visit our Web Site at http://www.simotime.com       *
      *****************************************************************
      * PROGRAM DESCRIPTION
      * -------------------
      * This is the Menu program for the File Management System.
      *
      * MAINTENANCE
      * -----------
      * 1989/02/27 Simmons, Created program.
      * 1997/03/17 Simmons, Updated for SYSID.
      *
      *****************************************************************
      *
       ENVIRONMENT DIVISION.

      *****************************************************************
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  EOJ         pic X(50)
           value '     - Session completed, Enter new Tran ID       '.

       01  XCTL-RESP-CODE      pic 9(08)  comp.
       01  LOCAL-TRAN-ID       pic X(4)   value 'OPT1'.

       01  MSG-LINES.
           03  MSG-DATA        pic X(78)  value SPACES.

       01  SYS-ID              pic X(4).

       01  WORK-DATE.
           05  WORK-DATE-CC    pic X(02).
           05  WORK-DATE-YY    pic 9(02).
           05  WORK-DATE-MM    pic X(02).
           05  WORK-DATE-DD    pic 9(02).
       01  WORK-TIME.
           05  WORK-TIME-HH    pic X(02).
           05  WORK-TIME-NN    pic X(02).
           05  WORK-TIME-SS    pic X(02).
           05  WORK-TIME-TT    pic X(02).

       01  PROGRAM-NAME        pic x(8).

       01  PROGRAM-FLAGS.
           05  P-FLAG-ANIM     pic X      value 'N'.
           05  P-FLAG-JOURNAL  pic X      value 'Y'.

       COPY MN1FMS1.
       COPY DFHAID.

      *****************************************************************
       LINKAGE SECTION.
       01  DFHCOMMAREA         pic X.

      *****************************************************************
       PROCEDURE DIVISION.
           if  P-FLAG-ANIM = 'Y'
               CALL 'CBL_DEBUGBREAK'
           end-if

           perform CLEAR-MESSAGES

           evaluate TRUE
             when EIBCALEN = ZERO
                  perform SEND-MENU-SCREEN
             when EIBAID   = DFHPF12
                  perform END-OF-PROGRAM
             when EIBAID   = DFHENTER
                  perform GET-OPTION-NUMBER
             when other
                  move 'Please use a valid option number' to MSG-LINES
                  perform RECOVERY-ROUTINE
           end-evaluate.
      *    Should never get to here...
           perform END-OF-PROGRAM.

      *****************************************************************
       BUILD-HEADER-INFO.
           EXEC CICS ASSIGN
                SYSID(SYS-ID)
                END-EXEC.

           move 'MN1FMS1 ' to SYSPAGEO
           move SYS-ID to SYS-IDO.
           perform Z-GET-DATE-AND-TIME.
           exit.

      *****************************************************************
       CLEAR-MESSAGES.
           move SPACES to MSG-LINES
           move SPACES to SYSMSG1O
           exit.

      *****************************************************************
       END-OF-PROGRAM.
           EXEC CICS SEND
                FROM   (EOJ)
                LENGTH (50)
                ERASE
                END-EXEC

           EXEC CICS SEND
                CONTROL FREEKB
                END-EXEC

           EXEC CICS RETURN
                END-EXEC
           exit.

      *****************************************************************
       GET-OPTION-NUMBER.
           EXEC CICS RECEIVE
                MAP    ('MN1FMS1')
                MAPSET ('MN1FMS1')
                END-EXEC.

           evaluate OPTNUMI
             when '1'   move 'CU2INQ  ' to PROGRAM-NAME
                        perform TRANSFER-CONTROL
             when '2'   move 'IT2INQ  ' to PROGRAM-NAME
                        perform TRANSFER-CONTROL
             when '3'   move 'CU2UPD  ' to PROGRAM-NAME
                        perform TRANSFER-CONTROL
             when '8'   move 'MN1UTL  ' to PROGRAM-NAME
                        perform TRANSFER-CONTROL
             when '9'   perform END-OF-PROGRAM
             when other
                  move 'Please use a valid option number' to MSG-LINES
                  perform RECOVERY-ROUTINE
           end-evaluate.
      *    Should never get to here...
           exit.

      *****************************************************************
       RECOVERY-ROUTINE.
           move MSG-LINES to SYSMSG1O.
           move -1 to OPTNUML

           perform SEND-MENU-SCREEN
           exit.

      *****************************************************************
       SEND-MENU-SCREEN.
           perform BUILD-HEADER-INFO

           EXEC CICS SEND
                MAP    ('MN1FMS1')
                MAPSET ('MN1FMS1')
                ERASE
                END-EXEC

           move LOW-VALUES to MN1FMS1O

           EXEC CICS RETURN
                TRANSID (LOCAL-TRAN-ID)
                COMMAREA (MN1FMS1O)
                LENGTH    (32)
                END-EXEC.
      *    Should never get to here...
           exit.

      *****************************************************************
       TRANSFER-CONTROL.
           EXEC CICS XCTL
                PROGRAM(PROGRAM-NAME)
                RESP(XCTL-RESP-CODE)
                END-EXEC.

      *    Should never get to here...
           move 'Program not found, &&&&&&&&' to MSG-LINES.
           inspect MSG-LINES replacing first '&&&&&&&&'
                                          by PROGRAM-NAME
           move -1 to OPTNUML.
           perform RECOVERY-ROUTINE.
           exit.

      *****************************************************************
       Z-GET-DATE-AND-TIME.
           accept WORK-DATE from DATE YYYYMMDD
           accept WORK-TIME from TIME

           move 'ccyy/mm/dd'   to SYSDATEO
           move WORK-DATE(1:4) to SYSDATEO(1:4)
           move WORK-DATE(5:2) to SYSDATEO(6:2)
           move WORK-DATE(7:2) to SYSDATEO(9:2)

           move 'hh:mm:ss:dd'  to SYSTIMEO
           move WORK-TIME(1:2) to SYSTIMEO(1:2)
           move WORK-TIME(3:2) to SYSTIMEO(4:2)
           move WORK-TIME(5:2) to SYSTIMEO(7:2)
           move WORK-TIME(7:2) to SYSTIMEO(10:2)

           exit.

Source Code for Utilities Menu Program
(Next) (Previous) (Table-of-Contents)

The following is the source code for the Utilities Menu Program.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  MN1UTL.
       AUTHOR.      SIMOTIME ENTERPRISES.
      *****************************************************************
      * Copyright (C) 1987-2010 SimoTime Enterprises, LLC.            *
      *                                                               *
      * 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    *
      * Enterprises.                                                  *
      *                                                               *
      * 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.                                                  *
      *                                                               *
      * 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                                  *
      *                                                               *
      * SimoTime Enterprises                                          *
      * 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 Enterprises,  *
      * 15 Carnoustie Drive, Novato, CA 94949-5849.                   *
      *                                                               *
      *****************************************************************
      *      This program is provided by SimoTime Enterprises         *
      *        Our e-mail address is: helpdesk@simotime.com           *
      *     Also, visit our Web Site at http://www.simotime.com       *
      *****************************************************************
      * PROGRAM DESCRIPTION
      * -------------------
      * This is the Menu program for the Online Application Management
      * Utility Programs.
      *
      * MAINTENANCE
      * -----------
      * 1989/02/27 Simmons, Created program.
      * 1997/03/17 Simmons, Updated for SYSID.
      *
      *****************************************************************
      *
       ENVIRONMENT DIVISION.

      *****************************************************************
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  EOJ         pic X(50)
           value '     - Session completed, Enter new Tran ID       '.

       01  XCTL-RESP-CODE      pic 9(08)  comp.
       01  LOCAL-TRAN-ID       pic X(4)   value 'AMUP'.

       01  MSG-LINES.
           03  MSG-DATA        pic X(78)  value SPACES.

       01  SYS-ID              pic X(4).

       01  WORK-DATE.
           05  WORK-DATE-CC    pic X(02).
           05  WORK-DATE-YY    pic 9(02).
           05  WORK-DATE-MM    pic X(02).
           05  WORK-DATE-DD    pic 9(02).
       01  WORK-TIME.
           05  WORK-TIME-HH    pic X(02).
           05  WORK-TIME-NN    pic X(02).
           05  WORK-TIME-SS    pic X(02).
           05  WORK-TIME-TT    pic X(02).

       01  PROGRAM-NAME        pic x(8).

       01  PROGRAM-FLAGS.
           05  P-FLAG-ANIM     pic X      value 'N'.
           05  P-FLAG-JOURNAL  pic X      value 'Y'.

       COPY MN1UTL1.
       COPY DFHAID.

      *****************************************************************
       LINKAGE SECTION.
       01  DFHCOMMAREA         pic X.

      *****************************************************************
       PROCEDURE DIVISION.
           if  P-FLAG-ANIM = 'Y'
               CALL 'CBL_DEBUGBREAK'
           end-if

           perform CLEAR-MESSAGES

           evaluate TRUE
             when EIBCALEN = ZERO
                  perform SEND-MENU-SCREEN
             when EIBAID   = DFHPF3
                  perform RETURN-TO-MAIN-MENU
             when EIBAID   = DFHPF12
                  perform END-OF-PROGRAM
             when EIBAID   = DFHENTER
                  perform GET-OPTION-NUMBER
             when other
                  move 'Please use a valid option number' to MSG-LINES
                  perform RECOVERY-ROUTINE
           end-evaluate.
      *    Should never get to here...
           perform END-OF-PROGRAM.

      *****************************************************************
       BUILD-HEADER-INFO.
           EXEC CICS ASSIGN
                SYSID(SYS-ID)
                END-EXEC.

           move 'MN1UTL1 ' to SYSPAGEO
           move SYS-ID to SYS-IDO.
           perform Z-GET-DATE-AND-TIME.
           exit.

      *****************************************************************
       CLEAR-MESSAGES.
           move SPACES to MSG-LINES
           move SPACES to SYSMSG1O
           exit.

      *****************************************************************
       END-OF-PROGRAM.
           EXEC CICS SEND
                FROM   (EOJ)
                LENGTH (50)
                ERASE
                END-EXEC

           EXEC CICS SEND
                CONTROL FREEKB
                END-EXEC

           EXEC CICS RETURN
                END-EXEC
           exit.

      *****************************************************************
       GET-OPTION-NUMBER.
           EXEC CICS RECEIVE
                MAP    ('MN1UTL1')
                MAPSET ('MN1UTL1')
                END-EXEC.

           evaluate OPTNUMI
             when '1'   move 'CUDUMP  ' to PROGRAM-NAME
                        perform TRANSFER-CONTROL
             when '5'   move 'FILERC  ' to PROGRAM-NAME
                        perform TRANSFER-CONTROL
             when '6'   move 'FP2UPD  ' to PROGRAM-NAME
                        perform TRANSFER-CONTROL
             when '7'   move 'AP2UPD  ' to PROGRAM-NAME
                        perform TRANSFER-CONTROL
             when '8'   perform RETURN-TO-MAIN-MENU
             when '9'   perform END-OF-PROGRAM
             when other
                  move 'Please use a valid option number' to MSG-LINES
                  perform RECOVERY-ROUTINE
           end-evaluate.
      *    Should never get to here...
           exit.

      *****************************************************************
       RECOVERY-ROUTINE.
           move MSG-LINES to SYSMSG1O.
           move -1 to OPTNUML

           perform SEND-MENU-SCREEN
           exit.

      *****************************************************************
       RETURN-TO-MAIN-MENU.
           move 'MN1FMS  ' to PROGRAM-NAME
           perform TRANSFER-CONTROL
           exit.

      *****************************************************************
       SEND-MENU-SCREEN.
           perform BUILD-HEADER-INFO

           EXEC CICS SEND
                MAP    ('MN1UTL1')
                MAPSET ('MN1UTL1')
                ERASE
                END-EXEC

           move LOW-VALUES to MN1UTL1O

           EXEC CICS RETURN
                TRANSID (LOCAL-TRAN-ID)
                COMMAREA (MN1UTL1O)
                LENGTH    (32)
                END-EXEC.
      *    Should never get to here...
           exit.

      *****************************************************************
       TRANSFER-CONTROL.
           EXEC CICS XCTL
                PROGRAM(PROGRAM-NAME)
                RESP(XCTL-RESP-CODE)
                END-EXEC.

      *    Should never get to here...
           move 'Program not found, &&&&&&&&' to MSG-LINES.
           inspect MSG-LINES replacing first '&&&&&&&&'
                                          by PROGRAM-NAME
           move -1 to OPTNUML.
           perform RECOVERY-ROUTINE.
           exit.

      *****************************************************************
       Z-GET-DATE-AND-TIME.
           accept WORK-DATE from DATE YYYYMMDD
           accept WORK-TIME from TIME

           move 'ccyy/mm/dd'   to SYSDATEO
           move WORK-DATE(1:4) to SYSDATEO(1:4)
           move WORK-DATE(5:2) to SYSDATEO(6:2)
           move WORK-DATE(7:2) to SYSDATEO(9:2)

           move 'hh:mm:ss:dd'  to SYSTIMEO
           move WORK-TIME(1:2) to SYSTIMEO(1:2)
           move WORK-TIME(3:2) to SYSTIMEO(4:2)
           move WORK-TIME(5:2) to SYSTIMEO(7:2)
           move WORK-TIME(7:2) to SYSTIMEO(10:2)

           exit.

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

The purpose of this suite of program is to provide examples that use command level CICS in COBOL programs to access VSAM, Key-Sequenced-Data-Sets (KSDS) and display the information using standard BMS screen definitions to a 3270 terminal or terminal emulator.

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#zPACKcicsmn01 or view the complete list of SimoTime Examples at http://www.simotime.com/sim4dzip.htm.

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

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

Check out  The CICS Connection  for more examples of mainframe CICS coding techniques and sample code.

Check out  The VSAM - QSAM Connection  for more examples of mainframe VSAM and QSAM accessing techniques and sample code. This link will describe how to create the Customer Master File and the Item Master File that are used by other sample programs.

This document provides a quick summary of the  File Status Key  for VSAM data sets and QSAM files.

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
(Next) (Previous) (Table-of-Contents)

Founded in 1987, SimoTime Enterprises 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. 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-2010 SimoTime Enterprises  All Rights Reserved
When technology complements business
http://www.simotime.com
Version 07.10.01