Here is a quick example of one of my suggestions.
On the PC, define one of the available keys as EXEC samplup.ncp,
where samplup is the following sample procedure file to modify and upload a file.
To define an available key, use Configuration Manager -> Terminal Objects -> host sessions ->
terminal emulation key scheme -> add.
Save the following in the PC's Entire Connection folder PROC as samplup.ncp
INPUT #parm1 33 'Enter PCFILE name'
SET PCFILE 7 up data #parm1 /* Define work file 7; supresses prompt.
OPEN-O 1 #parm1 /* open the file. If existing we append.
if #RC EQ 'APPEND' write 1 #parm1 /* Exists; put the file name as last record
If #RC EQ 'SUCCESS' WAIT 'File not fould, try again.' /* oops we just created it.
If #RC EQ 'SUCCESS' erase #parm1 /* file created new; erase it
schedule te /* start or resume terminal emulation session
/* Here you would TYPE whatever command or key is necessary to launch the
/* host's download. For example: TYPE PCUPLOAD or TYPE PF8
The host’s Natural program (PCUPLOAD in this example) would simply have:
READ WORK 7 #upload-data
AT END OF FILE
WRITE #upload-data /* show file name
. . .
So when the customer using Entire Connection hits the key defined as EXEC samplup.ncp the host program will print the file’s name.