
Accessing the VSE Label Area (TSIDGLB and TSIDPLB)
User Reference
Connectivity Systems, Inc.—Copyright © 2006
Use Pursuant to Company Instructions
8-27
TSIDGLB returns the label beginning at LBLFILNM. TSIDPLB writes
the label from the same area.
To read a label:
The following is an example of TSIDGLB.
...
MVC FILENAME,=CL7'INPFILE'
CALL TSIDGLB,(FILENAME,LBLRETCD)
...
COPY TSIDGLB
...
To write a label:
!
WARNING:
TSIDPLB does not validate the data on the label you write.
Therefore, you must ensure that the data is correct. Although the
label can be written successfully, results are unpredictable if the
data is incorrect.
The following is an example of TSIDPLB.
...
MVC FILENAME,=CL7'OUTFILE'
MVC LBLLEN,=H'80'
CALL TSIDPLB,(FILENAME,LBLRETCD)
...
COPY TSIDGLB
...
Step Action
1 Move the DTF name of the label to be processed to
FILENAME.
2 Call TSIDGLB, specifying FILENAME and LBLRETCD.
Step Action
1 Read the label using the TSIDGLB procedure.
2 Modify the label information (see the warning below).
3 Move the DTF name of the label to be processed to
FILENAME.
4 Move the length of the label to LBLLEN (80 for tape, 200 for
disk).
5 Call TSIDPLB, specifying FILENAME and LBLRETCD.
Commentaires sur ces manuels