Posts

Showing posts with the label ibm-midrange

Journalling in AS400

Image
Clash Royale CLAN TAG #URR8PPP Journalling in AS400 I used dspjrn command to take the journals for a file in as400. In resultant journal, all decimal fields has become zeros, even if there is a value for those fields in the file. What could be the reason? (Very uninformed guess) Maybe the file was not encoded in EBCDIC. – Joop Eggen 4 hours ago Please show an example of what you are seeing in the journal compared to the data actually in the file. Include all of the entry data – jmarkmurphy 55 mins ago 1 Answer 1 I can think of two possibilities 1) You're looking at an "after image" for a delete...

Using QCMDEXC to call QEZSNDMG via DB2 stored procedure

Image
Clash Royale CLAN TAG #URR8PPP Using QCMDEXC to call QEZSNDMG via DB2 stored procedure Working on a side project where I use a set of views to identify contention of records within an iSeries set of physical files. What I would like to do once identified is pull the user profile locking the record, and then send a break message to their terminal as an informational break message. What I have found is the QEZSNDMG API. Simple enough to use interactively, but I'm trying to put together a command that would be used in conjunction with QCMDEXC API to issue the call to QEZSNDMG and alert the user that they are locking a record. Reviewing the IBM documentation of the QEZSNDMG API, I see that there are two sets of option parameters, but nothing as required (which seems odd to me, but another topic for another day). But I continue to receive the error "Parameters passed on CALL do not match those required." Here are some examples that I have tried from the command line so far: No...