02000000
    /*****************************************************************/ 04000000
    /*                                                               */ 06000000
    /* ISDASOBR - SHORT DCL FOR SDA INPUT RECORDS                    */ 08000000
    /*                                                               */ 10000000
    /*****************************************************************/ 12000000
                                                                        14000000
 /* %INCLUDE ISDADCLS(ISDASOBR)                              @Y30LB55*/ 16000000
                                                                        18000000
    DCL                             /* SHORT STRUCTURE FOR RECORDS      20000000
                                       FROM SYS1.LOGREC      @Y30LB55*/ 22000000
      1 OBRMDR BASED(LOGPTR),       /* SHORT OBR-MDR HEADER  @Y30LB55*/ 24000000
       2 SCW FIXED(31),             /* SEGMENT CONTROL WORD  @Y30LB55*/ 26000000
        3 SLENGTH FIXED(15),        /* LENGTH OF SEGMENT     @Y30LB55*/ 28000000
        3 SCODE BIT(8),             /* SEGMENT CODE          @Y30LB55*/ 30000000
        3 * CHAR(1),                /*                       @Y30LB55*/ 32000000
       2 CLASRC BIT(8),             /* 0                     @Y30LB55*/ 34000000
       2 SYSREL BIT(8),             /* 1                     @Y30LB55*/ 36000000
       2 SWITCHES CHAR(4),          /* 2                     @Y30LB55*/ 38000000
        3 SWITCH0 BIT(8),           /*                       @Y30LB55*/ 40000000
        3 SWITCH1 BIT(8),           /* BIT 2 = 1 = OBR SHORT @Y30LB55*/ 42000000
        3 SWITCH2 BIT(8),           /* DEV TYPE FOR MDR      @Y30LB55*/ 44000000
        3 SWITCH3 BIT(8),           /*                       @Y30LB55*/ 46000000
       2 RCDCNT BIT(8),             /* 6                     @Y30LB55*/ 48000000
       2 RECENTRY BIT(8),           /* 7 REC TYPE ID FOR MDR @Y30LB55   50000000
                                       SHORT(SWAP)                   */ 52000000
       2 DATETIME CHAR(8),          /* 8 DATETIME USED FOR HI LOW       54000000
                                       COMPARES              @Y30LB55*/ 56000000
        3 DATE CHAR(4),             /* 8 PACKED YEAR AND DAY @Y30LB55*/ 58000000
         4 YEAR CHAR(2),            /* YEAR IN PACKED DECIMAL@Y30LB55*/ 60000000
         4 DAY CHAR(2),             /* DAY IN PACKED DECIMAL @Y30LB55*/ 62000000
        3 TIME CHAR(4),             /* 12 SEE BITS 1 AND 4 OF SWITCH0   64000000
                                                             @Y30LB55*/ 66000000
         4 HOUR CHAR(1),            /* HOUR IN PACKED DECIMAL@Y30LB55*/ 68000000
         4 MINUTE CHAR(1),          /* MINUTE IN PACKED DECIMAL         70000000
                                                             @Y30LB55*/ 72000000
         4 SECOND CHAR(1),          /* SECOND IN PACKED DECIMAL         74000000
                                                             @Y30LB55*/ 76000000
         4 TENSHUND CHAR(1),        /* TENTHS, HUNDRETHS PACKED         78000000
                                                             @Y30LB55*/ 80000000
       2 VERNO BIT(8),              /* 16                    @Y30LB55*/ 82000000
       2 CPUSERID CHAR(5),          /* 17-21 CPU USER+ID     @Y30LB55*/ 84000000
        3 CPUSER CHAR(3),           /* 17                    @Y30LB55*/ 86000000
        3 CPUID CHAR(2);            /* 20                    @Y30LB55*/ 88000000
    %OBRMDRL='LENGTH(OBRMDR)';                             /*@Y30LB55*/ 90000000
                                                                        92000000
 /*  %OBRMDRL='LENGTH(OBRMDR)'                               @Y30LB55*/ 94000000
 /* DCL LOGPTR PTR(31) AND SET LOGPTR=DATAPTR                @Y30LB55*/ 96000000