home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l360 / 1.ddi / MFCOMPAT.DOC < prev    next >
Encoding:
Text File  |  1991-06-01  |  16.0 KB  |  417 lines
  1.  
  2.               COMPATIBILITY WITH MICRO FOCUS(R) COBOL PRODUCTS
  3.           =================================================
  4.  
  5.    Contents
  6.    --------
  7.        Introduction
  8.        MFVS/COBDIR
  9.        Source Code files
  10.        Directives
  11.        HIGH-VALUES
  12.        INDEXes
  13.        Linkage Parameters
  14.        SYSTEM drive
  15.        Device files
  16.        Closing un-opened files
  17.        RTS subprograms
  18.        Indexed files
  19.        Multiple Reel files
  20.        Screen display
  21.        Calling RTS routines - call-by-number
  22.        Assembler Subprograms
  23.        Binary Files (.BIN)
  24.        RTS.BIN
  25.        Executable files
  26.        USING APPEND
  27.        SOURCEWRITER(tm) programs
  28.  
  29.  
  30.    Introduction
  31.    ------------
  32.    This document summarizes known differences between this version of COBOL
  33.    and versions of Micro Focus COBOL, Professional COBOL and Workbench prior
  34.    to the Micro Focus COBOL/2 product range.
  35.  
  36.  
  37.    MFVS/COBDIR
  38.    -----------
  39.    VS COBOL Workbench V1.3 and 2.0 used the environment variable MFVS to
  40.    tell the Workbench system where its system files were stored. With this
  41.    system, the environment variable, COBDIR is used. If any of your programs
  42.    use MFVS in their filenames, then COBDIR should replace the MFVS. The
  43.    programs should then be recompiled.
  44.  
  45.  
  46.    Source Code files
  47.    -----------------
  48.    Source code is fully compatible between systems. However some directives
  49.    have different behavior. See below for details.
  50.  
  51.    Some reserved words in this version may conflict with user-defined words
  52.    in your older sources. If this is the case, then use the MF(1) or MF(2)
  53.    directive when compiling your programs.
  54.  
  55.  
  56.    Directives
  57.    ----------
  58.    VSC2    This directive follows the behavior of IBM(R) VS COBOL II release
  59.        3. Earlier versions of Micro Focus COBOL were compatible with
  60.        release 1 only. In order to get that behavior using the new
  61.        system it is necessary to use the VSC2"1" directive. See the
  62.        Operating Guide for a fuller explanation of this directive.
  63.  
  64.    OSVS    In earlier versions of Micro Focus COBOL these directives created
  65.    VSC2    intermediate code files which did not perform any subscript-out-
  66.        of-range checking on table accesses. In this system, subscript
  67.        checking code will, by default, be created unless the NOBOUND
  68.        compiler directive is used.
  69.  
  70.    COMMIT      These directives are used to provide compatibility with
  71.    DERESTRICT  the Micro Focus FILESHARE system. However, they can now be
  72.    RESTRICT    achieved using the appropriate syntax and are only maintained
  73.            for compatibility. They may be removed in future products.
  74.  
  75.    CHECK   The CHECK directive is totally synonymous with the BOUND
  76.        directive, and is only maintained for compatibility. It may be
  77.        removed in later products. This directive causes bound checking
  78.        code to be produced for subscripts and indexes.
  79.  
  80.    Please refer to the chapter on compiling in your COBOL Operating Guide
  81.    for more details of these directives.
  82.  
  83.  
  84.    HIGH-VALUES
  85.    -----------
  86.    This system substitutes hexadecimal FF for the figurative constant
  87.    HIGH-VALUES. In Workbench 2.0 and earlier versions, hex 7F was used.
  88.  
  89.    Therefore, if your application moves HIGH-VALUES to an alphanumeric
  90.    field, subsequent comparisons with X"7F" will fail.
  91.  
  92.  
  93.    INDEXes
  94.    -------
  95.    In Professional COBOL V1.2 it was possible to use arithmetic operations
  96.    (e.g. ADD, SUBTRACT) to alter INDEXes to tables. This is not enabled by
  97.    default in this product. You can either avoid the problem by replacing
  98.    the arithmetic operations by SET statements or allow the behavior by
  99.    using the OLDINDEX compiler directive. The former method is recommended.
  100.  
  101.  
  102.    Linkage Parameters
  103.    ------------------
  104.    The ability to reference unallocated linkage items as parameters to a
  105.    subsequent CALL statement is not supported by this software. For example,
  106.  
  107.    Program A
  108.         CALL "B" USING a1 a2
  109.    Program B
  110.         PROCEDURE DIVISION USING b1 b2 b3
  111.         CALL "C" USING b1 b2 b3
  112.    Program C
  113.         PROCEDURE DIVISION USING c1 c2 c3
  114.  
  115.    will give an error 203 when the call to "C" is made.
  116.  
  117.  
  118.    SYSTEM drive
  119.    ------------
  120.    VS COBOL Workbench V1.3 and earlier allowed programs to use the drive
  121.    identifier "S:" on filenames to force the run time system to look in the
  122.    "system" drive for a file.
  123.  
  124.    With later versions this is no longer used. It is now recommended
  125.    that your programs, if they wish to access files in the COBOL system
  126.    directory, use the COBDIR environment variable. This is performed by
  127.    changing references to "S:" to "$COBDIR\". eg :
  128.  
  129.        SELECT FILE1 ASSIGN TO "S:FRED.DAT"
  130.     .
  131.     .
  132.        CALL "S:HELP" USING HELP-ID.
  133.  
  134.  
  135.     Becomes :
  136.  
  137.        SELECT FILE1 ASSIGN TO "$COBDIR\FRED.DAT".
  138.     .
  139.     .
  140.        CALL "$COBDIR\HELP" USING HELP-ID.
  141.  
  142.  
  143.    As long as the COBDIR environment variable is set then FRED and HELP will
  144.    be looked for in that directory. (Please refer to your COBOL Operating
  145.    Guide Introduction for details of how to set the COBDIR environment
  146.    variable).
  147.  
  148.  
  149.    Device files
  150.    ------------
  151.    The devices
  152.  
  153.        :CO: for console keyboard or screen
  154.        :LP: for parallel printer
  155.  
  156.    are supported in this product. However, they should not be used in new
  157.    programs. Use CON: and LPT1: instead.
  158.  
  159.  
  160.    Closing un-opened files
  161.    -----------------------
  162.    In some versions of Micro Focus COBOL, closing a file which had not been
  163.    opened was allowed. In this system, such action will cause an RTS error
  164.    142, or file status return 9/142 if the file has a status area defined.
  165.    If you get the RTS error 142, you are advised to correct your program so
  166.    that it does not attempt to close any file that has not been opened. If
  167.    you do not wish to do this then you could define a file status for the
  168.    problem file, but ignore the status returned on the close.
  169.  
  170.  
  171.    RTS subprograms
  172.    ---------------
  173.    The following subprograms, which were available in Micro Focus products
  174.    other than Micro Focus COBOL/2 are not supported in this system.
  175.  
  176.    o   X"A7" Function 18 - disable/enable ANSI.SYS
  177.  
  178.        This is handled by COBOL/2, but will have no effect in LCOBOL
  179.        linked EXE files, where ANSI.SYS is permanently enabled.
  180.  
  181.    o   X"91" Function 32 - preload a program
  182.    o   X"91" Function 60 - fix a program in memory
  183.    o   X"91" Function 61 - unfix a program
  184.  
  185.        These calls will return without acting and without error in a linked
  186.        system. Functions 60 and 61 are inappropriate for a linked system.
  187.        In a linked system, function 32 can be emulated by adding a call to
  188.        the subprogram which the subprogram recognizes as a "load" call, and
  189.        then exits. This will have the effect of preloading the subprogram.
  190.  
  191.  
  192.    Indexed files
  193.    -------------
  194.    Indexed Sequential files created by Professional COBOL V1.2, Workbench
  195.    V1.3 (or earlier) and Level II COBOL are of a different format from those
  196.    produced from the indexed file handler in this COBOL. The indexed file
  197.    handler can recognize the format of existing files, and will read and
  198.    update them, but all new files are created in the new format. You may
  199.    wish to update your old files to the new format. To do this, use REBUILD
  200.    with the /s:lii option. For example,
  201.  
  202.        REBUILD oldfile.dat,newfile.dat /s:lii [/i] [/v]
  203.  
  204.    If you wish to create indexed files in the old format, this is possible
  205.    by using the IDXFORMAT"2" directive when compiling your program. If you
  206.    use the IDXFORMAT"2" directive, the resulting executable file will create
  207.    indexed files of the old format. If you do retain the old format, you
  208.    will not be able to make use of the new facilities provided by this
  209.    indexed file handler (e.g. performance improvements, variable length
  210.    records, READ PREVIOUS etc.).
  211.  
  212.    Note that all programs using indexed files, old or new format, must have
  213.    access to the indexed file handler, EXTFH, by linking it in with the
  214.    program or making it available as a standalone module.
  215.  
  216.    For more details of indexed files please refer to the Files section of
  217.    your Operating Guide.
  218.  
  219.  
  220.    Multiple Reel files
  221.    -------------------
  222.    The header record of multiple reel files has changed since Workbench
  223.    V2.0. The first 49 bytes contain the string :
  224.  
  225.         COBOL MULTIPLE FILE HEADER V1.0
  226.  
  227.    In order to be able to read multiple reel files created using older
  228.    versions of Micro Focus COBOL, you should use the run time switch -v to
  229.    disable version checking when running your program.
  230.  
  231.    Please refer to the Files chapter of your Operating Guide for more
  232.    details of multiple reel files.
  233.  
  234.  
  235.    Screen display
  236.    --------------
  237.    In Micro Focus LEVEL II COBOL it was possible (though not documented) to
  238.    include control sequences in a data item being displayed on the screen
  239.    using DISPLAY ... UPON CRT syntax to set attributes, ring the bell, etc.
  240.    This will not work in this product. Any control codes will be displayed
  241.    as the equivalent IBM characters. Control sequences can be used using
  242.    DISPLAY ... UPON CONSOLE, but only after enabling ANSI.SYS.
  243.  
  244.  
  245.    Calling RTS routines - call-by-number
  246.    -------------------------------------
  247.    When calling the COBOL system subprograms detailed in your Operating
  248.    Guide, it is expected that the call will reference the subprogram number
  249.    as a literal. For example:
  250.  
  251.        CALL X"83" USING CHAR.
  252.  
  253.    It is possible to have the subprogram number in a one-byte data-item.
  254.    Thus:
  255.  
  256.        03  PROG-NO       PIC 9(2) COMP-X VALUE X"83".
  257.  
  258.        CALL PROG-NO USING CHAR.
  259.  
  260.    However, in order for this to operate with the current system it is
  261.    necessary to link in RTSCALL.OBJ with such a program.
  262.  
  263.    You are advised to replace all such calls with CALL literal in order to
  264.    avoid the problem.
  265.  
  266.  
  267.    Assembler Subprograms
  268.    ---------------------
  269.    In Micro Focus LEVEL II COBOL, the following registers must be preserved
  270.    by any assembler subprograms:
  271.  
  272.        CS DS ES SS BX Direction flag
  273.  
  274.    In this product, the following registers must be preserved:
  275.  
  276.        CX SS:SP DS BP Direction flag
  277.  
  278.  
  279.    Binary Files (.BIN)
  280.    -------------------
  281.    Binary (.BIN) files supported by Micro Focus COBOL prior to Micro Focus
  282.    COBOL/2 are not supported by this system. It is recommended that existing
  283.    .BIN subprograms are converted to operate as linkable .OBJ files. When
  284.    carrying out the conversion, you should allow for the following:
  285.  
  286.    o   Different parameter passing order.
  287.  
  288.        The order of parameters pushed onto the stack by COBOL calls in this
  289.        system is such that the first parameter popped from the stack will be
  290.        the first parameter in the COBOL USING list.
  291.  
  292.    o   Memory model
  293.  
  294.        The memory model of the systems that your .BIN files were written
  295.        to work with was always such that parameters were pushed as 32-bit
  296.        addresses on the stack, and a FAR return was required. In this
  297.        system, the calling COBOL program may be compiled with different
  298.        models such that parameters and/or returns may be NEAR or FAR. Your
  299.        source may need recoding to take account of this.
  300.  
  301.    o   Entry points.
  302.  
  303.        .BIN routines always begin execution at offset 100H from the start
  304.        of their code segment. When converted to work as .OBJs with this
  305.        system, the entry point can be anywhere within the assembly language
  306.        program.
  307.  
  308.    This COBOL system offers a greater degree of flexibility in handling
  309.    user-written assembly language sub-programs, making conversion of .BIN
  310.    files worthwhile.
  311.  
  312.  
  313.    RTS.BIN
  314.    -------
  315.    Micro Focus products prior to Micro Focus COBOL/2 supported user written
  316.    call-by-number routines held in a file called RTS.BIN. In this system,
  317.    RTS.BIN is supported in a slightly different way. An alternative to
  318.    converting your RTS.BIN programs to this COBOL system interface is to
  319.    use the two programs supplied with the COBOL system software to do it
  320.    for you. These two files, RTSCALL.OBJ and RTSBIN.ASM, will quickly
  321.    convert your existing RTS.BIN sources to a format compatible with this
  322.    COBOL system.
  323.  
  324.    The compiler will generate an error message whenever a CALL is
  325.    encountered of the form :
  326.  
  327.        CALL X"nn" USING ....
  328.  
  329.        where nn is between 00 and 80 hex
  330.  
  331.    You must convert all such calls to the following format :
  332.  
  333.        WORKING-STORAGE SECTION.
  334.        01  variable-name       PIC X VALUE X"nn".
  335.  
  336.        PROCEDURE DIVISION.
  337.  
  338.        CALL variable-name USING ......
  339.  
  340.    At run time, the RTS CALL handler will detect a call to a numeric routine
  341.    between 00 and 80 hex and will redirect the call to an entry point in
  342.    RTSCALL. RTSCALL reverses the order of the parameters on the stack and
  343.    then indexes into the large jump table in RTSBIN to execute the proper
  344.    user-defined routine. The program RTSBIN.ASM consists entirely of a large
  345.    address table containing entries for labels _FCAL00 through _FCAL7F.
  346.  
  347.    To convert existing RTS.BIN programs perform the following steps :
  348.  
  349.    1.  Take the assembly language source code from RTS.BIN and place it at
  350.        the bottom of RTSBIN.ASM before the CSEG ENDS statement. Note that
  351.        the RTSBIN.ASM is written in Microsoft(R) assembler syntax which has
  352.        PROC and ENDP pseudo ops to indicate assembly language modules within
  353.        a source file.
  354.  
  355.    2.  Change the appropriate table entry in _USRCAL_TAB from _CBLRETURN to
  356.        the label you have used as the first statement in your routine.
  357.  
  358.    3.  Assemble RTSBIN into a .OBJ program.
  359.  
  360.    4.  Link RTSBIN.OBJ and RTSCALL.OBJ into your COBOL application program.
  361.        Since routines in RTSBIN are not being called directly, they cannot
  362.        be dynamically called. Therefore, RTSCALL.OBJ and RTSBIN.OBJ must
  363.        always be linked into your COBOL application.
  364.  
  365.  
  366.    Executable files
  367.    ----------------
  368.    Intermediate code files (.INT) from Workbench V2.0.2 or later can be run,
  369.    using the Animator, directly with this system. Intermediate code files
  370.    from VS COBOL Workbench V1.3 can also be run if the run time switch -v is
  371.    used when executing. IDY files required for animating are not compatible.
  372.    To animate under this COBOL system the programs should be compiled with
  373.    this system.
  374.  
  375.    Programs from other versions should be recompiled before use.
  376.  
  377.  
  378.    USING APPEND
  379.    ------------
  380.    With DOS V3.1 and later the APPEND command was introduced. Using this, it
  381.    is possible to make directories other than the current directory behave
  382.    as if they are extensions of the current directory.
  383.  
  384.    As the COBOL run time system will search the current directory and then
  385.    the COBDIR directory for files, you should be aware of any older Micro
  386.    Focus based software in your APPEND path.
  387.  
  388.    For example, if one of your APPEND directories contains an application
  389.    written in an earlier Micro Focus COBOL which has library files of the
  390.    same name as a library you are trying to open, then you must ensure that
  391.    the library in that APPEND path conforms to the compatibility restraints
  392.    listed above.
  393.  
  394.  
  395.    SOURCEWRITER programs
  396.    ---------------------
  397.    Systems generated by the Micro Focus SOURCEWRITER product will not, in
  398.    general, work if turned into standalone .EXE files by linking with
  399.    LCOBOL. These programs are designed to work in the INT/GNT environment
  400.    provided by the Micro Focus Toolset and Workbench products.
  401.  
  402.    Programs created by Micro Focus SOURCEWRITER V2.0.1 or V2.0.2 should be
  403.    recompiled with the NOANS85 OLDINDEX MF(2) directives, when producing
  404.    INT or GNT to work as described above.
  405.  
  406.  
  407.   ==========================================================================
  408.   Micro Focus is a registered trademark of Micro Focus Limited
  409.   VS COBOL Workbench and SOURCEWRITER are trademarks of Micro Focus Limited
  410.   Microsoft is registered trademark of Microsoft Corporation
  411.   IBM is a registered trademark of International Business Machines
  412.   Corporation
  413.   UNIX  is a registered trademark of AT&T
  414.   ==========================================================================
  415.   Copyright (C) 1991 Microsoft Corporation
  416.   Copyright (C) 1991 Micro Focus Ltd
  417.