I
I
PrecedingI
Stack Data(1) Flag
Bit 0 0
=
Dismount disk 1=
Dismount tape Bit 1 1 = No display option.Lower Address
Higher Address
Do not write to caller's workstation Bit 2 1 = No wait option
Do not write dismount message, tell SYSTASK to erase dismount message.
(2) Volume set ID
(3) Volume name (6 bytes) Stack On Output
O(SP)
(1) Return Code Preceding Stack Data (1) Return code
Output
Lower Address Higher Address
DISMOUNT issues a return code to the user program in the topword of the stack as follows:
Code 0 4
8 12 16 20 24 28 32 36 40 44
Examples
Description Success.
Input volume name is blank, or bytes 0-1 in input are nonzero.
Volume not found.
Volume can not be dismounted.
Device detached.
Volume in use by a user or the operating system.
Volume reserved by another user.
GETMEM pool failure.
Device is reserved by another task.
IPC error.
Volume cannot be mounted, I/O in progress.
Success, but VSCB deallocation failed.
DMO DISMOUNT VOLUME='VOL444',TYPE=DISK
+DMO PUSHN 0,8 GET TWO WORDS ON THE STACK + MVC 2(6,15),*+10 SET VOLUME NAME
+ B *+10 BRANCH AROUND CONSTANT
+ DC CL6'VOL444' VOLUME NAME
+ MVI 0(15),X'OO' SET FLAG FOR DISK VOLUME
+ MVI 1(15),X'OO' SET BYTE 1 TO ZEROES (RESERVED) + SVC 41 (DISMOUNT) ISSUE SVC
DMl +DMl + + + +
DISMOUNT VOLUME=CR4) PUSHN 0,8
MVC 2(6,15),0(R4) MVI 0(15),X'OO' MVI 1(15),X'OO' SVC 41 (DISMOUNT)
GET TWO WORDS ON THE STACK SET VOLUME NAME
SET FLAG FOR DISK VOLUME
SET BYTE 1 TO ZEROES (RESERVED) ISSUE SVC
DM2 +DM2 + + + +
LAB + LAB + + + +*
+
DISMOUNT VOLUME=TAPEVOL,TYPE=TAPE
PUSHN 0,8 GET TWO WORDS ON THE STACK MVC 2(6,15),TAPEVOL SET VOLUME NAME
MVI 0(15),X'80' SET FLAG FOR TAPE VOLUME
MVI 1(15),X'OO' SET BYTE 1 TO ZEROES (RESERVED) SVC 41 (DISMOUNT) ISSUE SVC
DISMOUNT PUSHN 0,8 MVC
MVI MVI SVC 41
VOLUME=TAPEVOL,TYPE=TAPE 2(6,15),TAPEVOL
0(15) ,X' 80' 1(15) ,X' 00 I (DISMOUNT)
GET TWO WORDS ON THE STACK SET VOLUME NAME
SET FLAG FOR TAPE VOLUME SET BYTE 1 TO ZEROES
(RESERVED) ISSUE SVC
4.2.21 ENDLOCAL - End Generation of Local Symbol Names Syntax
END LOCAL Function
Turns off the automatic generation of local symbol names initiated by
the use of the LOCAL macro.
Example
See the use of this macro in the example under LOCAL.
4.2.22 EXTRACT - Extract Data From System Control Blocks (SVC 28) Syntax
[label] EXTRACT FORM={BRIEF},AREA=address
{FULL }
{PCPCW}
{LIST }
[,ALOGFTIME=address][,ASUPPORT=address] [,ATOETRT=address]
(,CDISKET=address] [,CPU=address] [,CURLIB=address]
[,CURVOL=address] [,CURRENCY=address] [,DATEFMT=address]
[,DATESEP=address] [,DECIMALPT=address][,DEVCNT=address]
[,DISKIO=address] [,DYVAL=address] [,ETOATRT=address]
[,EXFLGS=address] [,EXTPRIOR=address] [,ETIME=address]
[,FILECLAS=address] [,FORM#=address] [,HZ=address]
[,INLIB=address] [,INVOL=address] [,JOBCLASS=address]
[,JOBLIMIT=address] [,JOBNAME=address] [,JOBQUEUE=address]
[,LINES=address] [,NATION=address] [,NRES=address]
[,OCNT=address] [,OTIO=address] [,OUTLIB=address]
[,OUTVOL=address] [,PCPCW=address] (,PICOUNT=address]
[,POCOUNT=address] [,PRINTER=address] [,PRINTIO=address]
[,PRNTMODE=address] [,PROGLIB=address] [,PROGVOL=address]
[,PRTCLASS=address] [,PTIME=address] [,RDFLGS=address]
[,RUNLIB=address] [,RUNVOL=address] [,SEG2BUF=address]
[,SEG2SIZE=address] (,SEG2SZE=address] [,SICOUNT=address]
[,SOCOUNT=address] [,SPOOLIB=address] [,SPOOLSYS=address]
[,SPOOLVOL=address] [,STACK=address] [,STATIC=address]
[,SYSID=address] [,SYSLIB=address] [,SYSNAME=address]
[,SYSPAGE=address] [,SYSVOL=address] [,SYSWORK=address]
[,TAPEIO=address] [,TASK#=address] (,TASKTYPE=address]
[,THOUSSEP=address] [,TIMESEP=address] [,UEXFLGS=address]
(,URDFLGS=address] [,USERID=address] (,USERNAME=address]
[,UWTFLGS=address] [,VERSION=address] [,VOICEIO=address]
[,WORKLIB=address] [,WORKVOL=address] [,WS=address]
[,WSIO--address] [,WTFLGS=address] [,PRTFILECLAS=address]
[,ALOGFENAB=(inaddress,outaddress)]
[,CLUSTER=(inaddress,outaddress)]
[,DEVICE=(inaddress,outaddress)]
[,DLPNAME=(inaddress,outaddress)]
[,TAPEVOL=(inaddress,outaddress)]
[,VOLVCB=(inaddress,outaddress)]
[,DEVLIST=(inaddress,outaddress,outarealength)]
[,DLPDEV#=(inaddress,outaddress,outarealength)]
(,OTASK=(inaddress,outaddress,outarealength)]
[,VOLUME=(inaddress,outaddress,outarealength)]
Function
Describes the type of information required.
Used to request four items as described below. The output area must be at least 12 bytes long.
(1) Amount of memory, in bytes, that is currently not fixed (4 bytes).
(2) Number of files that a task may have open simultaneously (2 bytes).
(3) Workstation number associated with requesting task, or -1 if no associated workstation (2 bytes). simultaneously (2 bytes).
(3) Workstation number associated with requesting task, or -1 if no associated workstation (2 bytes). currently available (2 bytes).
PCPCW
AREA
LIST
(19) Print output mode: Spooled ( S) , Keep (K), Hold (H), or On-line (0) (1 byte).
(20) Default output file-protection class, or blank (1 byte).
(21) User logon identification (3 bytes).
(22) Task current paging priority, from task control block ( 1 byte) .
(23) Suggested lines-per-page for print files (1 byte).
(24) Operating system version nwnber (packed nwnber in the format VVRRPP, where VV is the version, RR is the revision, and PP is the patch level) (3 bytes).
Program control word (PCW) at the time of the most recent program exception for which a user exit was specified ( 8 bytes). PCPCW is used to request the value of the current PCW when a program exception occurs for which an exit routine was provided, and intended for use in such a routine. Its use at other times results in undefined and irrelevant output. The output area must be at least 8 bytes long.
Specifies the address of the output area, either as an expression addressing that area, or as a register expression in parentheses, where the register contains the address of the area. Not valid with FORM=LIST.
Used when a list of needed items is supplied. The parameter specifies the address of an area to receive the corresponding data item.
To use any of the parameters described below, FORM=LIST must be specified.
ALOGFTIME
AS UP PORT
ATOETRT
CDISKET
Automatic logoff time interval is used to obtain the maximum time that a workstation may remain inactive before it is automatically logged off. Time may be from 0 to 99 minutes. Returns one halfword with the time in the least significant byte (2 bytes).
Application support Mailway®, and DMS/TX byte).
is used to determine if WP, are supported on the system ( 1
ASCII-to-EBCDIC translation table (256 bytes). See TR instruction in VS Principles of Operation manual for use.
Device nwnber of system's central diskette (2 bytes).
~
CPU CURLIB CURRENCY CURVOL DATESEP DATEFMT DECIMALPT DEVCNT DISKIO DYVAL ETIME ET OAT RT
EXFLGS EXTPRIOR FILECLAS FORM#
HZ
INLIB INVOL JOBCLASS JOBLIMIT JOBNAME
Current CPU ID (2 bytes).
Library in which current program resides (8 bytes).
Currency symbol (3 bytes).
Volume where current program resides (6 bytes).
Date separator (1 byte).
Indicates whether the date set is in European or American format (1 byte).
Decimal point character (1 byte).
Highest device number in device configuration (4 bytes).
Count of disk I/Os for this run (4 bytes).
One day in clock units (4 bytes).
Elapsed run time since command processor initiation, in hundredths of seconds (4 bytes).
EBCDIC-to-ASCII translation table (256 bytes). See TR instruction in VS Principles of Operation manual for use.
Current file-access bit map for execute access, from program file block CPFB)(4 bytes).
Task's current paging priority from task control block ( 1 byte).
Default output file-access protection class, or blank (1 byte).
Default form number for print files (0-254) (1 byte).
A/Cline frequency (2 bytes).
Default input library (8 bytes).
Default input volume for OPEN (6 bytes).
Default job class (A-Z) (1 byte).
Default job CPU time limit (4 bytes).
Name of background job (8 bytes).
JOBQUEUE LINES
NRES
NATION OCNT
OTIO OUTLIB OUTVOL PCPCW PI COUNT POCOUNT PRINTER PRINT IO PRNTMODE PROGLIB PROGVOL PRTCLASS PRTFILECLAS PTIME
RDFLGS RUNLIB RUNVOL
Default job status: Run (R) or Hold CH) (1 byte).
Suggested lines-per-page for print files Cl byte).
Total physical area not currently resident, in bytes (4 bytes).
Nation code (1 byte)
Number of files that current task can have open simultaneously, excluding files already open (2 bytes).
Count of I/Os for other devices not included under WSIO, DISKIO, PRINTIO, or TAPEIO (4 bytes).
Default output library (8 bytes).
Default output volwne for OPEN (6 bytes).
Program Check Old PCW for last program check (8 bytes).
Program pagein count (4 bytes).
Program pageout count (4 bytes).
Task's default printer number, or -1 if no default printer (2 bytes).
Count of printer I/Os for this run (4 bytes).
Default print output mode (1 byte).
User program library used by LINK SVC (8 bytes).
User program volwne name used by LINK SVC (6 bytes).
Default print class for print files (A-Z) Cl byte).
Default file class for print class Cl byte).
Processor time of run since command processor initiation, in hundredths of seconds (4 bytes).
Current file-access bit map for read access, from program file block (PFB) (4 bytes).
User program library name, used by command processor RUN function ( 8 bytes).
User program library volwne, used by command processor RUN function (6 bytes).
SEG2BUF SEG2SIZE SEG2SZE SI COUNT SOCOUNT SPOOLIB SPOOLSYS SPOOL VOL STACK STATIC
SYS ID SYSLIB SY SN AME SYS PAGE SYSVOL SYSWORK TAPEIO TASK#
TASKTYPE
Number of the user modifiable area buffer pages currently available (2 bytes).
Length of the user modifiable area, in bytes (4 bytes).
Default the user modifiable area size for any task in the system (2 bytes).
System pagein count (4 bytes).
System pageout count (4 bytes).
Spool library name constructed from user ID or background task number (8 bytes).
Remote system to which print files are automatically routed via file transfer service (8 bytes).
Default spool volume (6 bytes).
Remaining stack space in bytes after return from EXTRACT (4 bytes).
Pointer to beginning program ( 4 bytes) • re-establishing the routine.)
of static areas for current This pointer may be useful in ability to address in a CEXIT System WangNet name (8 bytes).
System default library name (8 bytes).
System name (16 bytes).
System paging library name (8 bytes).
System default library volume name (6 bytes).
System work library (paging files, system task queues, etc.) which BACKUP skips (8 bytes).
Count of tape I/Os this run (4 bytes).
Unique task identifier (4 bytes).
Task type CF for foreground, FS for dedicated foreground system task, B for background task, and BS for dedicated background system task) (2 bytes).
THOUS SEP TIMESEP UEXFLGS
URDFLGS USERID USERNAME UWTFLGS VERSION
VOICEIO WORKLIB WORKVOL
ws
WSIO WTFLGS
Thousands separator Cl byte).
Time separator Cl byte).
User's base file-access bit map for execute access, from user's extended task control block CETCB) (4 bytes).
User's base file-access bit map for read access, from user's extended task control block CETCB) (4 bytes).
User logon identification (3 bytes).
User name (from system user list) (24 bytes).
User's base file-access bit map for update access, from user's extended task control block CETCB) (4 bytes).
Operating system version number, which is a packed number in the format WRRPP, where VV is the version, RR is the revision, and PP is the patch level (3 bytes).
The number of voice device I/Os for this run Cl byte).
Work library name constructed from user ID or background task number (8 bytes).
Default work volume (6 bytes).
Workstation number associated with requesting task, or -1 if no associated workstation (2 bytes).
Count of workstation I/Os for this run (4 bytes).
Current file-access bit map for update access, from program file block (PFB) (4 bytes).
For the following seven parameters, two addresses are supplied. The first address specifies further input, and the second address specifies an area to receive the corresponding data. To use these parameters, FORM=LIST must be specified.
ALOGFENAB Input: Device number in hex Cl byte).
Output: Automatic logoff enable status (1 byte).
Y = YES, N = NO, hex 0 = invalid device number.
CLUSTER Input: Device number (2 bytes).
DEVICE
Output:
NOTE
( 1) Device nwnber of the archiver diskette, or 0 if none (2 bytes).
(2) Device number of the next device on the cluster, or 0 if none (2 bytes).
(3) IOP port (1 byte). The value is taken from the UCBDRTEPORT field of the unit control block
CUCB).
(4) Broadband channel (1 byte). The value is taken from the UCBDRTECHL field of the UCB.
(5) Short address (1 byte). The value is taken from the UCBDRTEASA field of the UCB.
(6) Device on the cluster (1 byte). The value is taken from the UCBDRTEDCC field of the UCB.
(7) Cluster on port (1 byte). The value is taken from the UCBDRTECC field of the UCB.
(8) Spare (7 bytes).
The CLUSTER parameter is used to obtain the device number of the archiver diskette on the same cluster as the input device number. If more than one archiver diskette is on the cluster, then the archiver diskette device number returned is the next in sequence.
Input:
Output:
Device address (1 byte).
(1) Device class (1 byte).
(2) Device type Cl byte).
(3) Usage: EX (exclusive), SH (shared), or DT (detached) (2 bytes).
( 4) Task identifier of device owner, or -1 if no task identifier (4 bytes).
(5) Volume name of removable volume, disk or tape only (6 bytes). Blank if nothing mounted.
(6) Volume name of fixed volume, disk only (6 bytes). Blank if nothing mounted.
( 7) Density support for tapes (2 bytes). First byte = T for triple density, = D for double density. Second byte
=
G for 6250 BPI CGCR mode).For disks, this value represents the following:
VSID for removable (1 byte); VSID for fixed (1 byte).
(8) Physical device address (2 bytes)
DLPNAME
NOTE
Input: Name of Data Link Processor (as specified in the SYSGEN procedure).
The output area contains all zeroes if the specified DLP name is invalid.
IOPTYPE
Output: (1) Bit map of devices on DLP (4 bytes).
(2) First device on DLP (2 bytes).
(3) Type of DLP (1 = 22V06-l, 2 = 22V06-2, 3 = 22V06-3) Cl byte).
(4) Number of lines CRS-232) controlled by the DLP Cl byte>.
(5) Microcode file status: X'OO' if stopped, X'80' if loaded (1 byte).
(6) DLPKIND '0' = peripheral/device processor, '1' =device processor (1 byte).
(7) Reserved for future use (2 bytes).
C 8) Microcode file name C 8 bytes), zero if not loaded.
(9) Microcode library name (8 bytes), zero if not loaded.
(10) Microcode volume name (6 bytes), zero if not
loaded. ~
(11) Reservation status of DLP (1 byte): X'80' if reserved, X'OO' if not
(12) Task number of OLP ( 3 bytes ) .
(13) Current protocol (14) Loadable status:
reserved.
the task which reserved the ID (2 bytes).
X'OO' nonloadable X'Ol' loadable Input: Device address Cl byte).
Output: ( 1) IOP/IOC type ( 1 byte) . The value is taken from the PPBTYPE field of the peripheral processor block (PPB) for the IOP associated with the input device address.
(2) Spare (11 bytes).
TAPEVOL
VOLVCB
Input:
Output:
Volwne serial number (6 bytes).
(1) Device address, or -1 if volwne not mounted (1 byte).
(2) 1 byte of binary zeroes (reserved).
(3) Density, BPI in binary: 556, 800, or 1600 (2 bytes).
(4) Label type: AL (ANSI), NL (no label), IL (IBM label), or blank if volwne not mounted (2 bytes).
(5) Usage: SH (shared), EX (exclusive), or blank if not mounted (2 bytes).
( 6) Task identifier of tape mounter, or -1 if no task ID (4 bytes).
(7) Current file sequence number (2 bytes).
(8) 6 bytes of binary zeroes (reserved).
Input: Volwne name (6 bytes).
Output: (1) VCB address (4 bytes).
(2) Reserved (4 bytes).
The next four parameters each have three subparameters. The first subpararneter specifies the address of further input, the second subparameter specifies the address of an area to receive the corresponding data, and the third subparameter is the length of the output area (specified as an expression or register in parentheses). The maximum number of device addresses in the device list is two less than the output length specified.
DEVLIST Input:
Output:
DLPDEV# Input:
Output:
NOTE
Device class, as in EXTRDDEVCLASS Cl byte).
( 1) Total number of devices for specified device class (1 byte).
(2) Number of device addresses supplied (1 byte).
( 3) Device address list ( 1 byte for each device address).
Device address (2 bytes).
Cl) Device status flag ( 1 byte): X' 80' if open, X'40' if reserved, zero otherwise.
(2) Task number of the task which reserved the OLP, or zero if device is unreserved (3 bytes).
(3) Name of the DLP on which the device is configured (4 bytes).
For the DLPDEV# parameter, the output area contains zeroes if the specified device address is invalid.
OTASK
NOTE
Input: Task identifier (4 bytes).
Output: ( 1) Workstation device number of task specified, or -1 if no associated workstation Cl byte).
(2) Current user ID for task specified, or blank if no associated user ID (3 bytes).
(3) Current user name for task specified, or blank if no associated user name (24 bytes).
(4) Type (F, FS, B, BS) of task specified (see TASKTYPE) ( 2 bytes) .
(5) Status of task (18 bytes).
(6) Name of initial program run (8 bytes).
(7) Name of current program run (8 bytes).
(8) Initial program start date (4 bytes).
(9) Initial program start time (4 bytes).
( 10) Elapsed time since CP initiation, in hundredths of seconds (4 bytes).
(11) Processor time since CP initiation, in hundredths of seconds.
(12) Count of workstation I/O since initial program run (4 bytes).
(13) Count of disk I/O since initial program run (4 bytes).
( 14) Count of tape I/O since initial program run (4 bytes).
(15) Count of printer I/O since initial program run (4 bytes).
(16) Count of other I/O since initial program run (4 bytes).
(17) Program pagein count (4 bytes).
(18) Program pageout count (4 bytes).
(19) System pagein count (4 bytes).
(20) System pageout count (4 bytes).
(21) Reserved (4 bytes).
The VOLUME parameter cannot be used for volume sets. Use VSETINFO or VOLINFO.
VOLUME
EXl
FORM=LIST WITH ADDITIONAL INPUT
~
4.2.23 EXTRD - Describe Output Area For The Extract SVC Syntax
EXT RD [NODSECT][,REG=expression][,SUFFIX=character]
Function
Describes the data structure used by the EXTRACT supervisor call to store the values of the requested information.
Parameter Definitions NODSECT
REG SUFFIX
Structure
EXT RD
BEGIN ~
CLASSO
I
+O+4 +8 ORG
CLASSl +o +4 +8 +c SYSVOL
I
+10+14 +18 +lC RUNVOL
I
+20 +24 +28 +2C +30 +34Specification of NODSECT results in the EXTRD fields being assembled as part of the current CSECT, DSECT, or STATIC section. If not specified, the system generates a DSECT with the name EXTRD (plus the optional suffix).
Provides the optional specification of a register for which a USING statement for the EXTRD fields is generated.
If provided, all labels are generated by the concatenation of the letters EXTRD, the user-provided SUFFIX Cone ASCII character in length), and the field name.
BYTE 0 BYTE 1 BYTE 2 BYTE 3
NRES
OCNT
ws
STACK
DYVAL SCDVOL
SCDNAME +16 i SYSLIB
DEFPRT +lE i PRINTER
UPDVOL
UPDNAME +26 i RUNLIB
EXLFGS
VOL +32 l INVOL
BYTE 0 BYTE l BYTE 2 BYTE 3
~' INLIB +38 FILEl
+3C
+40 RDFLGS OUTVOL +44 VOLO
+48 FILElO +4A t OUTLIB
+4C
+so I WTFLGS
+S4
I
SEG2BUFPRNTMODEf +S8 PRTTYPE FPCLASS I USERID TCBSCC +S9 t FILECLAS +SC EXTPRIORI LINES VERSION +SD t TCBSCC
+60 I DEFLIBlN +SF t SPAREl
+64
+68 DEFLIBlV
+33A I ORG
CLASS2 +o PCPCW +4
ORG ~
+o DEVCLASSI TYPE DEVUSAGE +4 DEVUSER
+8 DEVREM
+c DEVFUCED
+10
+14 DEVSPEC IDEVSPEC2 IDEVPDA ORG
+o VOLD EV VOLTYPE VOLLABEL I
+4 VOL USAGE VOL USER
I
+8 VOLBC
I
+c VOLMAXTFR VOLCV I
+10 VOLCVP VOLOCNT I
+14 VOLSECT I VOLADDR VOLTOL
I
+18 VOL PAGE I VOLSPOOL VOLWORK I VOLSECUREI +lC VOLCVD XLMTOPENIXLMTTOTL
I
BYTE 0 BYTE 1 BYTE 2 BYTE 3
~
ORG
+O OTASKWS OTASKUID +4 OTASKNAME
+8 +c +10 +14 +18
+IC OTASKTYPE OTASKSTAT +20
+24 +28 +2C
+30 OTASKPROGI +34
+38 OTASKPROGC +.3C
+40 OTASKIDATE +44 OTASKITIME +48 OTASKETIME +4C OTASKPTIME +SO OTASKWSIC +S4 OTASKDSKIO
~ +S8 OTASKTAPIO
+SC OTASKPRTIO +60 OTASKVCIO +64 OTASKOTIO +68 OTASKPICNT +6C OTASKPOCNT +70 OTASKSICNT +74 OTASKSOCNT +78 OTASKSPARE ORG
+o TAPED EV TPESPARll TAPED EN +4 TAPELABEL
I
TAPEUSAGE +8 TAPEUSER+c TAPEFSEQ TAPESPAR2
+10 ORG
+O
I
DLTOT DLNUM DLENTRYI
+2 t DLISTORG
Example
VERSION 2.01 (INCLUDES 2246C WORKSTATION) EXTRDBEGIN USE-FROM EXTRACT MACRO O*****************************************
OS OXL12 RETURNED FOR CLASS 0:
OS AL4 PHYSICAL MEMORY (BYTES) NOT PERMANENTLY RESIDENT OS HL2 NUMBER OF FILES WHICH
CURRENT TASK MAY HAVE OPEN, EXCLUDING FILES ALREADY OPEN
OS HL2 TASK'S ASSOCIATED
OS AL4
WORKSTATION NUMBER, OR -1 IF NONE
REMAINING STACK SPACE
***********************CLASS l*****************************************
ORG EXTRDBEGIN
EXTRDCLASSl OS OXL98 RETURNED IN ADDITION
*
FOR CLASS 1: SYSTEM DEFAULT LIBRARYVOLUME NAME
SYSTEM DEFAULT LIBRARY Nl\ME
DEFAULT ONLINE PRINTER DEVICE NUMBER, OR -1 OF NONE
USER PROGRAM LIB.VOLUME USER PROGRAM LIB.NAME
'EXECUTE' ACCESS MASK
EXTRDVOL DS CL6 DEFAULT INPUT VOLUME
EXTRDINLIB DS OCL8
EXTRDFILEl DS CL8 DEFAULT INPUT LIBRARY ~
EXTRDRDFLGS DS BL4 'READ' ACCESS MASK
EXTRDOUTVOL DS OCL6
EXTRDVOLO DS CL6 DEFAULT OUTPUT VOLUME
EXTRDOUTLIB DS OCL8
EXTRDFILElO DS CL8 DEFAULT OUTPUT LIBRARY
EXTRDWTFLGS DS BL4 'WRITE' ACCESS MASK
EXTRDSEG2BUF DS BL2 NUMBER OF USER MODIFIABLE
*
AREA 'BUFFER' PAGES*
CURRENTLY AVAILABLEEXTRDPRNTMODE DS OCLl
EXTRDPRTTYPE DS CLl PRINT OUTPUT MODE
*
( Is
I , 'H I , OR I 0 I )EXTRDFILECLAS DS OCLl
EXTRDFPCLASS DS CLl DEFAULT FILE PROTECT
*
CLASSEXTRDUSERID DS CL3 CURRENT USER LOGON ID
EXTRDTCBSCC DS OHLl (DO NOT USE)
EXTRDEXTPRIOR DS HLl TASK'S PAGING PRIORITY
EXTRDLINES DS HLl SUGGESTED LINES/PAGE
EXTRDSPAREl DS OBL3 UNUSED PRIOR TO RELEASE 3.1
*
(WAS BINARY ZEROES)EXTROVERSION DS XL3 SYSTEM VERSION NUMBER
*
(SEE EXTRDIDVERSION)EXTRDIDDEFLIBl EQU 93,80,C
EXTRDIDDEFLIB2 EQU 94,80,C ~
EXTRDIDDEFLIB3 EQU 95,80,C
EXTRDIDDEFLIB4 EQU 96,80,C
EXTRDIDDEFLIBS EQU 97,80,C
EXTRDIDDEFLIB6 EQU 98,80,C
EXTRDIDDEFLIB7 EQU 99,80,C
EXTRDIDDEFLIB8 EQU 100,80,C EXTRDIDDEFLIB9 EQU 101,80,C EXTRDIDDEFLIBlO EQU 102,80,C
EXTRDDEFLIBlN DS CL8 DEFAULT LIB NAME #1 EXTRDDEFLIBlV DS CL72 DEFAULT NAMESTRING 1 EXTRDDEFLIB2N DS CL8 DEFAULT LIB NAME #2 EXTRDDEFLIB2V DS CL72 DEFAULT NAMESTRING 2 EXTRDDEFLIB3N DS CL8 DEFAULT LIB NAME #3 EXTRDDEFLIB3V DS CL72 DEFAULT NAMESTRING 3 EXTRDDEFLIB4N DS CL8 DEFAULT LIB NAME #4 EXTRDDEFLIB4V DS CL72 DEFAULT NAMESTRING 4 EXTRDDEFLIBSN DS CL8 DEFAULT LIB NAME #5 EXTRDDEFLIBSV DS CL72 DEFAULT NAMESTRING 5 EXTRDDEFLIB6N DS CL8 DEFAULT LIB NAME #6 EXTRDDEFLIB6V DS CL72 DEFAULT NAMESTRING 6 EXTRDDEFLIB7N DS CL8 DEFAULT LIB NAME #7