01000000 /*****************************************************************/ 02000000 /* @Y30LB55*/ 03000000 /* ISDALOBR - FULL DCL FOR SDA INPUT RECORDS @Y30LB55*/ 04000000 /* @Y30LB55*/ 05000000 /*****************************************************************/ 06000000 07000000 /* %INCLUDE ISDADCLS(ISDALOBR) @Y30LB55*/ 08000000 09000000 DCL /* BASE STRUCTURE FOR RECORDS 10000000 FROM SYS1.LOGREC @Y30LB55*/ 11000000 1 OBRMDR BASED(LOGPTR), /* 1832=BLKSIZE EREP0 @Y30LB55*/ 12000000 2 SCW FIXED(31), /* SEGMENT CONTROL WORD @Y30LB55*/ 13000000 3 SLENGTH FIXED(15), /* LENGTH OF SEGMENT @Y30LB55*/ 14000000 3 SCODE BIT(8), /* SEGMENT CODE @Y30LB55*/ 15000000 3 * CHAR(1), /* @Y30LB55*/ 16000000 2 CLASRC BIT(8), /* 0 @Y30LB55*/ 17000000 2 SYSREL BIT(8), /* 1 @Y30LB55*/ 18000000 2 SWITCHES CHAR(4), /* 2 @Y30LB55*/ 19000000 3 SWITCH0 BIT(8), 20000000 3 SWITCH1 BIT(8), /* BIT 2 = 1 = OBR SHORT @Y30LB55*/ 21000000 3 SWITCH2 BIT(8), /* DEV TYPE FOR MDR @Y30LB55*/ 22000000 3 SWITCH3 BIT(8), /* @Y30LB55*/ 23000000 2 RCDCNT BIT(8), /* 6 @Y30LB55*/ 24000000 2 RECENTRY BIT(8), /* 7 REC TYPE ID FOR MDR @Y30LB55 25000000 SHORT(SWAP) */ 26000000 2 DATETIME CHAR(8), /* 8 DATETIME USED FOR HI LOW 27000000 COMPARES @Y30LB55*/ 28000000 3 DATE CHAR(4), /* 8 PACKED YEAR AND DAY @Y30LB55*/ 29000000 4 YEAR CHAR(2), /* YEAR IN PACKED DECIMAL@Y30LB55*/ 30000000 4 DAY CHAR(2), /* DAY IN PACKED DECIMAL @Y30LB55*/ 31000000 3 TIME CHAR(4), /* 12 SEE BITS 1 AND 4 OF SWITCH0 32000000 @Y30LB55*/ 33000000 4 HOUR CHAR(1), /* HOUR IN PACKED DECIMAL@Y30LB55*/ 34000000 4 MINUTE CHAR(1), /* MINUTE IN PACKED DECIMAL 35000000 @Y30LB55*/ 36000000 4 SECOND CHAR(1), /* SECOND IN PACKED DECIMAL 37000000 @Y30LB55*/ 38000000 4 TENSHUND CHAR(1), /* TENTHS, HUNDRETHS PACKED 39000000 @Y30LB55*/ 40000000 2 VERNO BIT(8), /* 16 @Y30LB55*/ 41000000 2 CPUSERID CHAR(5), /* 17-21 CPU USER+ID @Y30LB55*/ 42000000 3 CPUSER CHAR(3), /* 17 @Y30LB55*/ 43000000 3 CPUID CHAR(2), /* 20 @Y30LB55*/ 44000000 2 SDRCNT1 CHAR(2), /* 22 OBR SHORT DATA LENGTH 45000000 @Y30LB55*/ 46000000 2 DEVDEP1, /* 24 DEVICE DATA FOR MDR LONG 47000000 @Y30LB55*/ 48000000 3 JOBID CHAR(8), /* 24 OBR LONG @Y30LB55*/ 49000000 4 DEVTYPE1 CHAR(4), /* 24 OBR SHORT UCBTYP @Y30LB55*/ 50000000 5 MDRCUA CHAR(2), /* 24 CUA FOR ALL MDR @Y30LB55*/ 51000000 4 * CHAR(1), /* 28 OBR SHORT @Y30LB55*/ 52000000 4 CUA2 CHAR(3), /* 29 OBR SHORT @Y30LB55*/ 53000000 3 SDRINF, /* 32 OBR SHORT, ALL MDR DATA 54000000 @Y30LB55*/ 55000000 4 FAILCCW CHAR(8), /* 32 OBR LONG @Y30LB55*/ 56000000 4 CSW CHAR(8), /* 40 OBR LONG @Y30LB55*/ 57000000 4 DEVDEPC CHAR(1), /* 48 NO. DEVDEP/8 @Y30LB55*/ 58000000 4 SECUA CHAR(3), /* 49 OBR LONG @Y30LB55*/ 59000000 4 DEVTYPE2 CHAR(4), /* 52 OBR LONG UCBTYP @Y30LB55*/ 60000000 4 SDRCNT2 CHAR(1), /* 56 NO. SDR BYTES @Y30LB55*/ 61000000 4 PCUA CHAR(3), /* 57 OBR LONG-PRIMARY CUA 62000000 @Y30LB55*/ 63000000 4 IORETRY CHAR(2), /* 60 OBR LONG @Y30LB55*/ 64000000 4 SENSCNT CHAR(2), /* 62 SENSE LENGTH @Y30LB55*/ 65000000 4 DEVDEP2 CHAR(1764); /* 64 OBR LONG DATA @Y30LB55*/ 66000000 %OBRMDRL='LENGTH(OBRMDR)'; /*@Y30LB55*/ 67000000 DCL 68000000 1 DEVTYPE CHAR(4) BASED(DEVPTR),/* UCBTYP FIELD @Y30LB55*/ 69000000 2 IOFLAGS BIT(8), /* @Y30LB55*/ 70000000 2 OPTFLAGS BIT(8), /* @Y30LB55*/ 71000000 2 CLASTYPE BIT(16), /* @Y30LB55*/ 72000000 3 DEVCLASS BIT(8), /* @Y30LB55*/ 73000000 3 UNITTYPE BIT(8); /*@Y30LB55*/ 74000000 75000000 /* DCL DEVPTR PTR(31) ADDRESS OF DEVTYPE1 OR DEVTYPE2 @Y30LB55*/ 76000000 /* DCL LOGPTR PTR(31) AND SET LOGPTR=DATAPTR @Y30LB55*/ 77000000 /* %OBRMDRL='LENGTH(OBRMDR)' @Y30LB55*/ 78000000