EXECIO abend code 213, reason code 00000048.
Posted: Fri Dec 12, 2014 2:19 pm
I am executing the REXXX to append the date to file names, when it ran for the first time , it executed fine. On the second and third run it failed with below error and it worked fine on 4th run. The rex was not modified thruout all the 4 runs.
REXX :
Please help me find the reason behind this behaviour.
coded
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