PUT (BPAM)

Syntax:

PUT(ddname,recin)

Arguments:

ddname

is the 1 to 8 character name that identifies the data set you want to process. This name needs to have been previously associated with the data set, either via the ALLOCATE command or JCL DD statement, and opened via the OPEN function.

recin

contains the record to be written or updated. For varying length record formats, the interface will record the actual record length up to the maximum LRECL. Records that exceed the maximum length are truncated on the right.

For fixed length record formats, the record will be padded with blanks or truncated on the right to make it fit the fixed record size.

When updating records -- both varying length and fixed length - the interface will force the replacement record to the exact size of the original record, padding or truncating as necessary.

Module Name:

SWXPUT

Service Description:

The PUT function is used to write or update records of PDS/PDSE members. Before you can call the PUT function you must first allocate and open the data set associated with the ddname argument. If you are creating a new member, the last PUT must be followed by a STOWM function to create the directory entry.

If you are using PUT to update a record, you must first retrieve the record using the GET function. All other PUT requests are treated as write requests.

You may use PUT only if the file has been opened for output or update. If the file is open for input, you must close and re-open it for output or update.

Returned Information:

The PUT function returns the BPAM PUT macro return code. If you CALL the PUT function, the returned value is contained in the RESULT special variable.

After completion of a PUT function call, the RC and REASON variables will contain return code information. You should treat these variables as "read only" and make no attempt to modify any of them. The variables are:

RC: Contains the BPAM PUT return code. An RC of zero means the operation was completed successfully.
REASON: Contains the BPAM PUT reason code.

Examples:

Sequentially retrieve and update all of a member's records:

"alloc fi(iodd) da(mypds.data) old"
call open 'bpam', 'iodd', 'update'
call findm 'iodd', 'payroll'
record = get('iodd')
do while rc = 0
  parse var record firstpart 10 salary 15 lastpart
  newsal = p2d(salary,2) * 1.1
  newrec = firstpart || d2p(newsal,5) || lastpart
  call put 'iodd', newrec
  if rc = 0 then record = get('iodd')
end

Create a new member:

"alloc fi(outdd) da(mypds.data) old"
call open 'bpam', 'outdd', 'output'
say 'Enter a new record:'; parse pull record
do while record <> ''
  call put 'outdd', record
  say 'Enter a new record:'; parse pull record
end
call stowm 'outdd', 'mem01'
call close 'outdd'