Comments on: AS/400 iSeries Submitted Job/Batch Record Lock issue

By: Sloopy

Sloopy — Fri, 28 Nov 2008 10:12:44 +0000

I tested your code on my system, using the following two programs (file changed to suit our database) : TSTLCK1 program.... [CODE] FCUSTL1 UF E K DISK infds(SRWNAM) D SRWNAM DS D Status *Status D Response S 1 Inz('A') C K_CS KLIST C KFLD CSSTAT C KFLD CSCUST C EVAL CSSTAT = 0 C EVAL CSCUST = 'GBSIMON1' C DOU Status <> 1218 C* Read the Customer Master Record C K_CS CHAIN(E) CS 99 C* Check the File Status, if record was locked, execute subroutine C IF %Status(CUSTL1) = 1218 C Status DSPLY 'BLECMD' Response C ENDIF C ENDDO C EVAL *INLR = *ON [/CODE] TSTLCK2 program.... [CODE] FCUSTL1 UF E K DISK infds(SRWNAM) D SRWNAM DS D Status *Status D Response S 1 Inz('A') C K_CS KLIST C KFLD CSSTAT C KFLD CSCUST C EVAL CSSTAT = 0 C EVAL CSCUST = 'GBSIMON1' C* Read the Customer Master Record C K_CS CHAIN(E) CS 99 C Status DSPLY Response C EVAL *INLR = *ON [/CODE] Running TSTLCK2 interactively holds the record lock until a reply is entered. Sending TSTLCK1 to run in batch results in a wait on the locked record (1 minute), then the DSPLY operation sends its message to my message queue requiring a response. In the batch job, Inquiry Message Reply is *RQD. So; I can't see any reason why your code should not work in batch. Try using the DSPLY or DUMP operations to see the contents of the STATUS variable; and make sure that there really IS a lock on the record you expect. Regards, Sloopy

By: Kevleemor

Kevleemor — Wed, 26 Nov 2008 21:46:03 +0000

Hi Gil, it is in the HI position to check if the record is not found.

Kevin

By: Gilly400

Gilly400 — Wed, 26 Nov 2008 16:53:36 +0000

Hi Kevin,

The job is set to *RQD and it still auto replies to the locked record messages in the joblog? Which column is your indicator 99 in for your CHAIN opcode?

Regards,

Martin Gilbert.

By: Kevleemor

Kevleemor — Wed, 26 Nov 2008 15:16:53 +0000

I looked at the Job Definition Attributes of the submitted job, it is set to *RQD. [CODE] Job: RECORDLOCK User: KLM Number: 246458 Default output queue . . . . . . . . . . . . . . : QPRINT Library . . . . . . . . . . . . . . . . . . . . : QGPL Job date . . . . . . . . . . . . . . . . . . . . : Date format . . . . . . . . . . . . . . . . . . . : *MDY Date separator . . . . . . . . . . . . . . . . . : / Time separator . . . . . . . . . . . . . . . . . : : Time zone . . . . . . . . . . . . . . . . . . . . : QN0500EST3 Decimal format . . . . . . . . . . . . . . . . . : *BLANK Job switches . . . . . . . . . . . . . . . . . . : Inquiry message reply . . . . . . . . . . . . . . : *RQD [/CODE]