/********************************************************************/ 02000003
 /*                                                                  */ 02100003
 /*   MACRO NAME = IGGMF4WA                                          */ 02200003
 /*                                                                  */ 02300003
 /*   DESCRIPTIVE NAME = READ/WRITE FORMAT 4 DSCB WORKAREA           */ 02400003
 /*                                                                  */ 02500003
 /*   FUNCTION = MAPPING MACRO FOR THE FORMAT 4 DSCB AND A           */ 02600003
 /*              RELATED BUFFER/WORKAREA.                            */ 02700003
 /*                                                                  */ 02800003
 /*   INCLUDED MACROS = NONE                                         */ 02900003
 /*                                                                  */ 03000003
 /*   METHOD OF ACCESS = PL/S - RESPECIFY A BASE FOR IGGMF4WA        */ 03100003
 /*                                                                  */ 03200003
 /*   STATUS = VS/2 RELEASE 3   (CHANGE FLAG @Y30SSXX)               */ 03300003
 /*                                                                  */ 03400003
 /*   DATE OF LAST CHANGE = 17 JUL 74                                */ 03500003
 /*                                                                  */ 03600003
 /********************************************************************/ 03700003
    DECLARE                                                             03800003
      1 IGGMF4WA BDY(DWORD) BASED,  /* FORMAT 4 DSCB WORKAREA        */ 10000003
        2 F4WDEB CHAR(48) BDY(DWORD), /* DEB AREA                    */ 12000003
          3 *  CHAR(16),            /* FILLER                        */ 14000003
          3 F4WEXT PTR(8),          /* EXTENT COUNT                  */ 16000003
          3 *  CHAR(7),             /* FILLER                        */ 18000003
          3 F4WDID PTR(8),          /* DEB ID                        */ 20000003
          3 F4WDDCB PTR(24),        /* DCB PTR                       */ 22000003
          3 F4WDEXS PTR(8),         /* EXTENT SCALE                  */ 24000003
          3 F4WDAPP PTR(24),        /* IOS APP. TABLE ADDRESS        */ 26000003
          3 F4WDMOD PTR(8),         /* DEVICE MODIFIER               */ 28000003
          3 F4WDUCB PTR(24),        /* UCB ADDRESS                   */ 30000003
          3 F4WDBB  PTR(15),        /* BB FROM SEEK                  */ 32000003
          3 F4WSCC  CHAR(4),        /* START CCHH OF EXTENT          */ 34000003
          3 F4WECC  CHAR(4),        /* END CCHH OF EXTENT            */ 36000003
          3 F4WNTK  CHAR(2),        /* NO. OF TRACKS IN EXTENT       */ 38000003
        2 F4WDEBP   PTR(31),        /* DCB DEB PTR                   */ 40000003
        2 F4WECB    PTR(31),        /* ECB                           */ 42000003
          3 F4WECMP PTR(8),         /* ECB COMPLETION CODE           */ 44000003
          3  *      PTR(24),        /* RESERVED                      */ 46000003
        2 F4WIOB CHAR(32) BDY(WORD), /* IOB                          */ 48000003
          3 *       PTR(31),        /* FILLER                        */ 50000003
          3 F4WIECB PTR(31),        /* PTR TO ECB                    */ 52000003
          3 *       CHAR(8),        /* FILLER                        */ 54000003
          3 F4WSCP  PTR(31),        /* PTR TO CHANNEL PROGRAM START  */ 56000003
          3 F4WIDCB PTR(31),        /* PTR TO DCB                    */ 58000003
          3 *       CHAR(8),        /* FILLER                        */ 60000003
        2 F4WSEEK   CHAR(8),        /* SEEK FIELD                    */ 62000003
        2 F4WCCW CHAR(24) BDY(DWORD), /* CHANNEL PROGRAM AREA        */ 64000003
          3 F4WCCW1 CHAR(8),        /* SEARCH ID EQUAL               */ 66000003
          3 F4WCCW2 CHAR(8),        /* TIC CCW1                      */ 68000003
          3 F4WCCW3 CHAR(8),        /* READ OR WRITE DATA            */ 70000003
        2 F4WBUF    CHAR(140);      /* BUFFER AREA                   */ 72000003
    DECLARE                                                             74000003
      F4WDCB CHAR(44) DEF(F4WDEB) POS(5); /* DCB                     */ 76000003