IBM Mainframe Forum

by **pratiksha88** » 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 :

Select all

/* 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 :

Select all

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

Please help me find the reason behind this behaviour.

coded

by **prino** » Fri Dec 12, 2014 3:26 pm

Add

Select all

trace ?r

as the second line of your code and show the trace!

by **NicC** » Fri Dec 12, 2014 6:34 pm

How do you know if your ALLOC worked ok?
What did you glean from the messages and codes manual for a S213-48?

And please use the code tags when posting code - like Prino did.

by **vern** » Fri Dec 12, 2014 7:00 pm

A 213-48 is

48 OPEN detected a bad return from the extended cache attribute facility.

No I've no idea what that means

by **steve-myers** » Fri Dec 12, 2014 8:08 pm

Like Vern, I too, looked up the S213-48. I, too, have no idea what it means.

Is NDVR.PROD.PRD.CTL a PDS? What are its DCB attributes?

by **pratiksha88** » Fri Dec 12, 2014 9:40 pm

NDVR.PROD.PRD.CTL is a library and RNAFTP02 is control card that contains REXX menntioned in first post.

by **steve-myers** » Fri Dec 12, 2014 9:46 pm

You were asked 2 questions. What is the answer to both questions?

by **Pedro** » Tue Dec 16, 2014 2:50 am

NDVR.PROD.PRD.CTL

Something to do with 'production'... perhaps a somewhat important data set... it might be performance sensitive. Perhaps it -is- being cached. Check your COFVLFxx definitions in SYS1.PARMLIB. I do not have experience in this area, but there might be a trick to actually update such a data set.

by **pratiksha88** » Tue Dec 16, 2014 12:24 pm

Hi Steve ,

Sorry for delayed response.

NDVR.PROD.PRD.CTL is a PDS and the attributes are :

Management class . . : MCNOMIG
Storage class . . . : SCAVPLIB
Volume serial . . . : AVPC16
Device type . . . . : 3390
Data class . . . . . : **None**
Organization . . . : PO
Record format . . . : FB
Record length . . . : 80
Block size . . . . : 3120
1st extent cylinders: 300
Secondary cylinders : 30
Data set name type : PDS

by **pratiksha88** » Tue Dec 16, 2014 12:28 pm

Hi Prino,

I can not add TRACE as the files are in production. When i run the same in test environment it is running fine. Even in production it works fine at times and it fails some times.

IBM Mainframe Forum

EXECIO abend code 213, reason code 00000048.

EXECIO abend code 213, reason code 00000048.

Re: EXECIO abend code 213, reason code 00000048.

Re: EXECIO abend code 213, reason code 00000048.

Re: EXECIO abend code 213, reason code 00000048.

Re: EXECIO abend code 213, reason code 00000048.

Re: EXECIO abend code 213, reason code 00000048.

Re: EXECIO abend code 213, reason code 00000048.

Re: EXECIO abend code 213, reason code 00000048.

Re: EXECIO abend code 213, reason code 00000048.

Re: EXECIO abend code 213, reason code 00000048.