The macro CALL "NSTATUS"... can be used to obtain information about file transfer request. The functionality corresponds to that of the command SHOW-FILE-TRANSFER (NSTATUS).
Macro
The function can be called as follows:
CALL "NSTATUS" USING FT-NSTATUS-LIST FT-RETURN-INFO.
FT-NSTATUS-LIST
The range FT-NSTATUS-LIST describes the parameter list for the NSTATUS macro. FT-NSTATUS-LIST must be defined in the WORKING-STORAGE-SECTION and can be copied to there with the statement
COPY FTNSTAT of linkname.
Before the macro is executed you must fill the desired fields. If a parameter is not specified or the default value is to be used, this field must be assigned the value LOW-VALUE.
FT-NSTATUS-LIST is defined as follows:
01 FT-NSTATUS-LIST.
*
02 FILLER PIC X(4) VALUE "V1000".
*
02 USER-PARAMETERS.
*
05 TRANSFER-ID PIC X(10).
88 SELECT-ALL VALUE LOW-VALUE.
*
05 SELECT-PARAMETER.
*
10 OWNER-IDENTIFICATION PIC X(8).
88 OWN VALUE LOW-VALUE.
88 SELECT-ALL VALUE " ".
*
10 INITIATOR PIC X(1).
88 SELECT-ALL VALUE LOW-VALUE.
88 LOCAL VALUE "L".
88 REMOTE VALUE "R".
*
10 PARTNER-NAME PIC X(200).
88 SELECT-ALL VALUE LOW-VALUE.
*
10 FILE-NAME PIC X(512).
88 SELECT-ALL VALUE LOW-VALUE.
10 LIBRARY PIC X(56).
88 SELECT-ALL VALUE LOW-VALUE.
10 ELEMENT PIC X(64).
88 SELECT-ALL VALUE LOW-VALUE.
10 TYP PIC X(8).
88 SELECT-ALL VALUE LOW-VALUE.
10 VERSION PIC X(24).
88 SELECT-ALL VALUE LOW-VALUE.
*
10 MONJV PIC X(56).
88 NONE VALUE LOW-VALUE.
*
10 JV-PASSWORD PIC X(11).
88 NONE VALUE LOW-VALUE.
*
10 STATE PIC X(1).
88 SELECT-ALL VALUE LOW-VALUE.
88 SUSP VALUE "S".
88 LOCKED VALUE "L".
88 WAIT VALUE "W".
88 ACTIVE VALUE "A".
88 FIN VALUE "F".
88 HOLD VALUE "H".
88 CANCELLED VALUE "C".
*
05 INFORMATION PIC X(1).
88 STD VALUE LOW-VALUE.
88 SUMMARY VALUE "U".
88 SELECT-ALL VALUE HIGH-VALUE.
*
05 OUTPUT-DESTINATION PIC X(1).
88 SYSOUT VALUE LOW-VALUE.
88 SYSLST VALUE HIGH-VALUE.
88 SYSOUTCSV VALUE "O".
88 SYSLSTCSV VALUE "L".
If more than one selection criterion is specified in the NSTATUS macro, a request can be overdefined, for instance, if both TRANSFER-ID and MONJV are specified. If the criteria contradict each other in such a case, the NSTATUS macro is not executed.
Description of the data fields
The parameters for FT-NSTATUS-LIST have the same names and functions as the operands for the command SHOW-FILE-TRANSFER (NSTATUS). Please refer to the command description in the manual "openFT (BS2000) - Command Interface ".