01000000
    /*****************************************************************/ 02000000
    /*                                                               */ 03000000
    /* ISDAMSCS - 32 BYTE MSS SENSE DCL                              */ 04000000
    /*                                                               */ 05000000
    /*****************************************************************/ 06000000
                                                                        07000000
 /* %INCLUDE ISDADCLS(ISDAMSCS)                              @Y30LB55*/ 08000000
                                                                        09000000
    DCL                             /* MSC SENSE DATA        @Y30LB55*/ 10000000
      1 ISDAMSCS BASED(SENSEPTR),   /* 32 BYTE SENSE         @Y30LB55*/ 11000000
       2 STATUS BIT(8),             /* 0 MSC STATUS BYTE     @Y30LB55*/ 12000000
       2 SUBSYSID BIT(16),          /* 1,2 SSID IN BITS (4-15)          13000000
                                                             @Y30LB55*/ 14000000
        3 SSIDFLAG BIT(4),          /* CE,OFF LINE,HOST CHAN ID         15000000
                                                             @Y30LB55*/ 16000000
        3 SSID BIT(12),             /* 3 DIGIT SSID          @Y30LB55*/ 17000000
         4 SSIDTYPE BIT(4),         /* 0=DASD,1=CS,2=DRD,4=DRC,8=SA     18000000
                                                             @Y30LB55*/ 19000000
         4 SSIDLIBN BIT(4),         /* RSG 0-29,CS NO. 0-3,SA NO. 0-F   20000000
                                                             @Y30LB55*/ 21000000
         4 SSIDDEVT BIT(4),         /* LOWER DEVICE ID,      @Y30LB55   22000000
                                       0-7,0-2,0-7,0-3,0             */ 23000000
       2 FORMATNO BIT(8),           /* 3 FORMAT IN BITS(0-5) @Y30LB55*/ 24000000
       2 SUBSENSE CHAR(28),         /* 28 BYTE SENSE DATA    @Y30LB55*/ 25000000
        3 SUBSTAT4 BIT(8),          /* 4 BYTE 0 OF LOWER UNIT@Y30LB55*/ 26000000
        3 SUBSTAT5 BIT(8),          /* 5 BYTE 1 OF LOWER UNIT@Y30LB55*/ 27000000
        3 SALOWADD BIT(8),          /* 6 (SA BYTE 6)=LOWER LOGICAL      28000000
                                       ADDR                  @Y30LB55*/ 29000000
        3 DASDFMTN BIT(8),          /* 7 DASD OBR FORMAT NUMBER         30000000
                                                             @Y30LB55*/ 31000000
        3 * CHAR(1),                /* 8 SPARE               @Y30LB55*/ 32000000
        3 SARETRY BIT(8),           /* 9 (SA BYTE 5)= RETRY  @Y30LB55*/ 33000000
        3 SALOWAD2 BIT(8),          /* 10 SAME AS BYTE 6, SALOWADD      34000000
                                                             @Y30LB55*/ 35000000
        3 SUBFMTMG BIT(8),          /* 11 SUBFMT AND MSG CODE@Y30LB55*/ 36000000
         4 SUBFMTNO BIT(4),         /* SUBFORMAT NUMBER      @Y30LB55*/ 37000000
         4 MSGCODEN BIT(4),         /* MESSAGE CODE          @Y30LB55*/ 38000000
        3 * CHAR(10),               /* 12-21                 @Y30LB55*/ 39000000
        3 DASDFSC BIT(16),          /* 22,23 DASD OBR FAULT SYMPTOM     40000000
                                       CODE                  @Y30LB55*/ 41000000
        3 RUADASD BIT(8),           /* 24 DASD REAL UNIT ADDRESS        42000000
                                                             @Y30LB55*/ 43000000
        3 * CHAR(1),                /* 25                    @Y30LB55*/ 44000000
        3 MSCFSC BIT(16),           /* 26,27 (SA BYTE 22,23)=FMT 4,5    45000000
                                       FSC                   @Y30LB55*/ 46000000
        3 RUAMSCD BIT(8),           /* 28 RUA FOR VIRT DASD  @Y30LB55*/ 47000000
        3 RCYLMSCD BIT(16),         /* 29,30 REAL CYL FOR VIRT DASD     48000000
                                                             @Y30LB55*/ 49000000
        3 SANOMSCD BIT(8);          /* 31 SA NUMBER FOR VIRT DASD       50000000
                                                             @Y30LB55*/ 51000000
    %MSCSENSL='LENGTH(ISDAMSCS)';                          /*@Y30LB55*/ 52000000
                                                                        53000000
 /*  %MSCSENSL='LENGTH(ISDAMSCS)'                            @Y30LB55*/ 54000000
 /* DCL SENSEPTR PTR(31)  AND SET SENSEPTR=SDATAPTR          @Y30LB55*/ 55000000