• Contributed by: James Lemmon, JWL Software, Johannesburg, South Africa Here is a program that I use for reading from a COM port. This has been used in a few different compilers so hopefully it will work for you without many amendments.

    000550 01 SCA-REC.
                         03 SCA-LINE PIC X(30).
                    01 SCA-REC2.
                         03 SCA-CHAR1 PIC X(01).
                         03 SCA-CHAR2-30 PIC X(29).
                    01 SCA-REC3.
                         03 SCA-KG PIC 9(03).
                         03 SCA-DEC PIC X(01).
                         03 SCA-GRAM PIC 9(03).
                         03 FILLER PIC X(23).
                    01 W02-FILE-IDS.
                         03 W02-SCALES PIC X(04) VALUE "COM2".
    .......This can be any of the com ports.
                    01 SCALE-QUANTITY.
                         03 SCALE-PORT.
                              05 SCALE-NO PIC X(04).
                         03 SCALE-QUANT.
                              05 SCALE-WEIGHT.
                                   07 SCALE-QNT PIC 9(09)V999.
                              05 SCALE-WEIGHT2 REDEFINES SCALE-WEIGHT.
                                   07 SCALE-KG PIC 9(09).
                                   07 SCALE-GR PIC 9(03).
    001220 AA000 SECTION.
    001230 AA00.
                       MOVE ZERO TO SCALE-QNT.
                       MOVE SCALE-NO TO W02-SCALES.
    042140      OPEN I-O SCALES.
    003050      IF NOT (WS-STATUS = "00" OR "41")
                             GO TO AA999.
    001340 AA05.
                       READ SCALES.
                       IF NOT (SCA-CHAR1 = "+" OR "-")
                             MOVE SCA-CHAR2-30 TO SCA-REC
                       IF SCA-REC = SPACES
                             GO TO AA999
                             GO TO AA10.
                       MOVE SCA-CHAR2-30 TO SCA-REC.
                       IF SCA-REC = SPACES
                             GO TO AA999.
                       MOVE SCA-KG TO SCALE-KG.
                       MOVE SCA-GRAM TO SCALE-GR.
    001830           CLOSE SCALES.

  • Support

  • Technical Support

    >Allen Systems Group (ASG)
    ASG offers several different avenues to access support information online.

    >CA Technologies
    Technical support for CA Technologies mainframe environment products is available.

    >Canam Software Labs
    Online technical support provides access to downloads, product knowledge base, FAQs and contact information.

    COBOL-IT technical support offers support for development, production, consulting and monitoring service, training and contact information.

    >Delta Software Technology
    Technical support services are provided under the terms of a maintenance contract that provides access to a range of support services and any necessary patches for reproducible problems.

    >Envyr - ICOBOL
    Envyr provides pre-sales, post-sales and ongoing technical support for ICOBOL.

    In order to receive product technical support for any of the Flexus products, you must have a valid software license and must be currently under maintenance. Flexus offers a discussion forum accessible to all COBOL programmers whether or not you are a customer of Flexus products.

    >Fresche Solutions
    "Ask an Expert" is a free service offered by Fresche Legacy, a leading mainframe modernization solution provider.

    >HP COBOL for OpenVMS
    Contact technical support for any of HP's products.

    >IBM Enterprise COBOL for z/OS
    IBM's technical support resource for all IBM products & services : Fixes & downloads, documentation, report & track problems, news, alerts, training, tools & communities : Enterprise COBOL for z/OS.

    >IRI, The CoSort Company
    Technical support is free during evaluation, and for the first year after product licensing.

    >MarshallSoft Computing
    Technical support includes answering questions about library functions, providing examples of calling library functions, help in running the example programs, and answering questions about how the library can be used.

    >Micro Focus
    Micro Focus supportLine customers can download COBOL related programs, updates, upgrades, etc.

    >NetCOBOL Fujitsu
    The technical support portal provides access to contact information, help, COBOL downloads, documentation, and other support features.

    Norcom provides technical support for all of its software products, including GUI ScreenIO.

    >Ordina Denkart
    Ordina Denkart offers technical product support to all customers. Technical support includes help during product installation and operation, including ViaNova UNISYS which migrates 1100/2200 COBOL mainframe applications to Open Systems with a relational database.

    >Redvers Consulting
    Contact technical support for help with COBOL XML Interface.

    >Relational Language & Database Technology (RLDT SA)
    Contact technical support for help with COBOL Access Plus.

    Contact ScreenJet product support for download of VPlus to ACUCOBOL Migration Demo Video file.

    >Siber Systems
    Data Viewer and Cobol Tools technical support offered by Siber Systems.

    >Software Engineering of America
    Contact technical support for help with Software Engineering Of America mainframe software.

    >Software Mining
    Contact SoftwareMining technical support for help with COBOL To Java and COBOL To C# Converters.

    Syncsort technical support is ready and available to provide customer support, all over the world.

    >The Source Recovery Company
    Contact technical support for help to recover COBOL or Assembler source code from IBM MVS or VSE executable programs.

    TransforMix provides help desk support for entire heterogeneous networks, including systems and applications support.

    >Transoft Limited
    Transoft's technical support provides product knowledgebase, contact support, developer's blog and LinkedIn Group.

    >Visible Systems
    Visible Products Technical Support is available to customers who have purchased a Maintenance Plus. Limited Technical Support is also available to prospective users who have downloaded a demonstration or trial version of any of our products.


  • Transaction Processing Code Examples

    >CICS COBOL Program Examples
    This references the source code to 12 complete COBOL CICS programs in the Murach's CICS for the COBOL Programmer. 

    >CICS COBOL Sample Socket Programs
    This is a collection of CICS COBOL sample programs that have been developed to make it easy for a CICS COBOL program to send an outbound TCP/IP request (and optionally wait a response).

    >CICS COBOL TCP/IP Socket Interface
    Here you will find a description of the TCP/IP for MVS: Socket Interface for CICS. 

    >COM Transaction Integrator (COMTI)
    The COBOL CICS sample programs are for application integration using COMTI (COM Transaction Integrator) for CICS and IMS included with the Host Integration Server 2000 Software Development Kit.

    >Sample CICS COBOL Program
    This CICS COBOL program sample accepts input from terminal, prefix string 'OUTPUT : ' to the input data, and send it back to the modified data to terminal.



  • User Groups

This website uses cookies to manage authentication, navigation, and other functions. By using our website, you agree that we can place these types of cookies on your device.

View e-Privacy Directive Documents

You have declined cookies. This decision can be reversed.

You have allowed cookies to be placed on your computer. This decision can be reversed.


Member Login