Memorex LOCK - VERSION 2-24 Technical Information Seite 210

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 568
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 209
TSIDAC2 Subroutine
5-8 User Reference
Connectivity Systems, Inc.—Copyright © 2006
Use Pursuant to Company Instructions
Return Codes The following return codes are used.
Data is returned only if the return code is 0.
Example The following is an example of COBOL coding that can be used to invoke
TSIDAC2.
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.
3 Call TSIDAC2 from your
program.
This call requires that a
parameter list be passed to
TSIDAC2. The parameter list
consists of only the storage
area discussed in step 1.
4 Following the TSIDAC2 call,
you should check the return
code that is passed back in the
USER-RETURN-CODE field.
Step Action Description
Return
Code
Explanation
1 Function completed normally and the data has been returned in
USER-CATALOG-DATA.
2 End-of-file has been reached. This return code is issued when
reading the entire DSN Catalog via sequential access or when
reading all versions of a specific dataset using random access.
3 Requested data was not found in the DSN Catalog during a
random access call.
4 BIM-EPIC system is not active.
Seitenansicht 209
1 2 ... 205 206 207 208 209 210 211 212 213 214 215 ... 567 568

Kommentare zu diesen Handbüchern

Keine Kommentare