Memorex LOCK - VERSION 2-24 Specifikace Strana 161

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 489
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 160
Accessing DSN Catalog Records (TSIDAC2) TSIDAC2 Calling Procedure
Chapter 4. Accessing the DSN Catalog 4-7
Data is returned only if the return code is 0.
This is an example of the COBOL coding that can be used to invoke the TSIDAC2 subroutine.
WORKING-STORAGE SECTION.
01 ACC-RECORD COPY TSIDAC2.
PROCEDURE DIVISION.
MOVE (search argument) TO USR-KEY.
CALL 'TSIDAC2' USING ACC-RECORD.
IF USER-RETURN-OK GO TO PROCESS-THE-RECORD.
IF USER-RETURN-EOF GO TO END-OF-FILE.
IF USER-RETURN-NOT-ACTIVE GO TO SYSTEM-DOWN.
IF USER-RETURN-NOT-FOUND GO TO NOT-FOUND.
PROCESS-THE-RECORD.
Example
Zobrazit stránku 160
1 2 ... 156 157 158 159 160 161 162 163 164 165 166 ... 488 489

Komentáře k této Příručce

Žádné komentáře