Memorex LOCK - VERSION 2-24 Technické informace stáhnout pdf (Strana 364)

100

101

Accessing the VSE Label Area (TSIDGLB and TSIDPLB)

8-26 User Reference

Use Pursuant to Company Instructions

Accessing the VSE Label Area (TSIDGLB and

TSIDPLB)

Description TSIDGLB and TSIDPLB are subroutines that read and write VSE labels

in the VSE Label areas. TSIDGLB reads system-standard,

partition-standard, and partition user labels.

TSIDPLB modifies the label that TSIDGLB acquired. TSIDPLB writes

the label to an area BIM-EPIC maintains. When BIM-EPIC is active,

TSIDPLB checks for the label in this area before searching the VSE label

area.

Using the

Subroutines

You can call both subroutines at any time, before or after a dataset is

opened or closed. Both subroutines are called using standard IBM linkage

conventions.

You can read and modify the label of any dataset defined in your JCL.

However, tape dataset names are restricted to 17 characters. If you want

to create a new label, first read a TLBL or DLBL that has no parameters

except the DTF name.

A sample assembler program, TSIGLBL.A, and a sample COBOL

program, TSIGLBL.C, are provided as examples in the BIM-EPIC

installation library. These programs can be assembled or compiled to

demonstrate the coding techniques required to process VSE labels.

Data Area Use the assembler copybook, TSIDGLB.A, or the COBOL copybook,

TSIDGLB.C, for both subroutines. The following descriptions refer to the

data names in the assembler copybook.

Specify FILENAME and LBLRETCD as parameter list entries in your

CALL statement.

FILENAME contains the DTF name of the label to be processed. The

same DTF name must be specified in a JCL DLBL, TLBL, or DD

statement.

Both subroutines return a 1-byte binary value in LBLRETCD. A zero

indicates that the label was returned by TSIDGLB or written by

TSIDPLB. Any non-zero value indicates the label was not found or was

not written.

In LBLLEN, TSIDGLB returns a 2-byte, unaligned, binary field that

contains the length of the label returned. A length of 80 bytes indicates a

tape label. Any length greater than 80 bytes indicates a disk label.

TSIDPLB uses the label length from this field.

1 2 ... 359 360 361 362 363 364 365 366 367 368 369 ... 567 568

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

Žádné komentáře

Memorex LOCK - VERSION 2-24 Technické informace Strana 364

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