Doesn't the operand "Byte" need to be a register number, not a DS statement?
From: IBM Mainframe Assembler List [mailto:[email protected] [1]] On Behalf Of Ed Jaffe Sent: Sunday, April 22, 2018 6:59 PM To: [email protected] [2] Subject: Dependent USING Does Not Work as Documented HLASM Mavens, https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.asma400/depuse.htm [3] discusses dependent USINGs. The syntax is as follows: >>-+-----------------+-USING-+-base-------------+-,address----->< +-label-----------+ '-(base-+------+-)-' '-sequence_symbol-' '-,end-' where: address Is a simply relocatable expression that represents an implicit address within the range of an active USING instruction. The range of an active USING is considered to be that which is valid for generating 12 bit or 20 bit displacements. This statement about 20-bit displacements appears to be incorrect. Any attempt to specify an implicit "address" outside the range of a 12-bit displacement generates msgASMA307E. For example: . R:4 000000 199 USING BigArea,R4 .000000 EB80 4F40 0156 001F40 200 OIY Byte,Bit . 201 USING TinyArea,Byte .** ASMA307E No active USING for operand Byte .000006 0000 0000 0000 000000 202 OIY TinyFlag,Bit .** ASMA307E No active USING for operand TinyFlag .000000 000000 001F48 204 BigArea DSECT , .000000 205 DS 8000X'00' .001F40 206 Byte DS XL1 . 000080 207 Bit EQU X'80' .001F41 208 DS XL7 .000000 000000 000001 210 TinyArea DSECT , .000000 211 TinyFlag DS XL1 . 213 END , Links: ------ [1] https://webmail.dodo.com.au/index.php/default/index/blank# [2] https://webmail.dodo.com.au/index.php/default/index/blank# [3] https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.asma400/depuse.htm
