         PROC                                                           00000000
XTC#WMCT NAME  X                                                        00000100
TC#WMCT  NAME                                                           00000200
TC#WMCT  DSECT                                                          00000300
TC#WMFLG DS    X                   . FLAGS                              00000400
*                                                                       00000500
*    TC#WMFLG VALUES                                                    00000600
*                                                                       00000700
TC#WMFCD EQU   X'80'               . CLOSE FILE AND DETACH SUBTASK      00000800
*                                                                       00000900
TC#WMST  DS    X                   . FILE ERROR STATUS                  00001000
*                                                                       00001100
*    TC#WMST VALUES                                                     00001200
*                                                                       00001300
TC#WMOVF EQU   X'80'               . FILE OVERFLOW (FULL)               00001400
TC#WMCPE EQU   X'40'               . CHECKPOINT ERROR                   00001500
*                                                                       00001600
TC#WMMST DS    X                   . MESSAGE ERROR STATUS (LAST)        00001700
         DS    X                   . (UNUSED)                           00001800
TC#WMBTS DS    4F                  . MAP CONTROL BITS                   00001900
TC#WMSZE EQU   *-TC#WMCT           . LENGTH OF MAP CONTROL TABLE        00002000
TC#WBMAP DSECT                     . "BIT MAP DSECT"                    00002100
TC#WBDA  DS    X                   . BIT MAP DISC ADDR                  00002200
         DS    X                   . (UNUSED)                           00002300
TC#WBFLG DS    X                   . FLAGS                              00002400
*                                                                       00002500
*    TC#WBFLG VALUES                                                    00002600
*                                                                       00002700
TC#WBFLL EQU   X'80'               . MAP IS COMPLETELY USED             00002800
TC#WBCP  EQU   X'40'               . MAP NEEDS TO BE WRITTEN TO DISC    00002900
TC#WBLBM EQU   X'01'               . LAST BIT MAP                       00003000
*                                                                       00003100
TC#WBBCB DS    X                   . BIT CONTROL BIT                    00003200
TC#WBBCD DS    H                   . BIT CONTROL DISPLACEMENT           00003300
*                                                                       00003400
TC#WBFB  EQU   *                   . FIRST BYTE OF MAP                  00003500
TC#WBLNG EQU   *-TC#WBMAP          . LENGTH OF BIT MAP CONTROLS         00003600
&SYSECT  CSECT                                                          00003700
         END                                                            00003800
