Re: RPGIII Program Locks

WRKACTJOB option 5 IS WRKJOB... 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Carel Teijgeler
Sent: Thursday, January 12, 2006 3:26 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: **SPAM** Re: RPGIII Program Locks

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                   
>