I'm trying to build a VBScript macro for IBM Personal Communications that will automatically allocate a dataset and upload an xml file to that dataset. I've already successfully got the dataset allocation working and getting it to the ISPF command shell, but the final step, the actually upload fails. It looks like the system if sending data as text to the command line then it tries to edit a protected field. The progress status window appears but never progresses beyond 0%.
When I do the upload manually(which works), the settings are:
Under MVS /TSO in file transfer settings, ASCII and CRLF are checked, record format is set to variable.
Here's my code to do the upload:
[PCOMM SCRIPT HEADER]
DESCRIPTION=Test view menu
[PCOMM SCRIPT SOURCE]
REM This line calls the macro subroutine
' Create File Transfer Object
Set objXfer = CreateObject("PCOMM.autECLXfer")
' Initialize the Connection
' Confirm that connection is ready to send
If objXfer.Ready = False Then
' Unable to transfer
msgbox "Not ready to submit file!"
objXfer.SendFile "C:\Users\Public\Temp\upload.xml", "TCELL.MYDATA.XML.UPLOAD.G0038V00", "CRLF ASCII"
I've not been able to figure out how to properly put the Record Format in as a parameter. I have tried RECFM V, as it seemed to be indicated in the manuals online, but it didn't make a difference. The IBM PCOMM Class reference says to consult the programming guide, but the programming guide doesn't elaborate on how to configure this. Could anyone give me some suggestions on how to proceed? Thanks,