So..... a super special thanks to all of you who replied. Thanks a ton!
Tom started me off down a very good path and then quentin nudged the thoughts a bit with using an alternative option available that required 'quotes'. After playing around just a bit with it (I am doing this thing on the side of the desk while the regular Hair-On-Fire issues arise at work) I realized that I could just repeat the host part of the command, resulting a something like this....
data _null_; call symputx('SFTPUrl','sftp.tdbank.ca" port=1065 Prot=P HOST="sftp.tdbank.ca'); run;
And after running the process I was ecstatic to see the following contained in the log (some obfuscation to make my security guys happy)
42 Filename AdvInt00 FTP "'FIPP.C.D.FPDAT390.ADVISOR.INTEREST(0)'" User="&TSOUser" Pass="&TSOPass" Host="&SFTPUrl" 43 44 recfm=FB lrecl=90 45 ; 46 47 Data AdvInt00 ; 48 Infile AdvInt00 ; 49 Input 50 @009 RRCode $Ebcdic4. 51 @013 AdvType $Ebcdic3. 52 @016 ACF2 $Ebcdic8. 53 @024 Seqn S370FF3. 54 ; 55 If Seqn eq 0 ; 56 If RRCode eq: 'F' Then Bus='TDW-FP ' ; 57 else Bus='TDW-IA ' ; 58 59 run ;
NOTE: 220-TCPSFTP1 IBM FTP CS V2R3 at **Location**, 08:51:20 on 2022-03-16. NOTE: User TEEDL has connected to FTP server on Host **Location** . NOTE: The infile ADVINT00 is: Filename='FIPP.C.D.FPDAT390.ADVISOR.INTEREST(0)', NOTE: 15740 records were read from the infile ADVINT00. NOTE: The data set WORK.ADVINT00 has 11902 observations and 5 variables. NOTE: DATA statement used (Total process time): real time 4.94 seconds cpu time 0.21 seconds
Bottom line, it is looking like I have the desired one line update solution for the multitude of downstream routines.
Yes, this is not a long term solution but this process is not a long term one and will most likely be sent out to pasture in the next year or two. So this was just a simple thing to get by the existing routine.
And a quick note on the IBM Z/OS environment. While it is at some locations being replaced with 'fancier' platforms, in other instances it is soldiering on efffectively, performing the myriad of operations it was designed for and that the blazingly fast server farms we currently see continue to fail to achieve. Further, in some cases the many, many, many years of upgrading and expanding have made most applications running on our environment fairly complex, and to move off that platform would require a MAJOR (all caps intended) allocation of resources and carry within it some risk. And the offsetting benefits would not be enough to justify the cost.
... View more
