
Search Arguments and Calls
User Reference
Connectivity Systems, Inc.—Copyright © 2006
Use Pursuant to Company Instructions
5-9
Search Arguments and Calls
Description The following explains specific procedures you can use to gain access to
the DSN Catalog when using TSIDAC2. Implement these procedures as
steps 2 and 3 of the procedure outlined in the previous section.
The examples use the COBOL copybook (TSIDAC2.C) to name the data
fields described in this section. All examples are in COBOL.
Random
Access
To request a complete dataset entry:
Example The following is an example of COBOL coding that you can use to
request a dataset entry.
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
IF USER-RETURN-CODE NOT EQUAL ‘0’ GO TO ERROR.
(process the catalog information here)
GO TO DSN-LOOP.
To request a master record only:
Example The following is an example of COBOL coding that you can use to
request a master record only.
PROCEDURE DIVISION.
.
.
.
MOVE 'DATA.SET.NAME.A' TO USR-KEY.
CALL 'TSIDAC2' USING ACC-RECORD.
IF USER-RETURN-CODE NOT EQUAL ‘0’ GO TO ERROR.
.
.
Step Action
1 Move the dataset name to the USR-KEY field.
2 Issue multiple calls to TSIDAC2.
Step Action
1 Move the dataset name to the USR-KEY field.
2 Call TSIDAC2 once.
Commentaires sur ces manuels