Memorex LOCK - VERSION 2-24 Specifikace stáhnout pdf (Strana 305)

Accessing the VSE Label Area (TSIDGLB and TSIDPLB)

Chapter 8. BIM-EPIC Utilities 8-21

Accessing the VSE Label Area (TSIDGLB and TSIDPLB)

TSIDGLB and TSIDPLB are subroutines that can be called by your program to read and write

VSE labels. TSIDGLB is used to read system-standard, partition-standard, and partition user

labels.

TSIDPLB is used to modify a label that was acquired by TSIDGLB. TSIDPLB writes the

label to an area maintained by BIM-EPIC. When BIM-EPIC is active, it checks for the label

in this area first before searching the VSE label area.

You can call both subroutines at any time, before or after a dataset is opened or closed. Both

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.

Sample assembler and COBOL programs (TSIGLBL.A and TSIGLBL.C) are provided as

examples. These can be assembled or compiled and run to demonstrate the coding techniques

required to process VSE labels. These programs can be found in the BIM-EPIC installation

library.

Use the assembler copybook (TSIDGLB.A), or the COBOL copybook (TSIDGLB.C), for

both subroutines. The discussion below refers to the data names in the assembler copybook.

Specify FILENAME and LBLRETCD as parameter list entries on your CALL statement.

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

be specified in JCL.

Both subroutines return a 1-byte binary value in LBLRETCD. A zero (0) 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 the label is for tape. Any length greater than 80

indicates the label is for disk. TSIDPLB uses the label length from this field.

TSIDGLB returns the label beginning at LBLFILNM. TSIDPLB writes the label from the

same area.

Description

Using the

Subroutines

Data Area

1 2 ... 300 301 302 303 304 305 306 307 308 309 310 ... 488 489

Žádné komentáře

Memorex LOCK - VERSION 2-24 Specifikace Strana 305