Writes a data record to an open QSAM or VSAM file.
If the VSECOMP compiler directive is specified, Enterprise Developer Assembler emulates the DOS/VSE version of this macro. In this case the expanded code is larger than that produced on the mainframe and may cause NO BASE REGISTER error messages. The unusual DOS/VSE register conventions for register 1 and 0 are also supported, so syntax of the form PUT (1) or PUT (1)(0) is accepted.
A utility macro SADV (Save Address Value) used by PUT expands slightly differently when VSECOMP is specified. Normally, SADV expands to LA register,dcb-address. With VSECOMP specified the instruction L register,=A(dtf-address) is produced instead.
PUT RPL=OUTRPL
PUT OUTDCB,RECORD