ibm:vm370-lib:copy:obrrecn.copy_src
Table of Contents
OBRRECN Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- OBRRECN.COPY.txt
- *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
ibm/vm370-lib/copy/obrrecn.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator