IMS DB - DL/I Funciones

Funcin DL/I es el primer parmetro que se utiliza en un DL/I. Esta funcin indica qu operacin se va a realizar en la base de datos de IMS el IMS DL/I. La sintaxis de DL/I es funcin 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 parmetro, podemos proporcionar cualquier nombre de cuatro caracteres como un campo de almacenamiento para almacenar el cdigo de funcin.
DL/I parmetro de la funcin est codificada en la seccin de almacenamiento de trabajo el programa COBOL.
Para especificar la funcin DL/I, el programador tiene que cdigo en uno de los 05 nombres de datos nivel como DLI-GU en un DL/I llamada, desde COBOL no permite al cdigo los literales en una instruccin CALL.
DL/I las funciones se dividen en tres categoras: obtener, actualizar y otras funciones. Analicemos cada uno de ellos en detalle.

Funciones Get

Consiga las funciones son similares a la operacin de lectura compatible con cualquier lenguaje de programacin. Funcin que se utiliza para obtener segmentos de IMS bases de datos DL/I. Las siguientes funciones Get se usa en IMS DB:

Obtener nico
Obtener siguiente
Obtener siguiente dentro de padres
Conseguir nica
Se celebrar el prximo
Se celebrar el prximo de padres

Consideremos la siguiente estructura de la IMS DB para comprender el DL/I llamadas de funcin:

Obtener nico

'GU' se usa el cdigo de la funcin nica. Que funciona de forma similar a la lectura aleatoria declaracin 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 bsqueda. 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 instruccin call, proporcionando valores adecuados para todos los parmetros 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.

Obtener siguiente

'GN' se usa el cdigo de la funcin siguiente. Que funciona de forma similar a la siguiente instruccin 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 jerarqua, 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 instruccin call, proporcionando valores adecuados para todos los parmetros 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 aparicin de lo que queremos.

Obtener siguiente dentro de padres

'GNP' cdigo se utiliza para obtener el siguiente dentro de sus padres. Esta funcin 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]

Conseguir nica

'GHU' cdigo se utiliza para obtener exclusivas. Funcin de retencin especifica que vamos a actualizar el segmento despus de recuperarlos. La nica funcin que corresponde a la llamada. A continuacin se muestra la sintaxis de una GHU llamada:

CALL 'CBLTDLI' USING DLI-GHU
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Se celebrar el prximo

'GHN' cdigo se utiliza para obtener siguiente. Funcin de retencin especifica que vamos a actualizar el segmento despus de recuperarlos. La siguiente funcin que corresponde a la siguiente llamada. A continuacin se muestra la sintaxis de una llamada GHN:

CALL 'CBLTDLI' USING DLI-GHN
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Se celebrar el prximo de padres

'GHNP' se utiliza el cdigo siguiente para obtener dentro de sus padres. Funcin de retencin especifica que vamos a actualizar el segmento despus de recuperarlos. El prximo en funcin principal corresponde a la siguiente matriz de llamada. A continuacin se muestra la sintaxis de una GHNP llamada:

CALL 'CBLTDLI' USING DLI-GHNP
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Funciones de actualizacin

Funciones de actualizacin son similares a re-escribir las operaciones de insercin o en cualquier otro lenguaje de programacin. Funciones de actualizacin se utiliza para actualizar los segmentos de IMS bases de datos DL/I. Antes de utilizar la funcin de actualizacin, debe haber una llamada con xito con clusula en el segmento. La siguiente actualizacin se utilizan las funciones de IMS DB:

Insertar
Eliminar
Sustituir

Insertar

'ISRT' se utiliza el cdigo de la funcin de insertar. El ISRT funcin 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 continuacin se muestra la sintaxis de una ISRT llamada:

CALL 'CBLTDLI' USING DLI-ISRT
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Eliminar

'DLET' cdigo se utiliza para la funcin Eliminar. Se utiliza para eliminar un segmento de la IMS bases de datos DL/I. A continuacin se muestra la sintaxis de una DLET llamada:

CALL 'CBLTDLI' USING DLI-DLET
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Sustituir

"Sustitucin" se usa el cdigo siguiente para obtener dentro de sus padres. La funcin de sustitucin se utiliza para sustituir un segmento en el IMS bases de datos DL/I. A continuacin se muestra la sintaxis de una REPL llamada:

CALL 'CBLTDLI' USING DLI-REPL
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Otras funciones

Las siguientes funciones se usa en IMS DL/I, se pide:

Checkpoint
Reinicie
PCB

Checkpoint

'CHKP' cdigo se utiliza para la funcin de control. Se utiliza en las funciones de recuperacin de las inversiones. A continuacin se muestra la sintaxis de una CHKP llamada:

CALL 'CBLTDLI' USING DLI-CHKP
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Reinicie

'XRST' cdigo se utiliza para la funcin de reinicio. Se utiliza en el reinicio de IMS. A continuacin se muestra la sintaxis de una XRST llamada:

CALL 'CBLTDLI' USING DLI-XRST
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

PCB

PCB funcin se utiliza en los programas de la CICS IMS bases de datos DL/I. A continuacin se muestra la sintaxis de un PCB llamada:

CALL 'CBLTDLI' USING DLI-PCB
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Puede encontrar ms detalles acerca de estas funciones en la recuperacin captulo.

Print Page