Unless all jobs updating the PDS with DISP=SHR use the same serialization protocol, you are going to periodically lose data. I concur with the suggestion to use the ISPF convention.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Pesce, Andy <andy.pe...@autozone.com> Sent: Tuesday, October 8, 2019 12:15 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: PDS Member updating via COBOL Program I am looking for an explanation and this may be one of those "unpredictable results" may occur. I have "JOBA" that executes a COBOL program to update a particular member in a PDS. Within the program, it calls an internal utility that someone wrote years ago that puts an enqueue on the dataset and its member that it is updating. The dd associated with the parmlib uses DISP=SHR. I have "JOBB" that executes a COBOL program to do the same thing, but it is a different member within the same dataset as "JOBA". It is coded to open the dataset as I/O. After it reads the member, it then does a REWRITE. It doesn't follow the rules as above and use the internal utility. The dd associated with the parmlib also uses DISP=SHR. Here is the issue. Occasionally the member in "JOBA" is becoming "empty", while the member in JOBB is always OK. I have looked at SMF records and I see these jobs run at the same time. And it is usually the same down to the hundreds of seconds. My suggestion was that JOBB needs to be fixed to use the "enqueue and dequeue" utility, since it is using DISP-SHR. This parmlib is used heavily and extensively by applications, and no way to get it DISP=OLD. Any thoughts or explanation would truly be appreciated. ---------------------------------------------------------------------- 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
