Hi John,
it's the same for me.
Sometimes I get the right behaviour and other times no !
The COBOL program does the OPEN I-O and the SMF64 states the step did both
READ and UPDATE (the flag in the SMF64 is coherently incoherent).
Look at the SMF64 record below.
In my understanding, if at CLOSE Time the statistic field SMF64DRE is
greater then 0 then the program made some GETS so why the MC1 flag states
no Input ?
I'm sure (the source program's got only one OPEN for the DD and it's I-O).
I verified that all the programs LOADED in that step are not performing any
operation about that DD.
How about it ?
I think I'm going to ask IBM to better understand and verify if my meaning
is correct or not even though any further news from you will be really
appreciated.
Thanks a lot for you support.
Massimo
POSN 12345678901234567890123456789012345678901234567890
1 CHAR . ..f.....MVSAJTIMAN19...S....SYSPROD ..ICFUCAT.AP
ZONE 1*4*00800102DEECDECDCDFF007E0102EEEDDDC4*8**A*CCCECCE4CD
NUMR E*0*0469143F4521139415190482143F28279640*0**0*9364313B17
+---------+---------+---------+---------+---------+
51 CHAR PLJP0 JTIP.VSBW0M.APPO
ZONE DDDDF44444444444444444444444444444DECD4EECEFD4CDDD
NUMR 73170000000000000000000000000000001397B522604B1776
+---------+---------+---------+---------+---------+
101 CHAR GGIO.TITOLIXX.DATA ................LRPRD3
ZONE CCCD4ECEDDCEE4CCEC44444444440000B00104000400DDDDCF
NUMR 7796B39363977B413100000000000007C00A0600060E397943
+---------+---------+---------+---------+---------+
151 CHAR ..................................................
ZONE 120033200000*0003*000000000000000000000000000000B000
NUMR 6300000F0000*0014*0000000100010000000000000000078000
+---------+---------+---------+---------+---------+
201 CHAR .....................................d..Q.........
ZONE 0000000000000000000006*0000**0001**001E**0018*FFD000000000
NUMR 0000000003000000000003*0001**000*9*000C**0014*FF8000040000
+---------+---------+---------+---------+---------+
251 CHAR ..................TITAR02U..........JTIP.VSBW0M.AP
ZONE *0003*00000000000500ECECDFFE0200000000DECD4EECEFD4CD
NUMR *001A*0040004000030E3931902412000000001397B522604B17
251 CHAR ..................TITAR02U..........JTIP.VSBW0M.AP
ZONE 000300000000000500ECECDFFE0200000000DECD4EECEFD4CD
NUMR 001A0040004000030E3931902412000000001397B522604B17
+---------+---------+---------+---------+---------+
301 CHAR POGGIO.TITOLIXX ....................
ZONE DDCCCD4ECEDDCEE44444444444444400*9*00043000000000000
NUMR 767796B3936397700000000000000001*A*00040000000000000
+---------+---------+---------+---------+---------+
351 CHAR ..................................................
ZONE 00000000000000000000000000000000000000000000000000
NUMR 00000000000000000000000000000000000000000000000000
+---------+---------+---------+---------+---------+
401 CHAR ............................................=6....
ZONE 000000000000000000000000000000000000000000007F0102
NUMR 00000000000000000000000000000000000000000004E6143F
+---------+---------+---------+---------+---------+
451 CHAR ....................
ZONE 00000000000000000000
NUMR 00000000000000000000
+---------+---------+---------+---------+---------+
SMF64RIN=x'80' 1000 0000 Component Closed and the Extended Area is present
SMF64DTY=x'A0' 1010 0000 It's teh Data Component and the Format is Extended
SMF64SLN=x'00000134' 308 Length of Statistic Section (start of)
SMF64DDE=x'00000001' 1 Record Deleted
SMF64DIN=x'00000019' 25 records Inserted
SMF64DUP=x'000010EC' 4332 Records Updated
SMF64DRE=x'00001184' 4484 Records Retrieved
SMF64DEP=x'0000013A' 314 EXCP
SMF64MC1=x'9A' 1001 1010
1 = Record is identified by a KEY (it matches with Organization is indexed
from Cobol)
0 = RBA access NO
0 = CI access NO
1 = Sequential Processing (Access mode in Dynamic from Cobol)
1 = Direct Processing (Access mode in Dynamic from Cobol)
0 = Input Processing NO (???)
1 = Output Processing YES
0 = User Supplied Buffer Space NO
2014-02-13 20:14 GMT+01:00 John Gilmore <[email protected]>:
> Massimo,
>
> I have not been able to reproduce your problem, but I am almost
> certainly not doing exactly what you are doing.
>
> When I open a COBOL 2.1 [INDEXED DYNAMIC] file for input, I get input
> processing 1, output processing 0; when I open it for output, I get
> input processing 0, output processing 1; and when I open it for
> update I get input processing 1, output processing 1.
>
> What kind of processing had been done on this file when the SMP record
> you show was cut?
>
> John Gilmore, Ashland, MA 01721 - USA
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
