Función DL/I es el primer parámetro que se utiliza en un DL/I. Esta función indica qué operación se va a realizar en la base de datos de IMS el IMS DL/I. La sintaxis de DL/I es función de la siguiente manera:
01 DLI-FUNCTIONS. 05 DLI-GU PIC X(4) VALUE 'GU '. 05 DLI-GHU PIC X(4) VALUE 'GHU '. 05 DLI-GN PIC X(4) VALUE 'GN '. 05 DLI-GHN PIC X(4) VALUE 'GHN '. 05 DLI-GNP PIC X(4) VALUE 'GNP '. 05 DLI-GHNP PIC X(4) VALUE 'GHNP'. 05 DLI-ISRT PIC X(4) VALUE 'ISRT'. 05 DLI-DLET PIC X(4) VALUE 'DLET'. 05 DLI-REPL PIC X(4) VALUE 'REPL'. 05 DLI-CHKP PIC X(4) VALUE 'CHKP'. 05 DLI-XRST PIC X(4) VALUE 'XRST'. 05 DLI-PCB PIC X(4) VALUE 'PCB '.
Esta sintaxis representa los siguientes puntos clave:
Para este parámetro, podemos proporcionar cualquier nombre de cuatro caracteres como un campo de almacenamiento para almacenar el código de función.
DL/I parámetro de la función está codificada en la sección de almacenamiento de trabajo el programa COBOL.
Para especificar la función DL/I, el programador tiene que código en uno de los 05 nombres de datos nivel como DLI-GU en un DL/I llamada, desde COBOL no permite al código los literales en una instrucción CALL.
DL/I las funciones se dividen en tres categorías: obtener, actualizar y otras funciones. Analicemos cada uno de ellos en detalle.
Consiga las funciones son similares a la operación de lectura compatible con cualquier lenguaje de programación. Función que se utiliza para obtener segmentos de IMS bases de datos DL/I. Las siguientes funciones Get se usa en IMS DB:
Consideremos la siguiente estructura de la IMS DB para comprender el DL/I llamadas de función:
'GU' se usa el código de la función única. Que funciona de forma similar a la lectura aleatoria declaración en COBOL. Que se utiliza para obtener un segmento particular ocurrencia basado en los valores de campo. Los valores de campo puede proporcionarse mediante segmento argumentos de búsqueda. La sintaxis de un GU llamada es la siguiente:
CALL 'CBLTDLI' USING DLI-GU PCB Mask Segment I/O Area [Segment Search Arguments]
Si se ejecuta la instrucción call, proporcionando valores adecuados para todos los parámetros en el programa COBOL, puede recuperar el segmento en el segmento área de I/O de la base de datos. En el ejemplo anterior, si se proporcionan los valores de campo de biblioteca, revistas, y de la Salud, se obtiene la deseada presencia de la Salud.
'GN' se usa el código de la función siguiente. Que funciona de forma similar a la siguiente instrucción en COBOL. Que se utiliza para obtener segmento las apariciones en una secuencia. El modelo predefinido para tener acceso a los datos de las apariciones es hacia abajo en la jerarquía, y a la izquierda a la derecha. La sintaxis de la GN llamada es la siguiente:
CALL 'CBLTDLI' USING DLI-GN PCB Mask Segment I/O Area [Segment Search Arguments]
Si se ejecuta la instrucción call, proporcionando valores adecuados para todos los parámetros en el programa COBOL, puede recuperar la presencia en el segmento segmento área de I/O de la base de datos en un orden secuencial. En el ejemplo anterior, se inicia en el acceso a la Biblioteca, libros, segmento, y así sucesivamente. Realizamos el GN llamada una y otra vez, hasta llegar a la aparición de lo que queremos.
'GNP' código se utiliza para obtener el siguiente dentro de sus padres. Esta función se utiliza para recuperar segmento apariciones en secuencia subordinada a un determinado segmento padre. La sintaxis de un GNP es el siguiente:
CALL 'CBLTDLI' USING DLI-GNP PCB Mask Segment I/O Area [Segment Search Arguments]
'GHU' código se utiliza para obtener exclusivas. Función de retención especifica que vamos a actualizar el segmento después de recuperarlos. La única función que corresponde a la llamada. A continuación se muestra la sintaxis de una GHU llamada:
CALL 'CBLTDLI' USING DLI-GHU PCB Mask Segment I/O Area [Segment Search Arguments]
'GHN' código se utiliza para obtener siguiente. Función de retención especifica que vamos a actualizar el segmento después de recuperarlos. La siguiente función que corresponde a la siguiente llamada. A continuación se muestra la sintaxis de una llamada GHN:
CALL 'CBLTDLI' USING DLI-GHN PCB Mask Segment I/O Area [Segment Search Arguments]
'GHNP' se utiliza el código siguiente para obtener dentro de sus padres. Función de retención especifica que vamos a actualizar el segmento después de recuperarlos. El próximo en función principal corresponde a la siguiente matriz de llamada. A continuación se muestra la sintaxis de una GHNP llamada:
CALL 'CBLTDLI' USING DLI-GHNP PCB Mask Segment I/O Area [Segment Search Arguments]
Funciones de actualización son similares a re-escribir las operaciones de inserción o en cualquier otro lenguaje de programación. Funciones de actualización se utiliza para actualizar los segmentos de IMS bases de datos DL/I. Antes de utilizar la función de actualización, debe haber una llamada con éxito con cláusula en el segmento. La siguiente actualización se utilizan las funciones de IMS DB:
'ISRT' se utiliza el código de la función de insertar. El ISRT función se utiliza para agregar un nuevo segmento en la base de datos. Se utiliza para cambiar una base de datos existente o cargar una nueva base de datos. A continuación se muestra la sintaxis de una ISRT llamada:
CALL 'CBLTDLI' USING DLI-ISRT PCB Mask Segment I/O Area [Segment Search Arguments]
'DLET' código se utiliza para la función Eliminar. Se utiliza para eliminar un segmento de la IMS bases de datos DL/I. A continuación se muestra la sintaxis de una DLET llamada:
CALL 'CBLTDLI' USING DLI-DLET PCB Mask Segment I/O Area [Segment Search Arguments]
"Sustitución" se usa el código siguiente para obtener dentro de sus padres. La función de sustitución se utiliza para sustituir un segmento en el IMS bases de datos DL/I. A continuación se muestra la sintaxis de una REPL llamada:
CALL 'CBLTDLI' USING DLI-REPL PCB Mask Segment I/O Area [Segment Search Arguments]
Las siguientes funciones se usa en IMS DL/I, se pide:
'CHKP' código se utiliza para la función de control. Se utiliza en las funciones de recuperación de las inversiones. A continuación se muestra la sintaxis de una CHKP llamada:
CALL 'CBLTDLI' USING DLI-CHKP PCB Mask Segment I/O Area [Segment Search Arguments]
'XRST' código se utiliza para la función de reinicio. Se utiliza en el reinicio de IMS. A continuación se muestra la sintaxis de una XRST llamada:
CALL 'CBLTDLI' USING DLI-XRST PCB Mask Segment I/O Area [Segment Search Arguments]
PCB función se utiliza en los programas de la CICS IMS bases de datos DL/I. A continuación se muestra la sintaxis de un PCB llamada:
CALL 'CBLTDLI' USING DLI-PCB PCB Mask Segment I/O Area [Segment Search Arguments]
Puede encontrar más detalles acerca de estas funciones en la recuperación capítulo.