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 <jwgli...@gmail.com>: > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN