× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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 thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.