PCOMMS VBScript - Upload to Dataset
Posted: Tue Jan 28, 2014 5:03 amHi,
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]
LANGUAGE=VBSCRIPT
DESCRIPTION=Test view menu
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
' Create File Transfer Object
Dim objXfer
Set objXfer = CreateObject("PCOMM.autECLXfer")
' Initialize the Connection
objXfer.SetConnectionByName(ThisSessionName)
' Confirm that connection is ready to send
If objXfer.Ready = False Then
' Unable to transfer
msgbox "Not ready to submit file!"
Exit Sub
Else
objXfer.SendFile "C:\Users\Public\Temp\upload.xml", "TCELL.MYDATA.XML.UPLOAD.G0038V00", "CRLF ASCII"
end if
end sub
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,
David
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]
LANGUAGE=VBSCRIPT
DESCRIPTION=Test view menu
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
' Create File Transfer Object
Dim objXfer
Set objXfer = CreateObject("PCOMM.autECLXfer")
' Initialize the Connection
objXfer.SetConnectionByName(ThisSessionName)
' Confirm that connection is ready to send
If objXfer.Ready = False Then
' Unable to transfer
msgbox "Not ready to submit file!"
Exit Sub
Else
objXfer.SendFile "C:\Users\Public\Temp\upload.xml", "TCELL.MYDATA.XML.UPLOAD.G0038V00", "CRLF ASCII"
end if
end sub
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,
David
