Re: RPGIII Program Locks -- RPG400-L

Murali,

It looks more like Open Files (WRKACTJOB, option 5, option 14) to me.
Record locks can be fouund with WRKACTJOB option 11, F10, option 5.

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 12-1-06 at 11:46 murali dhar wrote:

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