*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