
Search Arguments and Calls
5-10 User Reference
Connectivity Systems, Inc.—Copyright © 2006
Use Pursuant to Company Instructions
To request a detail record by volume serial number:
Example The following is an example of COBOL coding that you can use to
request a detail record by volume serial number.
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.
.
.
.
MOVE HEX02 TO USR-KEY-POS-1.
MOVE 'EP3452' TO USR-KEY-SER.
CALL 'TSIDAC2' USING ACC-RECORD.
IF USER-RETURN-CODE NOT EQUAL ‘0’ GO TO ERROR.
.
.
Sequential
Access
To read the entire DSN Catalog sequentially:
Example The following is an example of COBOL coding that you can use to read
the entire DSN Catalog sequentially.
PROCEDURE DIVISION.
.
.
.
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.
To specify a starting point for sequential processing:
Step Action
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.
Step Action
1 Move spaces to the USR-KEY field.
2 Issue multiple calls to TSIDAC2.
Step Action
1 Move the starting dataset name into the USR-KEY field.
2 Call TSIDAC2.
3 Move spaces to the USR-KEY field.
Komentarze do niniejszej Instrukcji