MAPSSID (Map for SUBSID) Macro
The macro generates a mapping DSECT, which is used to interpret the supervisor information that is retrieved with the SUBSID macro.
The output shows the supervisor identification string in the format as shown in Table 1.
Format
Mapping
| Field Name | No. of Bytes | Contents |
|---|---|---|
| IJBSSID1 | 2 | Always zero |
| IJBSNAME | 4 | Character string: SUP |
| IJBSVERS | 1 | Version number |
| IJBSREL | 1 | Release number |
| IJBSMOD | 1 | Modification level |
| IJBSVARL | 1 | Length of variable part (a max. of 24 bytes) |
| IJBSFL01 | 1 | Flag byte 1: |
| IJBSF370 | X'80' ESA-mode supervisor | |
| IJBSFCKD | X'20' CKD support available | |
| IJBSFFBA | X'10' FBA support available | |
| IJBSFAPR | X'08' 3800 support available | |
| IJBRCHAN | X'04' relocating channels | |
| IJBSVMLE | X'02' reserved | |
| IJBSVMAC | X'01' any supervisor active under VM control | |
| IJBSFL02 | 1 | Flag byte 2: |
| IJBSFAF | X'80' always 1 | |
| IJBSFPAG | X'40' 4 KB page size | |
| IJBSUNAT | X'20' running unattended | |
| IJBSESAS | X'10' reserved | |
| IJBSACCR | X'08' access registers available | |
| IJBSFL03 | 1 | Flag byte 3: |
| IJBSFSEC | X'80' access-control support is available | |
| IJBSFSHR | X'40' DASD sharing support is available | |
| IJBSFSAT | X'20' for internal use | |
| IJBSFL04 | 1 | Flag byte 4: reserved |
| IJBSLCON | 2 | Length of sublibrary search chain |
| IJBSFIXL | Length of fixed part | |
| IJBSSLEN | Total length of supervisor entry |