REXX :
/* REXX */
/* POPULATE FTP SERVER USERID AND PASSWORD */
ext_ftp.1 = "pwdsn=" || '"' || "XXXXXXXXXXXXXXXXXXXXXXXXX" || '"'
ext_ftp.2 = "user=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
ext_ftp.3 = "host=XXXXXXXXXXXXXXXXXXXXXXXXXXX"
ext_ftp.4 = ". $script_dir/sftp_connect.sh << EOB"
ext_ftp.5 = "lzopts mode=binary"
/* POPULATE DATE */
X=DATE(S)
INP1=BPR.RNAD16.RNAAUNZ.ZIP
OUT1="rnabu"
ext_ftp.6 = "cd /applsend/rnabu/outbox"
ext_ftp.7 = "put " || "//" || inp1 || " " || out1 || X || ".zip"
ext_ftp.8 = "EOB"
ext_ftp.0 = 8
/* BUILD THE CONTROL CARD DATASET NAME */
NORMAL_CARD = 'NDVR.PROD.PRD.CTL(RNASFTP1)'
ADDRESS "TSO"
"ALLOC FI(OUTFILE1) DA ('"normal_card"') SHR REU"
"EXECIO * DISKW OUTFILE1 (STEM ext_ftp. FINIS"
"FREE FI (OUTFILE1)"
======================================================
ERROR :
/* POPULATE FTP SERVER USERID AND PASSWORD */
ext_ftp.1 = "pwdsn=" || '"' || "XXXXXXXXXXXXXXXXXXXXXXXXX" || '"'
ext_ftp.2 = "user=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
ext_ftp.3 = "host=XXXXXXXXXXXXXXXXXXXXXXXXXXX"
ext_ftp.4 = ". $script_dir/sftp_connect.sh << EOB"
ext_ftp.5 = "lzopts mode=binary"
/* POPULATE DATE */
X=DATE(S)
INP1=BPR.RNAD16.RNAAUNZ.ZIP
OUT1="rnabu"
ext_ftp.6 = "cd /applsend/rnabu/outbox"
ext_ftp.7 = "put " || "//" || inp1 || " " || out1 || X || ".zip"
ext_ftp.8 = "EOB"
ext_ftp.0 = 8
/* BUILD THE CONTROL CARD DATASET NAME */
NORMAL_CARD = 'NDVR.PROD.PRD.CTL(RNASFTP1)'
ADDRESS "TSO"
"ALLOC FI(OUTFILE1) DA ('"normal_card"') SHR REU"
"EXECIO * DISKW OUTFILE1 (STEM ext_ftp. FINIS"
"FREE FI (OUTFILE1)"
======================================================
ERROR :
READY
EX 'NDVR.PROD.PRD.CTL(RNAFTP02)'
IRX0250E System abend code 213, reason code 00000048.
IRX0255E Abend in host command EXECIO or address environment routine TSO.
IRX0670E EXECIO error while trying to GET or PUT a record.
READY
END
EX 'NDVR.PROD.PRD.CTL(RNAFTP02)'
IRX0250E System abend code 213, reason code 00000048.
IRX0255E Abend in host command EXECIO or address environment routine TSO.
IRX0670E EXECIO error while trying to GET or PUT a record.
READY
END
Please help me find the reason behind this behaviour.
coded