HP 3000 Manuals HP 3000 Manuals
Programmatic NFT Examples
The following programs, in COBOL and Pascal, illustrate single and
multiple file transfers via the DSCOPY intrinsic. They also call the
DSCOPYMSG intrinsic to print an error message if necessary.
The multiple-file-transfer examples use transfer specifications that are
read from a file with the formal designator DSCOPYI.
In the COBOL version of the multiple-file transfer, we assume that this
file is the default $STDIN, namely the user's terminal. A second and
alternative way of doing the COBOL multiple-file transfer would be to
create an actual unnumbered file ("copyfile") that contains DSCOPY
commands (for instance, SFILEA TO TFILEA). You would then have to create
a file equation that equates DSCOPYI with the copyfile you have created.
COBOL: Single Transfer
In this application, the opt parameter is set to zero (0). All
transfers will be attempted. Primary output is disabled. The command
file spec for multiple transfers cannot be used. The spec parameter
contains the full text of the transfer specification, including all
parameters and options, and is terminated by an ASCII null character.
001000$CONTROL USLINIT
001100 IDENTIFICATION DIVISION.
001200 PROGRAM-ID. SINGLETRANSFER.
001300 REMARKS. THIS PROGRAM TRANSFERS A FILE TO A REMOTE NODE;
001400 IT CALLS THE DSCOPY AND DSCOPYMSG INTRINSICS.
001500 ENVIRONMENT DIVISION.
001600 CONFIGURATION SECTION.
001700 SOURCE-COMPUTER. HP3000
001800 OBJECT-COMPUTER. HP3000
001900 DATA DIVISION.
002000 WORKING-STORAGE SECTION.
002100 01 OPT PIC S9(4) COMP VALUE 0.
002200 01 SPEC.
002300 02 ASCIIPART PIC X(40) VALUE
002400 "NFTTEST TO NFTTARG:SOMENODE[NSUSER.NSACCT]".
002500 02 TERMINATOR PIC S9(4) COMP VALUE 0.
002600 01 RESULT.
002700 02 RESULTS PIC S9(4) COMP OCCURS 2 TIMES.
002800 01 FNUM PIC S9(4) COMP VALUE 0.
002900 01 R PIC S9(4) COMP VALUE 0.
003000 PROCEDURE DIVISION.
003100 BEGIN.
003200 CALL "DSCOPY" USING OPT, SPEC, RESULT.
003300 IF RESULTS(1) > 0 CALL "DSCOPYMSG" USING RESULT, FNUM, R.}
003400 STOP RUN.
COBOL: Multiple Transfer
In this application, the opt parameter is set to one (1). DSCOPY
terminates after first failure. Primary output is disabled. The command
file spec for multiple transfers cannot be used. The spec parameter
contains a null character (numeric zero) indicating that transfer
requests are to be read from the DSCOPYI file. The "COPYFILE" must
already exist. You must issue the file equation "FILE DSCOPYI=COPYFILE"
prior to execution of the program.
001000$CONTROL USLINIT
001100 IDENTIFICATION DIVISION.
001200 PROGRAM-ID. MULTTRANSFER.
001300 REMARKS. THIS PROGRAM ACCEPTS INTERACTIVE TRANSFER REQUESTS;
001400 IT CALLS THE DSCOPY AND DSCOPYMSG INTRINSICS.
001500 ENVIRONMENT DIVISION.
001600 CONFIGURATION SECTION.
001700 SOURCE-COMPUTER. HP3000
001800 OBJECT-COMPUTER. HP3000
001900 DATA DIVISION.
002000 WORKING-STORAGE SECTION.
002100 01 OPT PIC S9(4) COMP VALUE 1.
002200 01 SPEC.
002300 02 TERMINATOR PIC S9(4) COMP VALUE 0.
002400 01 RESULT.
002500 02 RESULTS PIC S9(4) COMP OCCURS 2 TIMES.
002600 01 FNUM PIC S9(4) COMP VALUE 0.
002700 01 R PIC S9(4) COMP VALUE 0.
002800 PROCEDURE DIVISION.
002900 BEGIN.
003000 CALL "DSCOPY" USING OPT, SPEC, RESULT.
003100 IF RESULTS(1) > 0 CALL "DSCOPYMSG" USING RESULT, FNUM, R.
003200 STOP RUN.
Pascal: Single Transfer
In this application, the opt parameter is set to four (4). All
transfers will be attempted. Primary output is enabled. The command
file spec for multiple transfers cannot be used. The spec parameter
contains the full text of the transfer specification, including all
parameters and options, and is terminated by an ASCII null character.
$standard_level 'hp3000', uslinit$
program pcopy (input,output);
type
small_int = -32768..32767;
const
null = chr(0); {ASCII null char}
var
opt : small_int;
fnum : small_int;
r : small_int;
spec : string [80];
result : array [1..2] of small_int;
procedure DSCOPY; intrinsic;
procedure DSCOPYMSG; intrinsic;
begin {program pcopy}
opt := 4; {All transfers attempted, output enabled, command file disabled}
fnum := 0;
{copy local file NFTTEST to file NFTTARG on node SOMENODE}
spec := 'NFTTEST TO NFTTARG:SOMENODE[NSUSER.NSACCT]' + null; {string
terminated by ASCII null char}
DSCOPY (opt, spec, result);
if result[1] > 0 then DSCOPYMSG (result, fnum, r)
end.
Pascal: Multiple Transfer
In this application, the opt parameter is set to two (2). All transfers
will be attempted. Primary output is disabled. The command file spec
for multiple transfers is enabled. The spec parameter contains the
"COPYFILE" name terminated by an ASCII null character. The "COPYFILE"
must exist prior to execution of the program.
$standard_level 'hp3000', uslinit$
program pcopy2 (copyfile);
type
small_int = -32768..32767;
const
null = chr(0); {ASCII null char}
var
copyfile : text;
opt : small_int;
fnum : small_int;
r : small_int;
spec : string [11];
result : array [1..2] of small_int;
procedure DSCOPY; intrinsic;
procedure DSCOPYMSG; intrinsic;
begin {program pcopy2}
opt := 2; {output disabled; attempt all transfers; command file enabled}
fnum := 0;
spec := '(copyfile)' + null;
rewrite (copyfile);
writeln (copyfile, '+ ; :SOMENODE [NSUSER.NSACCT]'); {global spec}
writeln (copyfile, 'SOURCE1 TO TARGET1');
writeln (copyfile, 'SOURCE2 TO TARGET2');
writeln (copyfile, 'SOURCE3 TO TARGET3');
close (copyfile);
DSCOPY (opt, spec, result);
if result[1] > 0 then DSCOPYMSG (result, fnum, r)
end.