IBM System/360 System Programmer's Guide

IEFUCBOB MACRO-INSTRUCTION
This macro-instruction defines the symtolic names of all fields in
the unit control block (UCB). Code this macro-instruction with blank
name and operand fields, and precede it with a DSECT statement.
r------T-----------T---------------------------------------------------,
I Name I Operation I Operand I
~------+-----------+---------------------------------------------------~
I I IEFUCBOB I I
L ______ ~ ___________ ~ ___________________________________________________ J
Control Statements Required
r----------------------------------------------------------------------,
I //jobname JOB {Farameters}
I //stepname EXEC PGM=IEBUPDAT,PARM=NEW
I //SYSPRINT DD SYSOUT=A
I //SYSUT2 DD DSNAME=SYSi.MACLIB,DISP=OLD
I //SYSIN DD DATA
1./ ADD IEFUCBOB,OO,O,l
I
I
I
i IEFUCBOB Macro-Definition
I
I
I
J./ ENDUP
I /*
l _____________________________________________________________________ _
IEFUCBOB Macro-Definition
MACRO
IEFUCBOB
UCBOB
EQU *
DS OF
SRTEJBNR
DS XLi
SRTECHAN DS
XLi
UCBID DS XLi
SRTESTAT DS XLi
SRTEONLI EQU 128
SRTECHGS EQU
64
SRTERESV EQU
32
SRTEUNLD EQU 16
SRTEALOC EQU 8
SRTEPRES EQU
4
SRTESYSR EQU
2
*
SRTEDADI EQU 1
*
*
*
UCBCHA DS XLi
UCBUA
DS XLi
UCBFL2 DS
XLi
UCBDTI DS XLi
UCBETI
DS XLi
UCBSTI
DS XLi
UCBLCI DS
XLi
UCBATI DS XLi
UCBWGT DS XLi
70
UNIT CONTROL BLOCKS
JOB INTERNAL NUMBER
ALLOC.CHANNEL MASK
UCB IDENTIFICATION
STATUS BITS
ONLINE
CHANGE ONLINE/OFFLINE
RESERVED DEVICE
UNLOAD THIS DEVICE
BIT 4 ALLOCATED
BIT 5 PERf\ilANENTLY RESIDENT
BIT 6 SYSRBS
OR PRIMARY CONSOLE
BIT 7 DADSM INTERLOCK
OR TAPE CONTAINS
STANDARD LABELS, OR
ALTERNATE CONSOLE
FLAGi AND CHANNEL ADDRESS
UNIT ADDRES3
FLAG2
DEVIC:E TABLE
ERROR TABLE
STATUS TABLE
LOGICAL CHANN~L TABLE
ATTENTION TABLE
~7EIGHT

IBM System/360 Specifications

General

Brand	IBM
Model	System/360
Category	Desktop
Language	English