*COPY OBRRECN 00000500
PUSH PRINT 00000510
AIF ('&SYSPARM' NE 'SUP').OBR01 00000520
PRINT OFF,NOGEN 00000530
.OBR01 ANOP 00000540
OBRRECN DSECT 00001000
* 00002000
* LONG OUTBOARD RECORD 00003100
* 00004000
* +---------+---------+-------------------+ 00005000
* | OBRKEYN | OBRSWSN | OBRSPE1 | 00006000
* +---------+---------+-------------------+ 00007000
* | OBRDTEN | OBRTMEN | 00008000
* +-------------------+-------------------+ 00009000
* | OBRCPIDN | 00010000
* +---------------------------------------+ 00011000
* | OBRPGMN | 00012000
* +---------------------------------------+ 00013000
* | OBRFCCWN | 00014000
* +---------------------------------------+ 00015000
* | OBRCSWN | 00016000
* +----+--------------+-------------------+ 00017000
* | S1 | OBRCUAIN | OBRDEVTN | 00018000
* +----+--------------+---------+---------+ 00019000
* | S2 | OBRCUAPR | OBRIORTY| OBRSNSCT| 00020000
* +----+--------------+-------------------+ 00021000
* | | 00024000
* = DEVICE DEPENDENT DATA = 00025000
* | | 00026000
* +---------------------------------------+ 00027000
* 00028000
* 00029000
* LONG OUTBOARD RECORD 00030100
* 00031000
* 00032000
OBRKEYN DS 1H RECORD TYPE 00033000
OBRSWSN DS 1H SWITCHES 00034000
* BITS DEFINED IN OBRSWSN 00034050
* BYTE 0 00034100
OBRMORE EQU X'80' MORE RECORDS FOLLOW 00034150
OBRTOD EQU X'40' TIME OF DAY CLOCK 00034200
SPACE 1 00034250
* BYTE 1 00034300
OBREOD EQU X'80' SDR COUNTERS DUMPED AT EOD 00034350
OBRTEMP EQU X'40' TEMPORARY ERROR 00034400
OBRSHOBR EQU X'20' SHORT OBR 00034450
OBRDEMNT EQU X'04' VOLUME DEMOUNT 00034500
SPACE 1 00034550
OBRSPE1 DS 1F 00035000
OBRDTEN DS 1F DATE 00036000
OBRTMEN DS 1F TIME 00037000
OBRCPIDN DS 2F CPU ID AND SERIAL NUMBER 00038000
OBRHSIZE EQU (*-OBRRECN) SIZE OF OBR HEADER 00038500
* 00039000
* END OF 24 BYTE HEADER RECORD 00040000
* 00041000
OBRPGMN DS 2F JOB ID 00042000
OBRFCCWN DS 2F FAILING CCW 00043000
OBRCSWN DS 2F FAILING CSW 00044000
OBRDDCNT DS 1X S1 - NO. OF DBLWDS FOR DEV DEPENDANT 00045100
OBRCUAIN DS 3C ADDRESS OF FAILING DEVICE 00046000
OBRDEVTN DS 1F DEVICE TYPE 00047000
OBRSDRCT DS 1X S2 - NUMBER OF SDR WORK AREA BYTES 00048000
OBRCUAPR DS 3C PRIMARY UNIT ADDRESS 00049000
OBRIORTY DS 2X NUMBER OF RETRIES 00050000
OBRSNSCT DS 2X NUMBER OF SENSE BYTES 00051000
OBRLSIZE EQU (*-OBRRECN) SIZE OF LONG RECORD BASE 00052000
* 00053000
* THE REST IS DEVICE DEPENDENT 00054000
* 00054100
SPACE 3 00054200
* 00054300
* ALL DASD DEVICES 00054400
* 00054500
OBRVOLN DS 8C VOLUME ID 00054600
OBRLSKN DS 8X LAST SEEK ADDRESS 00054700
OBRHAN DS 8X HOME ADDRESS 00054800
* 00055000
* 2314/2319 FORMAT 00056000
* 00057000
OBRSDRWK DS 10X SDR WORK AREA 00060000
OBRSENSN DS 6C SENSE DATA @VA08405 00061000
OBR2SIZE EQU (*-OBRRECN) MAX SIZE OF 2314/2319 RECORD 00062050
* 00062100
* 3350/3340/3330/2305 FORMAT 00062210
* 00062300
ORG OBRSDRWK 00062400
OBR33SNS DS 24C 3350/3340/3330/2305 SENSE DATA 00062510
OBR3SIZE EQU (*-OBRRECN) MAX SIZE OF 3330/3340/3350/2305 RECORD 00063000
* 00064000
* UNIT RECORD FORMAT 00065000
* 00066000
ORG OBRVOLN 00067000
OBRURST DS 10X SDR WORK AREA 00068000
OBRURSNS DS 1C UNIT RECORD SENSE DATA 00069000
* 00069100
* 3505/3525 FORMAT 00069200
* 00069300
ORG OBRVOLN 00069400
OBR3505S DS 1C 3505/3525 SENSE DATA 00069500
* 00071000
* 3211 FORMAT 00072000
* 00073000
ORG OBRVOLN 00074000
OBRCORL DS 1X CORRELATION NUMBER 00075000
DS 7X RESERVED 00076000
OBRSDR32 DS 10X SDR WORK AREA 00077000
OBR3211S DS 6C 3211 SENSE DATA 00078000
* 00080000
* 3203 FORMAT 00080100
* 00080200
ORG OBRVOLN 00080300
OBRCORRL DS 1X CORRELATION NUMBER 00080400
DS 7X RESERVED 00080500
OBRSDR03 DS 10X SDR WORK AREA 00080600
OBR3203S DS 24C 3203 SENSE DATA 00080700
* 00080800
* 2400 TAPE FORMAT 00081000
* 00082000
ORG OBRLSKN 00083100
OBRTAPST DS 10X SDR WORK AREA 00084000
OBRTAPSN DS 24C TAPE SENSE DATA 00085000
* 00087000
* 3420/3410 TAPE FORMAT 00088100
* 00089000
ORG OBRLSKN 00090000
OBRDVDEP DS 16C DEVICE DEPENDENT DATA 00091000
OBR342ST DS 20X SDR WORK AREA 00092000
OBR3420S DS 24C 3420 SENSE 00093005
SPACE 3 00093010
*** SHORT OUTBOARD RECORD 00093015
* 00093020
* 0 +-----------+-----------+-----------------------+ 00093025
* | OBRKEYN | OBRSWSN | OBRSPE1 | 00093030
* 8 +-----------+-----------+-----------------------+ 00093035
* | OBRDTEN | OBRTMEN | 00093040
* 10 +-----------------------+-----------------------+ 00093045
* | OBRCPIDN | 00093050
* 18 +-----------------------+-----+-----------------+ 00093055
* | OBRDEVSH | O*3 | OBRCUA | 00093060
* 20 +-----------------------+-----+-----------------+ 00093065
* | OBRSSDR1 ( SDR COUNTERS ) | 00093070
* 28 | +-----------------------------------+ 00093075
* | | OBRSSDR2 ( SDR COUNTERS ) | 00093080
* 30 +-----------+ +-----------------------+ 00093085
* | | OBRSV1 | 00093090
* 38 +-----------------------+-----------------------+ 00093095
* 00093100
*** SHORT OUTBOARD RECORD 00093105
SPACE 2 00093110
* NOTE: THE HEADER (FIRST 24 BYTES) OF THE SHORT 00093115
* OBR AND THE LONG OBR IS THE SAME... 00093120
SPACE 1 00093125
ORG OBRPGMN 00093180
OBRDEVSH DS 1F DEVICE TYPE 00093200
OBRSDRSH DS 1X O*3 NO. OF SDR WORK AREA BYTES 00093221
OBRCUA DS 3X CHANNEL AND UNIT ADDRESS 00093240
OBRSSDR1 DS 10X SDR WORK AREA 00093260
OBRSSIZE EQU (*-OBRRECN) SIZE OF SHORT OBR RECORD BASE 00093270
SPACE 1 00093280
OBRSIZE EQU (*-OBRRECN) SIZE OF OBR IN BYTES 00093300
OBRSIZE1 EQU (*-OBRRECN+7)/8 SIZE IN DOUBLEWORDS 00093320
SPACE 1 00093340
OBRSSDR2 DS 10X SDR WORK AREA 00093360
SPACE 1 00093380
OBRSIZE2 EQU (*-OBRRECN+7)/8 SIZE IN DOUBLEWORDS 00093400
EJECT 00100000
POP PRINT 00101000
SPACE 00102000