CALL "C$FSRENAME" USING fileName newName exitStatus |
fileName | PIC X(n) | Specifies the name of the indexed file to be renamed. The name is passed to the indexed file handler APIs so it must be suitable for them. For example, if the file handler is c-tree, avoid the "dat" extension. |
newName | PIC X(n) | Specifies the new name of the indexed file. The name is passed to the indexed file handler APIs so it must be suitable for them. For example, if the file handler is c-tree, avoid the "dat" extension. |
exitStatus | any numeric data item | Receives the status of the operation: 0 the operation has been executed successfully. 1 the operation failed. |
*> define retCode as pic s9(2) call "c$fsrename" using "cust" "cust2" retCode. if retCode not = 0 display message "Operation failed" end-if |