AS/400 HELP

"LOCKS"

Display a list of the Database File Locks

LOCKS displays a list of jobs that are either holding or waiting for a database record.

LOCKS uses API QUSLJOB to get all jobs into a user space. All Interactive & Batch type jobs are scanned with QDBRJBRL to retrieve any locks. (see NOTE below)

VTOC was developed at 5.1 (for V4r5 e-mail me)

PC INSTRUCTIONS:

Download "LOCKS” to your PC.

Go to a DOS session and enter the following;

FTP SYSTEM (system = your AS/400’s name or IP address)

Enter a valid user id and password

CD QGPL

LCD C:\DIRECTORY (directory= the directory on your pc where you downloaded “locks.savf”

QUOTE SITE NAMEFMT 1

BIN

PUT LOCKS.SAVF

QUOTE RCMD RSTLIB SAVLIB(LOCKS) DEV(*SAVF) SAVF(QGPL/LOCKS)

 Note: If there is a security problem restoring all objects with the command above, sign on to your as/400 as Qsecofr and run RSTLIB from the command line.

DOWNLOAD locks.savf

AS/400 INSTRUCTIONS:

ADDLIBLE LOCKS

LOCKS

NOTE: LOCKS looks at all batch jobs. You may want to modify the program to include only QBATCH subsystem jobs as this will speed up the program.