IBM® Rational Developer for System z admite categorías IMS entre las categorías de la vista Fragmentos de código.
Las categorías de los fragmentos de código de IMS son las siguientes:
Puede utilizar las primeras cuatro categorías de fragmento de código para añadir llamadas DL/I de IMS a su programa COBOL. Cada fragmento de código de tales categorías, corresponde a una función específica de DL/I. Al invocar uno de los fragmentos de código aparecerá un diálogo que le solicitará que especifique los detalles de la llamada de función de DL/I. En la parte superior del diálogo deberá especificar el tipo de interfaz que se debe utilizar en la llamada DL/I de la lista de interfaces compatibles con la llamada de función DL/I seleccionada. Los campos restantes corresponden a los parámetros de la llamada de DL/I correspondiente, con las excepciones siguientes:
Cuando utiliza tales fragmentos de código junto al editor LPEX de System z o el editor COBOL, se sustituirán de forma automática las referencias a los campos anidados de la AIB o los bloques de control PCB en el código de fragmento de código por los campos reales presentes en la AIB o bloque de control referenciado. Por ejemplo, al generar la línea de código MOVE LENGTH OF AIB TO AIBRLEN OF AIB, el generador de fragmento de código buscará el campo definido en desplazamiento 8 del bloque de control AIB seleccionado en el diálogo y lo utilizará como el nombre para el campo AIBRLEN. Si el bloque AIB no se puede analizar fuera del código, se utilizará un valor predeterminado para el campo.
Al generar la llamada DL/I, el generador de código de fragmento trata de buscar un campo de nivel 77 cuya cláusula VALUE equivale a la función DL/I y la utiliza en la llamada. Por ejemmplo, al crear el código para el fragmento de código GHN, el generador analiza el código y puede encontrar la siguiente declaración:
77 GET-HOLD-NEXT PICTURE X(4) VALUE 'GHN '.
En este punto, GET-HOLD-NEXT se sustituye en la llamada de función. Si no encuentra ninguna coincidencia, el nombre del fragmento de código (GHN en este caso) se utilizará en la llamada de función.
Estos fragmentos de código añaden estructuras de datos COBOL utilizadas con frecuencia en su programa.
Estos fragmentos de código añaden los nombres de función DL/I como estructuras de datos de nivel 77.