EXEC TAA
   PUT [ FIRST | NEXT | PREVIOUS | LAST | CURRENT ] <Objektname>
END-EXEC

EXEC TAA
   PUT <Objektname>( <Datenname> | <num.Literal>  | FIRST | NEXT | PREVIOUS | LAST | CURRENT )
END-EXEC

Die Anweisung PUT reicht den Inhalt des Datenobjekts zur Aufbewahrung an die Infrastruktur zurück. Bei Datenobjekten mit der Objektklasse LST muss dabei angegeben werden, um welches Tabellenelement es sich handelt.

Wenn als Index ein Datenname angegeben wird, muss dies eine numerische COBOL-Variable sein.

Bei Listenobjekten ist die Angabe einer Positionierung zwingend.

Nach dem PUT ist die Position, die Sie in der Anweisung angegeben haben, die neue aktuelle Position (CURRENT).

Das Ergebnis der Anweisung können Sie über die Bedingungsnamen OM-RC-OK und OM-RC-NOT-OK (beim Listenobjekt ggf. auch OM-RC-EOL) abfragen.

Falls Ihr Objekt einen sogenannten „Blob“ enthält, und Sie den Inhalt dieses Blobs verändern möchten, benutzten Sie bitte die Anweisung PUT BLOB.