PM92523: IMS SUPPORT ENHANCEMENT

Obtain the fix for this APAR.

APAR status

• Closed as unreproducible in next release.

Error description

• IMS Support Enhancement
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5.1 users developing IMS   *
  *                 SQL applications                             *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: This APAR adds IMS SQL coprocessor      *
  *                      support to the COBOL V5.1 compiler to   *
  *                      work with coprocessor services added to *
  *                      IMS V13 with the PTF for APAR PM97137   *
  *                      (UK98028) installed                     *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  This new feature allows users to compile IMS applications that
  use the new EXEC SQLIMS language support available in IMS V13
  

Problem conclusion

Temporary fix

Comments

• A new compiler option SQLIMS is  added to allow users to
  embed EXEC SQLIMS statements in their COBOL applications.  The
  new EXEC SQLIMS statements allow users to interface with the IMS
  database using the SQL language.
  
  +--------------------------------------------------------------+
  | Start of changes for:                                        |
  | Enterprise COBOL Language Reference, SC14-7381-00            |
  
     Appendix E. Reserved Words. Table 60. Reserved Words
      add an entry:
  
  |   SQLIMS             with an X in the Reserved column only.
  
  | End of changes for:                                          |
  | Enterprise COBOL Language Reference, SC14-7381-00            |
  +--------------------------------------------------------------+
  
  +--------------------------------------------------------------+
  | Start of changes for:                                        |
  | Enterprise COBOL Programming Guide, SC14-7382-00             |
  
    Preface, Summary of changes
    Version 5 release 1  add:
  
  | A new compiler option, SQLIMS, enable the new IMS SQL
  | coprocessor.
  
    Chapter 14. Compiling under z/OS
    Topic: Defining the library-processing output file (SYSMDECK)
             About this task
    The first paragraph has been changed to:
  
  | The SYSMDECK file will contain a copy of the updated input
  | source after library processing, that is, the result of COPY,
  | BASIS, REPLACE, EXEC SQL INCLUDE and EXEC SQLIMS INCLUDE
  | statements. The file can be a traditional MVS data set or a
  | z/OS UNIX file.
  
    Chapter 14. Compiling under z/OS
    Topic: Specifying compiler options under z/OS
           About this task
    Bullet 2 in the second paragraph has been changed to:
  
  | 2. Values of the BUFSIZE, OUTDD, SIZE, SQL and SQLIMS compiler
  |    option in effect for the first program in a batch
  
    Chapter 14. Compiling under z/OS
    Topic: Specifying compiler options in a batch compilation
           About this task
    Bullet 2 of the second paragraph has being changed to:
  
  | 2. Values of the BUFSIZE, OUTDD, SIZE, SQL and SQLIMS compiler
  |    option in effect for the first program in a batch
  
    Chapter 14. Compiling under z/OS
    Topic: Specifying compiler options in a batch compilation
           About this task
    The third paragraph has been changed to:
  
  | If any program in the batch sequence requires the BUF,
  | OUTDD, SIZE, SQL or SQLIMS option, that option must be in
  | effect for the first program in the batch sequence (When
  | processing BASIS, COPY, or REPLACE statements, the compiler
  | handles all programs in the batch as a single input file.)
  
    Chapter 15. Compiling under z/OS UNIX
    Topic: Specifying compiler options under z/OS UNIX
           About this task
    Bullet 2 of the second paragraph has been changed to:
  
  | 2. The values of BUFSIZE, SQL, SQLIMS, OUTDD, and SIZE options
  |    in effect for the first program in a batch compilation.
  
    Chapter 15. Compiling under z/OS UNIX
    Topic: Specifying compiler options under z/OS UNIX
  
    Add the following bullet under Restrictions
  
  | .  Do not use the SQLIMS compiler option under z/OS UNIX.
  
    Chapter 17. Compiler options.
    Add the following to Table 43 "Source Language" row
  
  |      SQLIMS          NOSQLIMS          NONE
  
    Chapter 17. Compiler options.
    under CODEPAGE option
    Add the following bullet to the third paragraph
  
  | . Processing of source code for EXEC SQLIMS statements
  
    Chapter 17. Compiler options.
    under MAXPCF option
    The first bullet has been modified to:
  
  | . The number of COBOL statements in the PROCEDURE DIVISION,
  |   including generated statements from the SQL, SQLIMS
  |   or CICS options and the expansion of COPY statements.
  
    Chapter 17. Compiler options.
    under MDECK option
    The first paragraph has been modified to:
  
  | The MDECK compiler option specifies that a copy of the
  | updated input source after library processing (that is,
  | the result of COPY, BASIS, REPLACE, EXEC SQL INCLUDE
  | and EXEC SQLIMS INCLUDE statements) is written to a file.
  
    Chapter 17. Compiler options.
    under MDECK option
    The first paragraph in the section on "Contents of the MDECK
    output file" has been changed to:
  
  | If you use the MDECK option with programs that contain
  | EXEC CICS, EXEC SQL or EXEC SQLIMS statements, these EXEC
  | statements are included in the MDECK output as is. However,
  | if you compile using the SQL option or the SQLIMS option,
  | the corresponding EXEC SQL INCLUDE or EXEC SQLIMS INCLUDE
  | statements are expanded in the MDECK output.
  
    Chapter 17. Compiler options
    Add the new SQLIMS option
  
  | SQLIMS
  | Use the SQLIMS compiler option to enable the IMS SQL
  | coprocessor and to specify IMS suboptions. You must specify
  | the SQLIMS option if a COBOL source program contains SQLIMS
  | statements.
  |
  | SQLIMS option syntax
  |
  |      ______NOSQLIMS____________________________________
  |      |                                                |
  | -->--|------------------------------------------------|-->>--
  |      |_____SQLIMS_____________________________________|
  |                   |___("IMS-suboption-string")____|
  |
  | Default is: NOSQLIMS
  | Abbreviations are: None
  |
  | If you specify the NOSQLIMS option, any SQLIMS statements
  | found in the source program are diagnosed and discarded.
  |
  | Use either quotation marks or single quotation marks to
  | delimit the string of IMS suboptions.
  | You can partition a long suboption string into multiple
  | suboption strings in multiple CBL statements. For example:
  | //STEP1 EXEC IGYWC, . . .
  | // PARM.COBOL='SQLIMS("string1")'
  | //COBOL.SYSIN DD *
  | CBL SQLIMS("string2")
  | CBL SQLIMS('string3')
  | IDENTIFICATION DIVISION.
  | PROGRAM-ID. DRIVER1
  | ...
  | The IMS suboptions are concatenated in the order of their
  | appearance. Thus in the example above, the compiler passes the
  | following suboption string to the IMS SQL coprocessor:
  | "string1 string2 string3"
  |
  | The concatenated strings are delimited with single spaces as
  | shown. If multiple instances of the same IMS suboption are
  | found, the last specification of each suboption prevails.
  | The compiler limits the length of the concatenated IMS
  | suboption string 4 KB.
  |
  | When SQLIMS is specified only CODEPAGE 37 and 1140 will be
  | allowed.
  
    Chapter 19. Debugging
    Topic: Getting listings
    Under "Signature information bytes" subsection
    Add to Table 54. Signature information bytes
    the following bit 7 of signature byte 1
  
  |    7      SQLIMS            NOSQLIMS
  
    Chapter 22. Developing COBOL programs for IMS
    Add to the bottom of chapter 22 the following sections:
  
  | IMS SQL coprocessor
  |
    (for details of this section, please see the ++HOLD for
     DOCUMENTATION)
  |
  
    Chapter 30. Writing object-oriented programs
    Add the following bullet to the list of restrictions:
  
  | - COBOL class definitions and methods cannot contain EXEC
  |    SQLIMS statements and cannot be compiled using the
  |    SQLIMS compiler option.
  
    Appendix D. EXIT compiler option
    Topic: Using the EXIT compiler option with CICS and SQL
           statements
    The first paragraph has been changed to:
  
  | When you compile using suboptions of the EXIT compiler
  | option, and your program contains EXEC CICS, EXEC SQL
  | or EXEC SQLIMS statements, the actions that you can take
  | in the exit modules depend on whether you use the separate
  | CICS translator and DB2 precompiler, or the integrated
  | CICS translator and DB2 coprocessor. If the program
  | contain EXEC SQLIMS statements the actions that you can
  | take in the exit modules are the actions listed for the
  | the integrated translator.
  
    Appendix D. EXIT compiler option
    Topic: Using the EXIT compiler option with CICS and SQL
           statements
    replace in Table 109 the term "EXEC SQL" With the term
    "EXEC SQL and EXEC SQLIMS"
  
    Appendix F. COBOL SYSADATA file contents
    Topic: Options record: X'0010'
           Table 115. SYSADATA options record
    Add the following bit to the fifth byte
  
  | ..1. ....  Bit 1 = SQLIMS, Bit 0 = NOSQLIMS
  
    Appendix F. COBOL SYSADATA file contents
    Topic: Token record: X'0030'
    Table 118. SYSADATA token record
    Add the following token:
  
  |    0840       SQLIMS
  
  | End of changes for:                                          |
  | Enterprise COBOL Programming Guide, SC14-7382-00             |
  +--------------------------------------------------------------+
  
  PUBS CLOSING CODE: DEVCHNG
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UK98481 UK98482 UK98483

Modules/Macros

• IGYCDOPT IGYCLVL0 IGYCOPI  IGYCOPT  IGYCRWT  IGYDMETA IGYDPR03
  IGYDPR06 IGYEEN$R IGYEEN$0 IGYEEN$4 IGYEJA$R IGYEJA$0 IGYEJA$4
  IGYICNTL IGYKCNFL IGYKCNTL IGYKSTAT IGYLADAT IGYLBASI IGYLCNTL
  IGYLCOPY IGYLLIBH IGYLLIBO IGYLSRVE IGYQMETA IGYQPR14 IGYSCNTL
  IGYSSQL  IGYTCNTL IGYTIMS  IGYTIMS1 IGYTIMS2 IGYTSQL  IGYTSQL1
  IGYTSQL2 IGYVCNTL IGYVSRVE
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R510 PSY UK98481

     UP13/10/22 P F310

• R511 PSY UK98482

     UP13/10/22 P F310

• R512 PSY UK98483

     UP13/10/22 P F310

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.