
TSIDAC2 Search Arguments and Calls Accessing DSN Catalog Records (TSIDAC2)
4-8 User Reference
TSIDAC2 Search Arguments and Calls
The following pages detail the specific procedures necessary to gain different types of access
to the DSN Catalog using TSIDAC2. Implement these procedures as steps 2 and 3 of the
procedure outlined in the previous section.
For the sake of discussion, we use the COBOL copybook (TSIDAC2.C) to name the data
fields described in this section, and all examples are coded in COBOL.
To request a complete dataset entry:
1. Move the dataset name to the USR-KEY field.
2. Issue multiple calls to TSIDAC2.
PROCEDURE DIVISION.
.
.
.
DSN-LOOP.
MOVE 'DATA.SET.NAME.A' TO USR-KEY.
CALL 'TSIDAC2' USING ACC-RECORD.
IF USER-RETURN-CODE = 1 GO TO END-OF-DSN
(process the catalog information here)
GO TO DSN-LOOP.
To request a master record only:
1.
Move the dataset name to the USR-KEY field.
2. Call TSIDAC2 just once.
PROCEDURE DIVISION.
.
.
.
MOVE 'DATA.SET.NAME.A' TO USR-KEY.
CALL 'TSIDAC2' USING ACC-RECORD.
.
.
.
To request a detail record by volume serial number:
1.
Move a hex 02 to USR-KEY-POS-1 and move the six-digit volume serial number to
USR-KEY-SER.
2.
Call TSIDAC2.
WORKING-STORAGE SECTION.
01 HEX-NUMBER PIC S9(4) COMP VALUE +2.
01 HEX-REDEF REDEFINES HEX-NUMBER.
05 FILLER PIC X.
05 HEX02 PIC X.
.
.
.
PROCEDURE DIVISION.
.
Description
Random Access
Example
Example
Example
Komentarze do niniejszej Instrukcji