|
While in WRKJOB take option 11. That will show you the current call stack. If you locate the source for the programs in the stack you'll find the files being opened & determine why. In general a menuing system consist of option files, security files, etc. It's not surprising... Thanks, Tommy Holden -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of murali dhar Sent: Friday, January 13, 2006 12:52 PM To: RPG programming on the AS400 / iSeries Subject: **SPAM** RE: RPGIII Program Locks Tommy Thanks for the reply. Today I noticed the below.I donot understand why it is opening so many files as program is not doing anything specially to cause opening files. Case1: when I do immediately from the menu shift+escape and then 3 , it will show workjob options , and take 14 to display open files. Display Open Files Job . . : QPADEV0003 User . . : LIBMUN Number . . . : 782512 Number of open data paths . . . . . . . . . . : 13 Member/ File Library Device Scope Activation Group CTLFIL LIBAIG CTLFIL *ACTGRPDFN 0000000002 *DFTACTGRP CTLDEF LIBAIG CTLDEF *ACTGRPDFN 0000000002 *DFTACTGRP MENU C90ENG QPADEV0003 *ACTGRPDFN 0000000002 *DFTACTGRP SYSPRM C90FILES SYSPRM *ACTGRPDFN 0000000002 *DFTACTGRP SECMNU PROENG SECMNU *ACTGRPDFN 0000000002 *DFTACTGRP ACTMNU C90FILES ACTMNU *ACTGRPDFN 0000000002 *DFTACTGRP ACTLOG LIBAIG ACTLOG *ACTGRPDFN 0000000002 *DFTACTGRP UN050 PROENG QPADEV0003 *ACTGRPDFN 0000000002 *DFTACTGRP POLHDR05 LIBAIG POLHDR05 *ACTGRPDFN 0000000002 *DFTACTGRP NOTRQS LIBAIG NOTRQS *ACTGRPDFN 0000000002 *DFTACTGRP RSKFIN LIBAIG RSKFIN *ACTGRPDFN 0000000002 *DFTACTGRP More... Case2: when i come out of customized menu , take workjob and 14..... Display Open Files Job . . : QPADEV001T User . . : LIBMUN Number . . . : 782509 Number of open data paths . . . . . . . . . . : 5 Member/ File Library Device Scope Activation Group QDUI80 QSYS QPADEV001T *ACTGRPDFN 0000000002 *DFTACTGRP QDUODSPF QPDA QPADEV001T *ACTGRPDFN 0000000002 *DFTACTGRP QDUODSPF QPDA QPADEV001T *ACTGRPDFN 0000000002 *DFTACTGRP QDUI80 QSYS QPADEV001T *ACTGRPDFN 0000000002 *DFTACTGRP QDDSPOF QSYS QPADEV001T *ACTGRPDFN 0000000002 *DFTACTGRP Holden Tommy <Tommy.Holden@xxxxxxxxxxxxxxxxx> wrote: OK first off it appears that you are not taking into account that your "customized" menu system is actually a menu program(s) everything after the QDPGMRMN lock is locked via your menuing programs as well as the RPG run by the option & it's subsequent called programs. Thanks, Tommy Holden -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of murali dhar Sent: Thursday, January 12, 2006 1:46 PM To: RPG programming on the AS400 / iSeries Subject: **SPAM** RPGIII Program Locks I take an option 2 on customized menu on our AS/400 box , which calls an RPG III program. There is nothing much special in this program which can may nt be a reason to lock so many files. But once I run the option , come out and see WORKJOB & 14. Display open files, if active, it gives below number of locks. The list of locks is very big(only part of the list is shown below), Can some one throw light how to go and trouble shoot this problem. I have also pasted a portion of the program , I didnt see any special in this program or subsequent called programs that could throw these many locks. Any pointers are greatly appreciated. Member/ File Library Device Scope Activation Group QDUI80 QSYS QPADEV001T *ACTGRPDFN 0000000002 *DFTACTGRP QDPGMRMN QSYS QPADEV001T *ACTGRPDFN 0000000002 *DFTACTGRP CTLFIL LIBAIG CTLFIL *ACTGRPDFN 0000000002 *DFTACTGRP CTLDEF LIBAIG CTLDEF *ACTGRPDFN 0000000002 *DFTACTGRP MENU C90ENG QPADEV001T *ACTGRPDFN 0000000002 *DFTACTGRP SYSPRM C90FILES SYSPRM *ACTGRPDFN 0000000002 *DFTACTGRP SECMNU PROENG SECMNU *ACTGRPDFN 0000000002 *DFTACTGRP ACTMNU C90FILES ACTMNU *ACTGRPDFN 0000000002 *DFTACTGRP ACTLOG LIBAIG ACTLOG *ACTGRPDFN 0000000002 *DFTACTGRP PRASTE LIBAIG PRASTE *ACTGRPDFN 0000000002 *DFTACTGRP RISKTE LIBAIG RISKTE *ACTGRPDFN 0000000002 *DFTACTGRP PRASEI LIBAIG PRASEI *ACTGRPDFN 0000000002 *DFTACTGRP RISKEI LIBAIG RISKEI *ACTGRPDFN 0000000002 *DFTACTGRP PRASED LIBAIG PRASED *ACTGRPDFN 0000000002 *DFTACTGRP RISKED LIBAIG RISKED *ACTGRPDFN 0000000002 *DFTACTGRP PRASEC LIBAIG PRASEC *ACTGRPDFN 0000000002 *DFTACTGRP RISKEC LIBAIG RISKEC *ACTGRPDFN 0000000002 *DFTACTGRP PRATNT LIBAIG PRATNT *ACTGRPDFN 0000000002 *DFTACTGRP PPPTNT LIBAIG PPPTNT *ACTGRPDFN 0000000002 *DFTACTGRP PRASSA LIBAIG PRASSA *ACTGRPDFN 0000000002 *DFTACTGRP RISKSA LIBAIG RISKSA *ACTGRPDFN 0000000002 *DFTACTGRP PRASPS LIBAIG PRASPS *ACTGRPDFN 0000000002 *DFTACTGRP ========================================================== I take a option 2 from a menu this calls an RPGIII program. _____________________________________________________________ SELEC# IFEQ '2' SELEC# OREQ '4' MOVE '1' WFLAG2 1 END ========================== SELEC# IFEQ '2' SELEC# OREQ '4' MOVE '1' WFLAG2 1 ============================== WFLAG2 IFEQ '1' *IN30 IFEQ '0' MOVE PPARM# PPARM MOVE WKSTN# WKSTN Z-ADD*ZEROS PCOPY MOVE *BLANKS PFILE MOVEL'YN989 ' PFILE CALL '@PROP' PROPT CMD01 IFEQ '1' SETON 30 END END END =========================================== WFLAG2 IFEQ '1' MOVEL'RM8008' MSGID# ELSE MOVEL'RM8007' MSGID# END ELSE WFLAG2 IFEQ '1' MOVEL'RM8006' MSGID# END END Thanks, --------------------------------- Yahoo! Photos - Showcase holiday pictures in hardcover Photo Books. You design it and we'll bind it!
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.