REWRITE command
Updates a record in a file on a local or a remote system. In Smalltalk, the parameters of the REWRITE command are contained in two classes: CICSRewrite and CICSRewriteResult. 
See CICS Application Programming Reference for the syntax of the command and a description of its parameters. 
Defined instance methods
Parameters supplied to CICS in CICSRewrite
 
|  |  |  |  |  | 
| FILE(filename)  | file:  | Input  | Fixed(8)  |   | 
| FROM(data-area)  | from:  | Input  | Variable  |   | 
| LENGTH(data-area)  | length:  | Input  | Binary 16  |   | 
| SYSID(systemname)  | sysid:  | Input  | Fixed(4)  |   | 
Parameters returned by CICS in CICSRewriteResult
 
|  |  |  |  |  | 
| RESP  | resp  | Output  | Fixed(2)  | Inherited from CICSResult.  | 
| RESP2  | resp2  | Output  | Fixed(2)  | Inherited from CICSResult.  | 
Example
Rewrites a record in a KSDS file. 
| recordRead result |
 
result := CICS read
               file: 'KSDSF1';
               keylength: 20;
               ridfld: ('Record' abrPadWithBlanks: 20);
               update;
               exec.
 
recordRead := MyKsdsFile copyFromOSMemory: (result set).
recordRead city: 'UpdateCounty'.
 
result := CICS rewrite
               file: 'KSDSF1';
               from: recordRead;
               length: 80;
               exec.
Last modified date: 07/09/2019