RCXVFTV ;DAOU/ALA-FTP for VMS ;08-SEP-03
;;4.5;Accounts Receivable;**201,227**;Mar 20, 1995
;
;
VMSO ; Outgoing for VMS systems
;
; Set up variables
; RCXVFTP = Executable filename
; RCXVPTH = Path name
; RCXVNME = Outgoing filename
; RCXVTXT = .TXT filename
; RCXVBAT = .COM filename
;
D VTXT
;
S Y=$$GTF^%ZISH($NA(^TMP($J,"RCXVFTP",1,0)),3,RCXVPTH,RCXVBAT)
K ^TMP($J,"RCXVFTP")
I 'Y S VALMSG="Not able to create the .COM file" Q
;
VOBAT ; Output and create the .COM file
;
; Create the executable commands for the .TXT file
S ^TMP($J,"RCXVFTP",1,0)="SET TYPE ASCII"
S ^TMP($J,"RCXVFTP",2,0)="PUT "_RCXVNME
S ^TMP($J,"RCXVFTP",3,0)="EXIT"
;
; Output and create the .TXT file
S Y=$$GTF^%ZISH($NA(^TMP($J,"RCXVFTP",1,0)),3,RCXVPTH,RCXVTXT)
K ^TMP($J,"RCXVFTP")
I 'Y S VALMSG="Not able to create the .TXT file" Q
;
X RCXVOUT
;
HANG 60
;
Q
;
VTXT ; Create the .TXT file
S RCXVFTP="RCXVCBO"
S RCXVSCR=RCXVSCR_".LIS",^TMP("RCXVMSG",$J,RCXVSCR_";1")=""
S RCXVBAT=RCXVFTP_$S($G(RCXVSYS)="VMS":".COM",1:".BAT")
S RCXVTXT=RCXVFTP_".TXT"
;
I RCXVSYT="DSM" S RCXVOUT="S X=$ZC(%SUBMIT,RCXVPTH_$S($E(RCXVPTH,$L(RCXVPTH))[""]"":"""",1:"":"")_RCXVBAT)"
I RCXVSYT="CACHE" S RCXVOUT="S X=$ZF(-1,""SUBMIT ""_RCXVPTH_$S($E(RCXVPTH,$L(RCXVPTH))[""]"":"""",1:"":"")_RCXVBAT_""/NOLOG_FILE/NOPRINT"")"
;
I $G(RCXVVMS)="" S RCXVVMS="U"
;
; Kill off the .COM and .TXT files
S RCXVARRY(RCXVTXT)="",RCXVARRY(RCXVBAT)=""
S Y=$$DEL^%ZISH(RCXVPTH,$NA(RCXVARRY))
K RCXVARRY
;
; This sets the .COM file name for VMS systems
I RCXVSYS="VMS" D
. S ^TMP($J,"RCXVFTP",1,0)="$SET NOON"
. S ^TMP($J,"RCXVFTP",2,0)="$SET NOVERIFY"
. S ^TMP($J,"RCXVFTP",3,0)="$SET DEFAULT "_RCXVPTH
. S ^TMP($J,"RCXVFTP",4,0)="$DEL "_RCXVSCR_";*"
. S ^TMP($J,"RCXVFTP",5,0)="$DEF SYS$OUTPUT "_RCXVSCR
. I RCXVVMS="M" S ^TMP($J,"RCXVFTP",6,0)="FTP /TAKE_FILE="_RCXVTXT
. I RCXVVMS="U" S ^TMP($J,"RCXVFTP",6,0)="FTP "_RCXVIP_" /USERNAME="""_RCXVUSR_""" /PASSWORD="""_RCXVPAS_""" /INPUT="_RCXVTXT
. S ^TMP($J,"RCXVFTP",7,0)="$DEASSIGN SYS$OUTPUT"
. S ^TMP($J,"RCXVFTP",8,0)="$SET FILE/PROTECTION=(S:RWED,O:RWED,G:RWED,W:RWED) "_RCXVSCR
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCXVFTV 2232 printed Nov 22, 2024@16:59:54 Page 2
RCXVFTV ;DAOU/ALA-FTP for VMS ;08-SEP-03
+1 ;;4.5;Accounts Receivable;**201,227**;Mar 20, 1995
+2 ;
+3 ;
VMSO ; Outgoing for VMS systems
+1 ;
+2 ; Set up variables
+3 ; RCXVFTP = Executable filename
+4 ; RCXVPTH = Path name
+5 ; RCXVNME = Outgoing filename
+6 ; RCXVTXT = .TXT filename
+7 ; RCXVBAT = .COM filename
+8 ;
+9 DO VTXT
+10 ;
+11 SET Y=$$GTF^%ZISH($NAME(^TMP($JOB,"RCXVFTP",1,0)),3,RCXVPTH,RCXVBAT)
+12 KILL ^TMP($JOB,"RCXVFTP")
+13 IF 'Y
SET VALMSG="Not able to create the .COM file"
QUIT
+14 ;
VOBAT ; Output and create the .COM file
+1 ;
+2 ; Create the executable commands for the .TXT file
+3 SET ^TMP($JOB,"RCXVFTP",1,0)="SET TYPE ASCII"
+4 SET ^TMP($JOB,"RCXVFTP",2,0)="PUT "_RCXVNME
+5 SET ^TMP($JOB,"RCXVFTP",3,0)="EXIT"
+6 ;
+7 ; Output and create the .TXT file
+8 SET Y=$$GTF^%ZISH($NAME(^TMP($JOB,"RCXVFTP",1,0)),3,RCXVPTH,RCXVTXT)
+9 KILL ^TMP($JOB,"RCXVFTP")
+10 IF 'Y
SET VALMSG="Not able to create the .TXT file"
QUIT
+11 ;
+12 XECUTE RCXVOUT
+13 ;
+14 HANG 60
+15 ;
+16 QUIT
+17 ;
VTXT ; Create the .TXT file
+1 SET RCXVFTP="RCXVCBO"
+2 SET RCXVSCR=RCXVSCR_".LIS"
SET ^TMP("RCXVMSG",$JOB,RCXVSCR_";1")=""
+3 SET RCXVBAT=RCXVFTP_$SELECT($GET(RCXVSYS)="VMS":".COM",1:".BAT")
+4 SET RCXVTXT=RCXVFTP_".TXT"
+5 ;
+6 IF RCXVSYT="DSM"
SET RCXVOUT="S X=$ZC(%SUBMIT,RCXVPTH_$S($E(RCXVPTH,$L(RCXVPTH))[""]"":"""",1:"":"")_RCXVBAT)"
+7 IF RCXVSYT="CACHE"
SET RCXVOUT="S X=$ZF(-1,""SUBMIT ""_RCXVPTH_$S($E(RCXVPTH,$L(RCXVPTH))[""]"":"""",1:"":"")_RCXVBAT_""/NOLOG_FILE/NOPRINT"")"
+8 ;
+9 IF $GET(RCXVVMS)=""
SET RCXVVMS="U"
+10 ;
+11 ; Kill off the .COM and .TXT files
+12 SET RCXVARRY(RCXVTXT)=""
SET RCXVARRY(RCXVBAT)=""
+13 SET Y=$$DEL^%ZISH(RCXVPTH,$NAME(RCXVARRY))
+14 KILL RCXVARRY
+15 ;
+16 ; This sets the .COM file name for VMS systems
+17 IF RCXVSYS="VMS"
Begin DoDot:1
+18 SET ^TMP($JOB,"RCXVFTP",1,0)="$SET NOON"
+19 SET ^TMP($JOB,"RCXVFTP",2,0)="$SET NOVERIFY"
+20 SET ^TMP($JOB,"RCXVFTP",3,0)="$SET DEFAULT "_RCXVPTH
+21 SET ^TMP($JOB,"RCXVFTP",4,0)="$DEL "_RCXVSCR_";*"
+22 SET ^TMP($JOB,"RCXVFTP",5,0)="$DEF SYS$OUTPUT "_RCXVSCR
+23 IF RCXVVMS="M"
SET ^TMP($JOB,"RCXVFTP",6,0)="FTP /TAKE_FILE="_RCXVTXT
+24 IF RCXVVMS="U"
SET ^TMP($JOB,"RCXVFTP",6,0)="FTP "_RCXVIP_" /USERNAME="""_RCXVUSR_""" /PASSWORD="""_RCXVPAS_""" /INPUT="_RCXVTXT
+25 SET ^TMP($JOB,"RCXVFTP",7,0)="$DEASSIGN SYS$OUTPUT"
+26 SET ^TMP($JOB,"RCXVFTP",8,0)="$SET FILE/PROTECTION=(S:RWED,O:RWED,G:RWED,W:RWED) "_RCXVSCR
End DoDot:1
+27 ;
+28 QUIT
