7.21 GET_FILEOP_INFO
Description
Used to retrieve the source and target file partition names and partition number for
a mapped Enscribe file on a PURGEDATA_PARTONLY_VAL
record type in
Replicat. These records are only available if the upstream TMF Extract is using
GETPARTONLYPURGEDATAS
(see parameter for details).
Syntax
For C:
include "usrdecs" char *srcPartName; char *trgPartName; short srcPartNameLen; short trgPartNameLen; short maxSrcPartNameLen; short maxTrgPartNameLen; short result; short partition; result = GET_FILEOP_INFO (srcPartName, &srcPartNameLen, maxSrcPartNameLen, trgPartName, &trgPartNameLen, maxTrgPartNameLen, &partition);
For TAL:
?source usrdect int result; string .ext srcPartName; string .ext trgPartName; int .srcPartNameLen; int .trgPartNameLen; int maxSrcPartNameLen; int maxTrgPartNameLen; int .partition; result := PROC GET_FILEOP_INFO (srcPartName, srcPartNameLen, maxSrcPartNameLen, trgPartName, trgPartNameLen, maxTrgPartNameLen, partition);
For COBOL:
?CONSULT =REPLICAT 01 result PIC S9(4) COMP. 01 srcPartName PIC x(48). 01 trgPartName PIC x(48). 01 srcPartNameLen PIC S9(4) COMP. 01 trgPartNameLen PIC S9(4) COMP. 01 maxSrcPartNameLen PIC S9(4) COMP. 01 maxTrgPartNameLen PIC S9(4) COMP. 01 partition PIC S9(4) COMP. ENTER C "GET_FILEOP_INFO" using srcPartName, srcPartName, maxSrcPartName, trgPartName, trgPartNameLen, maxTrgPartNameLen, partition giving result.