Memorex LOCK - VERSION 2-24 Información técnica Pagina 213

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 568
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 212
Search Arguments and Calls
User Reference
Connectivity Systems, Inc.—Copyright © 2006
Use Pursuant to Company Instructions
5-11
Example The following is an example of COBOL coding that you can use to
specify a starting point for sequential processing.
PROCEDURE DIVISION.
.
.
.
MOVE 'DATA.SET.NAME.B' TO USR-KEY.
CALL 'TSIDAC2' USING ACC-RECORD.
SEQUENTIAL-READ.
MOVE SPACES TO USR-KEY.
CALL 'TSIDAC2' USING ACC-RECORD.
IF USER-RETURN_CODE = 1
GO TO END-OF-CATALOG.
(process the catalog information here)
GO TO SEQUENTIAL-READ.
Terminating
Sequential
Access
Sequential access to the DSN Catalog is terminated at end-of-file, under
normal conditions. In certain circumstances, however, you may want to
terminate sequential processing prior to end-of-file and allow your
programs to change between sequential and random processing. No
records are returned when performing this type of call.
To terminate sequential processing prior to end-of-file:
Example The following is an example of COBOL coding that you can use to
terminate sequential processing prior to end-of-file.
PROCEDURE DIVISION.
.
.
.
MOVE HIGH-VALUES TO USR-KEY.
CALL 'TSIDAC2' USING ACC-RECORD.
.
.
.
Releasing
GETVIS
The first time TSIDAC2 is called, TSIDAC2 acquires partition GETVIS
storage for various purposes. If your program has more processing to do
after finishing with TSIDAC2, the storage can be released. To release the
storage:
4 Issue multiple calls to TSIDAC2.
Step Action
Step Action
1 Move high-values (hex FF) to the USR-KEY field.
2 Call TSIDAC2.
Step Action
1 Move low-values (hex 00) to USR-KEY.
2 Call TSIDAC2.
Vista de pagina 212
1 2 ... 208 209 210 211 212 213 214 215 216 217 218 ... 567 568

Comentarios a estos manuales

Sin comentarios