02000000
    /*****************************************************************/ 04000000
    /*                                                               */ 06000000
    /* ISDAWORK - ISDASDA0 MAIN WORK AREA                            */ 08000000
    /*                                                               */ 10000000
    /*****************************************************************/ 12000000
                                                                        14000000
    DCL                                                                 16000000
      1 ISDAWORK BASED(SDA00PTR),   /* ISDASDA0 WORK AREA    @Y30LB55*/ 18000000
       2 INFLAGS FIXED(31),         /* INPUT IO FLAGS        @Y30LB55*/ 20000000
        3 IRECTYPE CHAR(1),         /* O=OBR, M=MDR          @Y30LB55*/ 22000000
        3 INSOURCE CHAR(1),         /* H=HISTORY, L=LOGREC   @Y30LB55*/ 24000000
        3 INDEVTYP CHAR(1),         /* S=SUBSYSTEM,V=VIRTUAL @Y30LB55   26000000
                                       DASD,R=REAL DASD              */ 28000000
 /* SDAFLAG0 - 8 BIT FLAG BYTE FOR COMMUNICATION BETWEEN PROCS          30000000
                                                             @Y30LB55   32000000
     BIT 0 - SPARE                                           @Y30LB55   34000000
     BIT 1 - SPARE                                           @Y30LB55   36000000
     BIT 2 - SPARE                                           @Y30LB55   38000000
     BIT 3 - SPARE                                           @Y30LB55   40000000
     BIT 4 - SPARE                                           @Y30LB55   42000000
     BIT 5 - SPARE                                           @Y30LB55   44000000
     BIT 6 - 1 IF RUNNING UNDER VM370/CMS                    @Y30LB55   46000000
     BIT 7 = 1 IF FAULT SYMPTOM CODE GENERATED BY ISDAGEN0   @Y30LB55*/ 48000000
                                                                        50000000
        3 SDAFLAG0 BIT(8),          /* SDA COMMUNICATION FLAG BYTE      52000000
                                                             @Y30LB55*/ 54000000
       2 DLENGTH FIXED(15),         /* SENSE DATA LENGTH     @Y30LB55*/ 56000000
       2 INRECCUA CHAR(2),          /* REAL CUA FOR INPUT RECORD        58000000
                                                             @Y30LB55*/ 60000000
         3 CUABYTE0 BIT(8),         /* CHANNEL               @Y30LB55*/ 62000000
         3 CUABYTE1 BIT(8),         /* SA-CTL-SPINDLE        @Y30LB55*/ 64000000
       2 NINREC FIXED(31),          /* INPUT RECORD COUNT    @Y30LB55*/ 66000000
       2 NOUTREC FIXED(31),         /* OUTPUT RECORD COUNT   @Y30LB55*/ 68000000
       2 DEVPTR PTR(31);            /* PTR TO UCBTYPE FIELD  @Y30LB55*/ 70000000