Now I would give the latest feedback on this topic.
After I switched from 'Enterprise PL/I for Z/OS v3r1m0' to 'IBM PL/I
for MVS&VM V1R1M1', my problem has been solved.
And I would say thanks to Barry Merrill. He kindly took my SMF dump
data set duing my test and gave me the analysis:
The two type1415 records for your two experiments are attached;
the access method was indeed changed from BSAM (416,074 EXCPs)
to QSAM (23 EXCPs).
So it's really because of BSAM and QSAM!!!!!!!
But that's not the end of story.
I also sent my PL/I program to one of my friend and asked him to compile
it using their site's latest compiler 'Enterprise PL/I for Z/os v3r3m0' and
then gave the load module to me.
But the problem is the same.
Ok, ADCD 1.4 is old and maybe is lack of maintenance so its PL/I compiler
is 'buggy'. But how about the compiler of my friend's site? It's the newer
version
and is under normal maintenance( built on 20051017) .
Here is my test PL/I program and its coding style is the same as our
customer's
production PL/I programs(Our customer uses 'Enterprise PL/I for ZOS
v3r2m0').
PLVB1: PROC OPTIONS(MAIN);
DCL OUTFILE UPDATE RECORD FILE;
DCL OUTFILE_REC CHAR(1024) VAR INIT(' ');
DCL 1 OUTFILE_REC1 BASED(ADDR(OUTFILE_REC)),
2 OUTFILE_LEN FIXED BIN(15) INIT(0),
2 OUTFILE_DATA CHAR(8) INIT(' ');
DCL NUM FIXED DEC(10) INIT (40000);
OPEN FILE(OUTFILE) UPDATE;
DO WHILE(NUM>0);
READ FILE(OUTFILE) INTO(OUTFILE_REC);
OUTFILE_DATA='JOHNNY';
REWRITE FILE(OUTFILE) FROM(OUTFILE_REC);
NUM=NUM-1;
END;
CLOSE FILE(OUTFILE);
END PLVB1;
--
Best Regards,
Johnny Luo
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
