On Thu, 19 Jan 2017 01:11:23 -0600, Elardus Engelbrecht wrote:
>
>>Reading further, I see exceptions made for program object library members and
>>for RECFM=VBS. I see no exception for allocated UNIX files, yet they don't
>>seem to work:
>
>Weird. Please post your DD for that above dataset or your ALLOC statement in
>your REXX for above...
>
Relevant code:
trace Err
address 'MVS'
/* Allocate to create file. */
say BPXWDYN( "ALLOC FI(INOUTDD) recfm(V,B) lrecl(999) blksize(1111)" ,
"filedata(text) path('/tmp/"userid()"/testru')" ,
"pathopts(ORDWR,OCREAT,OTRUNC) pathmode(SIRUSR,SIWUSR)" ,
"REUSE msg(2)" )
/* Populate INOUTDD */
do I = 1 to 50
OutRec.I = 'Record' right( I, 3 ) copies( 'x', I ) 'TSOREXX' ,
'more stuff'; end
'execio 3 DISKW INOUTDD (finis stem OutRec.'
/* Allocate to process file. */
say BPXWDYN( "ALLOC FI(INOUTDD) recfm(V,B) lrecl(999) blksize(1111)" ,
"filedata(text) path('/tmp/"userid()"/testru')" ,
"pathopts(ORDWR) pathmode(SIRUSR,SIWUSR)" ,
"REUSE msg(2)" )
call Show 'Before'
readcnt = 0 /* Initialize rec read cntr */
updtcnt = 0 /* Initialize rec update cntr */
error = 0 /* Initialize flag */
EOF = 0 /* Initialize flag */
say; say 'Updating ------------------'
do while (EoF=0 & error=0) /* Loop while more records and
no error */
"execio 1 DISKRU INOUTDD (STEM inrec." /* Read a record */
Output:
0
0
Before 3 ---------------------
1 31 Record 1 x TSOREXX more stuff
2 32 Record 2 xx TSOREXX more stuff
3 33 Record 3 xxx TSOREXX more stuff
Updating ------------------
IRX0250E System abend code 013, reason code 00000188.
IRX0255E Abend in host command execio or address environment routine MVS.
IRX0670E EXECIO error while trying to GET or PUT a record.
50 *-* "execio 1 DISKRU INOUTDD (STEM inrec." /* Read a record
*/
+++ RC(20) +++
*** Error occurred while updating file
After 3 ---------------------
1 31 Record 1 x TSOREXX more stuff
2 32 Record 2 xx TSOREXX more stuff
3 33 Record 3 xxx TSOREXX more stuff
SYSLOG:
IEC141I 013-BC,IGG0199G,user6,STEP1,INOUTDD 566
IEA995I SYMPTOM DUMP OUTPUT 567
SYSTEM COMPLETION CODE=013 REASON CODE=000000BC
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
