Loading ...
Sorry, an error occurred while loading the content.

RE: [Easy400Group] Record/File locks

Expand Messages
  • Van os Antoon
    Happy New Year to you all. Strange indeed, this persisting lock problem. If the Close *All was succesful this means that no records can remain locked after a
    Message 1 of 13 , Jan 1, 2004
    • 0 Attachment
      Happy New Year to you all.
      Strange indeed, this persisting lock problem.
      If the Close *All was succesful this means that no records can remain locked after a read on the ODP that
      was created by the Open and closed by the Close *all. If you still see record locks it can only mean that :
      -     You did more than 1 Open. That should show up under option 14 of the WRKJOB of the server
            instance. ( Did you do a "new" open or SHARE(*YES) ?) . Or :
      -    You are using Commitment control and there are pending ( uncommitted ) changes. This will
          show under option 16.
      Hth,
      Antoon
      -----Original Message-----
      From: Giovanni Perotti [mailto:gb_perotti@...]
      Sent: donderdag 1 januari 2004 1:08
      To: Easy400Group@yahoogroups.com
      Subject: Re: [Easy400Group] Record/File locks





      Strange case.
      - if your program opens a file for update, make sure it releases the
      records it reads (use "update" after each "read")
        If that is done, there should be no record locks even if the program
      returns without closing files

      - if you still have locks, use command WRKOBJLCK to find the offending job

      Giovanni B. Perotti
      Easy400 webmaster



                                                                                                                                            
                            "Piggott, Steven                                                                                                
                            G"                       To:       "'Easy400Group@yahoogroups.com'" <Easy400Group@yahoogroups.com>              
                            <stevengpiggott@e        cc:                                                                                    
                            aton.com>                Subject:  [Easy400Group] Record/File locks                                             
                                                                                                                                            
                            31/12/2003 20.34                                                                                                
                            Please respond to                                                                                               
                            Easy400Group                                                                                                    
                                                                                                                                            
                                                                                                                                            




      I have searched the archive but am unable to find a solution to my record /
      file lock problem.

      I have a simple CGI - RPGLE program that opens two files, read the files
      based on the info from the web page and returns the data to a new web page.
      The program user opens the files and just before the *inlr='1' statement it
      does a close *all.  The problem the files are still locked by the web
      server
      instance on the AS/400.  What am I missing?  I need to free the file so our
      normal AS/400 processing (not web) can take place. The only way to free the
      file is to stop and restart the instance.

      Any insight will be appreciated.

      Thanks.

      Steven Piggott
      Systems Analyst


      Yahoo! Groups Links
            To visit your group on the web, go to:
            http://groups.yahoo.com/group/Easy400Group/

            To unsubscribe from this group, send an email to:
            Easy400Group-unsubscribe@yahoogroups.com

            Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.




      Yahoo! Groups Links

    • Piggott, Steven G
      Could it be an activation group issue? The Scope of the lock is *job. The job that is locking them is the instance of the webserver, my instance is called
      Message 2 of 13 , Jan 2, 2004
      • 0 Attachment
        Could it be an activation group issue?  The Scope of the lock is *job.
        The job that is locking them is the instance of the webserver, my instance is called FAYWEB.
        I am at a loss as what to try. I am running the Apache web server.
        Thanks.
        ______________________________________________________________________
                                  Work with Job Member Locks                        
                                                                    System:   FAY400
        Job:   FAYWEB         User:   QTMHHTTP       Number:   047638               
        File:   PRPEEMPL       Library:   ACCFILES       Type:   PHY                 
        Type options, press Enter.                                                  
          5=Work with job shared member locks   8=Work with member locks            
                                                                                    
        Opt   Member       Lock Type   Lock      Status   Share   Scope     Thread  
              PRPEEMPL      MBR        *SHRRD     HELD            *JOB               
                                     DATA       *SHRRD     HELD            *JOB               
        _______________________________________________________________________
                                                                                        
        If I end Fayweb and restart it, the files are unlocked until the first user access the web page
        and call the RPG (CGI) program.
         
            QHTTPSVR       QSYS            SBS     .0                                DEQW  this is the subsystem my Apache instance runs under
               FAYWEB       QTMHHTTP    BCH     .0  PGM-QZHBHTTP     SIGW    
               FAYWEB       QTMHHTTP    BCI      .0                                 SIGW    
               FAYWEB       QTMHHTTP    BCI      .0                                 SIGW       
               FAYWEB       QTMHHTTP    BCI      .0                                TIMW    this is the job that has the files locked
               QZSOSIGN     QTMHHTTP    BCI      .0                                TIMW 
               QZSOSIGN     QTMHHTTP    BCI      .0                                TIMW 
        ________________________________________________________________________
        The files are both user open and input. 
         
        0057.00 Fprpelog   if   e           k disk    usropn          
        0058.00 F                                     infsr(*pssr)    
        0059.00 Fprpeempl  if   e           k disk    usropn          
        0060.00 F                                     infsr(*pssr)    

        Steven Piggott
        Systems Analyst 
         

         -----Original Message-----
        From: Giovanni Perotti [mailto:gb_perotti@...]
        Sent: Wednesday, December 31, 2003 7:08 PM
        To: Easy400Group@yahoogroups.com
        Subject: Re: [Easy400Group] Record/File locks





        Strange case.
        - if your program opens a file for update, make sure it releases the
        records it reads (use "update" after each "read")
          If that is done, there should be no record locks even if the program
        returns without closing files

        - if you still have locks, use command WRKOBJLCK to find the offending job

        Giovanni B. Perotti
        Easy400 webmaster



                                                                                                                                              
                              "Piggott, Steven                                                                                                
                              G"                       To:       "'Easy400Group@yahoogroups.com'" <Easy400Group@yahoogroups.com>              
                              <stevengpiggott@e        cc:                                                                                    
                              aton.com>                Subject:  [Easy400Group] Record/File locks                                             
                                                                                                                                              
                              31/12/2003 20.34                                                                                                
                              Please respond to                                                                                               
                              Easy400Group                                                                                                    
                                                                                                                                              
                                                                                                                                              




        I have searched the archive but am unable to find a solution to my record /
        file lock problem.

        I have a simple CGI - RPGLE program that opens two files, read the files
        based on the info from the web page and returns the data to a new web page.
        The program user opens the files and just before the *inlr='1' statement it
        does a close *all.  The problem the files are still locked by the web
        server
        instance on the AS/400.  What am I missing?  I need to free the file so our
        normal AS/400 processing (not web) can take place. The only way to free the
        file is to stop and restart the instance.

        Any insight will be appreciated.

        Thanks.

        Steven Piggott
        Systems Analyst


        Yahoo! Groups Links
              To visit your group on the web, go to:
              http://groups.yahoo.com/group/Easy400Group/

              To unsubscribe from this group, send an email to:
              Easy400Group-unsubscribe@yahoogroups.com

              Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.




        Yahoo! Groups Links

      • Flaker, Jeff
        are you using persistence?? Jeffrey Flaker Senior Programmer/Analyst Linens N Things 6 Brighton Rd Clifton, NJ 07015 Phone: 973-249-4384 Fax: 973-249-4901
        Message 3 of 13 , Jan 2, 2004
        • 0 Attachment
          Message
          are you using persistence??
           
           
          Jeffrey Flaker
          Senior Programmer/Analyst
          Linens 'N Things
          6 Brighton Rd
          Clifton, NJ 07015
          Phone: 973-249-4384
          Fax: 973-249-4901
          http://www.lnt.com

          "A good player makes himself look good; a great player makes the team look good."
          Author unknown


          -----Original Message-----
          From: Piggott, Steven G [mailto:stevengpiggott@...]
          Sent: Friday, January 02, 2004 7:58 AM
          To: 'Easy400Group@yahoogroups.com'
          Subject: RE: [Easy400Group] Record/File locks

          Could it be an activation group issue?  The Scope of the lock is *job.
          The job that is locking them is the instance of the webserver, my instance is called FAYWEB.
          I am at a loss as what to try. I am running the Apache web server.
          Thanks.
          ______________________________________________________________________
                                    Work with Job Member Locks                        
                                                                      System:   FAY400
          Job:   FAYWEB         User:   QTMHHTTP       Number:   047638               
          File:   PRPEEMPL       Library:   ACCFILES       Type:   PHY                 
          Type options, press Enter.                                                  
            5=Work with job shared member locks   8=Work with member locks            
                                                                                      
          Opt   Member       Lock Type   Lock      Status   Share   Scope     Thread  
                PRPEEMPL      MBR        *SHRRD     HELD            *JOB               
                                       DATA       *SHRRD     HELD            *JOB               
          _______________________________________________________________________
                                                                                          
          If I end Fayweb and restart it, the files are unlocked until the first user access the web page
          and call the RPG (CGI) program.
           
              QHTTPSVR       QSYS            SBS     .0                                DEQW  this is the subsystem my Apache instance runs under
                 FAYWEB       QTMHHTTP    BCH     .0  PGM-QZHBHTTP     SIGW    
                 FAYWEB       QTMHHTTP    BCI      .0                                 SIGW    
                 FAYWEB       QTMHHTTP    BCI      .0                                 SIGW       
                 FAYWEB       QTMHHTTP    BCI      .0                                TIMW    this is the job that has the files locked
                 QZSOSIGN     QTMHHTTP    BCI      .0                                TIMW 
                 QZSOSIGN     QTMHHTTP    BCI      .0                                TIMW 
          ________________________________________________________________________
          The files are both user open and input. 
           
          0057.00 Fprpelog   if   e           k disk    usropn          
          0058.00 F                                     infsr(*pssr)    
          0059.00 Fprpeempl  if   e           k disk    usropn          
          0060.00 F                                     infsr(*pssr)    

          Steven Piggott
          Systems Analyst 
           

           -----Original Message-----
          From: Giovanni Perotti [mailto:gb_perotti@...]
          Sent: Wednesday, December 31, 2003 7:08 PM
          To: Easy400Group@yahoogroups.com
          Subject: Re: [Easy400Group] Record/File locks





          Strange case.
          - if your program opens a file for update, make sure it releases the
          records it reads (use "update" after each "read")
            If that is done, there should be no record locks even if the program
          returns without closing files

          - if you still have locks, use command WRKOBJLCK to find the offending job

          Giovanni B. Perotti
          Easy400 webmaster



                                                                                                                                                
                                "Piggott, Steven                                                                                                
                                G"                       To:       "'Easy400Group@yahoogroups.com'" <Easy400Group@yahoogroups.com>              
                                <stevengpiggott@e        cc:                                                                                    
                                aton.com>                Subject:  [Easy400Group] Record/File locks                                             
                                                                                                                                                
                                31/12/2003 20.34                                                                                                
                                Please respond to                                                                                               
                                Easy400Group                                                                                                    
                                                                                                                                                
                                                                                                                                                




          I have searched the archive but am unable to find a solution to my record /
          file lock problem.

          I have a simple CGI - RPGLE program that opens two files, read the files
          based on the info from the web page and returns the data to a new web page.
          The program user opens the files and just before the *inlr='1' statement it
          does a close *all.  The problem the files are still locked by the web
          server
          instance on the AS/400.  What am I missing?  I need to free the file so our
          normal AS/400 processing (not web) can take place. The only way to free the
          file is to stop and restart the instance.

          Any insight will be appreciated.

          Thanks.

          Steven Piggott
          Systems Analyst


          Yahoo! Groups Links
                To visit your group on the web, go to:
                http://groups.yahoo.com/group/Easy400Group/

                To unsubscribe from this group, send an email to:
                Easy400Group-unsubscribe@yahoogroups.com

                Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.




          Yahoo! Groups Links




          Yahoo! Groups Links

        • Piggott, Steven G
          I don t know, I am new at this. Can you help me understand persistence as it relates to the program? Thanks. Steven Piggott Systems Analyst ... From: Flaker,
          Message 4 of 13 , Jan 2, 2004
          • 0 Attachment
            Message
            I don't know, I am new at this. Can you help me understand persistence as it relates to the program?
             
            Thanks.
             

            Steven Piggott
            Systems Analyst 
             

             -----Original Message-----
            From: Flaker, Jeff [mailto:jflaker@...]
            Sent: Friday, January 02, 2004 9:07 AM
            To: Easy400Group@yahoogroups.com
            Subject: RE: [Easy400Group] Record/File locks

            are you using persistence??
             
             
            Jeffrey Flaker
            Senior Programmer/Analyst
            Linens 'N Things
            6 Brighton Rd
            Clifton, NJ 07015
            Phone: 973-249-4384
            Fax: 973-249-4901
            http://www.lnt.com

            "A good player makes himself look good; a great player makes the team look good."
            Author unknown


            -----Original Message-----
            From: Piggott, Steven G [mailto:stevengpiggott@...]
            Sent: Friday, January 02, 2004 7:58 AM
            To: 'Easy400Group@yahoogroups.com'
            Subject: RE: [Easy400Group] Record/File locks

            Could it be an activation group issue?  The Scope of the lock is *job.
            The job that is locking them is the instance of the webserver, my instance is called FAYWEB.
            I am at a loss as what to try. I am running the Apache web server.
            Thanks.
            ______________________________________________________________________
                                      Work with Job Member Locks                        
                                                                        System:   FAY400
            Job:   FAYWEB         User:   QTMHHTTP       Number:   047638               
            File:   PRPEEMPL       Library:   ACCFILES       Type:   PHY                 
            Type options, press Enter.                                                  
              5=Work with job shared member locks   8=Work with member locks            
                                                                                        
            Opt   Member       Lock Type   Lock      Status   Share   Scope     Thread  
                  PRPEEMPL      MBR        *SHRRD     HELD            *JOB               
                                         DATA       *SHRRD     HELD            *JOB               
            _______________________________________________________________________
                                                                                            
            If I end Fayweb and restart it, the files are unlocked until the first user access the web page
            and call the RPG (CGI) program.
             
                QHTTPSVR       QSYS            SBS     .0                                DEQW  this is the subsystem my Apache instance runs under
                   FAYWEB       QTMHHTTP    BCH     .0  PGM-QZHBHTTP     SIGW    
                   FAYWEB       QTMHHTTP    BCI      .0                                 SIGW    
                   FAYWEB       QTMHHTTP    BCI      .0                                 SIGW       
                   FAYWEB       QTMHHTTP    BCI      .0                                TIMW    this is the job that has the files locked
                   QZSOSIGN     QTMHHTTP    BCI      .0                                TIMW 
                   QZSOSIGN     QTMHHTTP    BCI      .0                                TIMW 
            ________________________________________________________________________
            The files are both user open and input. 
             
            0057.00 Fprpelog   if   e           k disk    usropn          
            0058.00 F                                     infsr(*pssr)    
            0059.00 Fprpeempl  if   e           k disk    usropn          
            0060.00 F                                     infsr(*pssr)    

            Steven Piggott
            Systems Analyst 
             

             -----Original Message-----
            From: Giovanni Perotti [mailto:gb_perotti@...]
            Sent: Wednesday, December 31, 2003 7:08 PM
            To: Easy400Group@yahoogroups.com
            Subject: Re: [Easy400Group] Record/File locks





            Strange case.
            - if your program opens a file for update, make sure it releases the
            records it reads (use "update" after each "read")
              If that is done, there should be no record locks even if the program
            returns without closing files

            - if you still have locks, use command WRKOBJLCK to find the offending job

            Giovanni B. Perotti
            Easy400 webmaster



                                                                                                                                                  
                                  "Piggott, Steven                                                                                                
                                  G"                       To:       "'Easy400Group@yahoogroups.com'" <Easy400Group@yahoogroups.com>              
                                  <stevengpiggott@e        cc:                                                                                    
                                  aton.com>                Subject:  [Easy400Group] Record/File locks                                             
                                                                                                                                                  
                                  31/12/2003 20.34                                                                                                
                                  Please respond to                                                                                               
                                  Easy400Group                                                                                                    
                                                                                                                                                  
                                                                                                                                                  




            I have searched the archive but am unable to find a solution to my record /
            file lock problem.

            I have a simple CGI - RPGLE program that opens two files, read the files
            based on the info from the web page and returns the data to a new web page.
            The program user opens the files and just before the *inlr='1' statement it
            does a close *all.  The problem the files are still locked by the web
            server
            instance on the AS/400.  What am I missing?  I need to free the file so our
            normal AS/400 processing (not web) can take place. The only way to free the
            file is to stop and restart the instance.

            Any insight will be appreciated.

            Thanks.

            Steven Piggott
            Systems Analyst


            Yahoo! Groups Links
                  To visit your group on the web, go to:
                  http://groups.yahoo.com/group/Easy400Group/

                  To unsubscribe from this group, send an email to:
                  Easy400Group-unsubscribe@yahoogroups.com

                  Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.




            Yahoo! Groups Links




            Yahoo! Groups Links



            Yahoo! Groups Links

          • Jon Paris
            Steven, Do you open/close all files on _each_ call to the program? The fact that it is the third server instance that holds the locks suggests that perhaps
            Message 5 of 13 , Jan 2, 2004
            • 0 Attachment
              Steven,
               
              Do you open/close all files on _each_ call to the program?  The fact that it is the third server instance that holds the locks suggests that perhaps multiple instances of the program are being used at some point.  Have you tried restricting FAYWEB to a single server to see if the problem still exists?

              Jon Paris
              Partner400
              www.Partner400.com

               
            • Schreur, Kevin
              It would appear to me that while the files are user open, they are not being closed. Files that are closed can not be locked. It s a real simple thing on an
              Message 6 of 13 , Jan 2, 2004
              • 0 Attachment
                Message
                It would appear to me that while the files are user open, they are not being closed. Files that are closed can not be locked. It's a real simple thing on an ISeries. UNLESS there is an explicit CL Allocate statement someplace else. Since you are new to this, I will assume that you don't have CL allocate statements running, and you just have to close the files when you return from the programs within the HTTP Job. Remember that the HTTP jobs do NOT end, so file close is the programmers responsibility. The statement regarding persistence I would ignore. If you don't know what it is, my guess is that you are not using it!.
                 

                Kevin. .

                -----Original Message-----
                From: Piggott, Steven G [mailto:stevengpiggott@...]
                Sent: Friday, January 02, 2004 10:02 AM
                To: 'Easy400Group@yahoogroups.com'
                Subject: RE: [Easy400Group] Record/File locks

                I don't know, I am new at this. Can you help me understand persistence as it relates to the program?
                 
                Thanks.
                 

                Steven Piggott
                Systems Analyst 
                 

                 -----Original Message-----
                From: Flaker, Jeff [mailto:jflaker@...]
                Sent: Friday, January 02, 2004 9:07 AM
                To: Easy400Group@yahoogroups.com
                Subject: RE: [Easy400Group] Record/File locks

                are you using persistence??
                 
                 
                Jeffrey Flaker
                Senior Programmer/Analyst
                Linens 'N Things
                6 Brighton Rd
                Clifton, NJ 07015
                Phone: 973-249-4384
                Fax: 973-249-4901
                http://www.lnt.com

                "A good player makes himself look good; a great player makes the team look good."
                Author unknown


                -----Original Message-----
                From: Piggott, Steven G [mailto:stevengpiggott@...]
                Sent: Friday, January 02, 2004 7:58 AM
                To: 'Easy400Group@yahoogroups.com'
                Subject: RE: [Easy400Group] Record/File locks

                Could it be an activation group issue?  The Scope of the lock is *job.
                The job that is locking them is the instance of the webserver, my instance is called FAYWEB.
                I am at a loss as what to try. I am running the Apache web server.
                Thanks.
                ______________________________________________________________________
                                          Work with Job Member Locks                        
                                                                            System:   FAY400
                Job:   FAYWEB         User:   QTMHHTTP       Number:   047638               
                File:   PRPEEMPL       Library:   ACCFILES       Type:   PHY                 
                Type options, press Enter.                                                  
                  5=Work with job shared member locks   8=Work with member locks            
                                                                                            
                Opt   Member       Lock Type   Lock      Status   Share   Scope     Thread  
                      PRPEEMPL      MBR        *SHRRD     HELD            *JOB               
                                             DATA       *SHRRD     HELD            *JOB               
                _______________________________________________________________________
                                                                                                
                If I end Fayweb and restart it, the files are unlocked until the first user access the web page
                and call the RPG (CGI) program.
                 
                    QHTTPSVR       QSYS            SBS     .0                                DEQW  this is the subsystem my Apache instance runs under
                       FAYWEB       QTMHHTTP    BCH     .0  PGM-QZHBHTTP     SIGW    
                       FAYWEB       QTMHHTTP    BCI      .0                                 SIGW    
                       FAYWEB       QTMHHTTP    BCI      .0                                 SIGW       
                       FAYWEB       QTMHHTTP    BCI      .0                                TIMW    this is the job that has the files locked
                       QZSOSIGN     QTMHHTTP    BCI      .0                                TIMW 
                       QZSOSIGN     QTMHHTTP    BCI      .0                                TIMW 
                ________________________________________________________________________
                The files are both user open and input. 
                 
                0057.00 Fprpelog   if   e           k disk    usropn          
                0058.00 F                                     infsr(*pssr)    
                0059.00 Fprpeempl  if   e           k disk    usropn          
                0060.00 F                                     infsr(*pssr)    

                Steven Piggott
                Systems Analyst 
                 

                 -----Original Message-----
                From: Giovanni Perotti [mailto:gb_perotti@...]
                Sent: Wednesday, December 31, 2003 7:08 PM
                To: Easy400Group@yahoogroups.com
                Subject: Re: [Easy400Group] Record/File locks





                Strange case.
                - if your program opens a file for update, make sure it releases the
                records it reads (use "update" after each "read")
                  If that is done, there should be no record locks even if the program
                returns without closing files

                - if you still have locks, use command WRKOBJLCK to find the offending job

                Giovanni B. Perotti
                Easy400 webmaster



                                                                                                                                                      
                                      "Piggott, Steven                                                                                                
                                      G"                       To:       "'Easy400Group@yahoogroups.com'" <Easy400Group@yahoogroups.com>              
                                      <stevengpiggott@e        cc:                                                                                    
                                      aton.com>                Subject:  [Easy400Group] Record/File locks                                             
                                                                                                                                                      
                                      31/12/2003 20.34                                                                                                
                                      Please respond to                                                                                               
                                      Easy400Group                                                                                                    
                                                                                                                                                      
                                                                                                                                                      




                I have searched the archive but am unable to find a solution to my record /
                file lock problem.

                I have a simple CGI - RPGLE program that opens two files, read the files
                based on the info from the web page and returns the data to a new web page.
                The program user opens the files and just before the *inlr='1' statement it
                does a close *all.  The problem the files are still locked by the web
                server
                instance on the AS/400.  What am I missing?  I need to free the file so our
                normal AS/400 processing (not web) can take place. The only way to free the
                file is to stop and restart the instance.

                Any insight will be appreciated.

                Thanks.

                Steven Piggott
                Systems Analyst


                Yahoo! Groups Links
                      To visit your group on the web, go to:
                      http://groups.yahoo.com/group/Easy400Group/

                      To unsubscribe from this group, send an email to:
                      Easy400Group-unsubscribe@yahoogroups.com

                      Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.




                Yahoo! Groups Links




                Yahoo! Groups Links



                Yahoo! Groups Links




                Yahoo! Groups Links

              • Piggott, Steven G
                Jon, Kevin; The program is pretty simple so I don t know why I am having the difficulties with it. The program just opens the files with an open statement,
                Message 7 of 13 , Jan 2, 2004
                • 0 Attachment
                  Jon, Kevin; The program is pretty simple so I don't know why I am having the difficulties with it.  The program just opens the files with an open statement, get the SSN from the user via the gethtml directive, uses the SSN to chain to the employee file and returns the vacation hours.  Then I close *all just before the eval *inlr = '1'.
                   
                  I will need to do some digging here, looking at the configuration file.  I used all the default setup that came with the CGIDEV2 info.  I did note that the maxpersistentCGI is set to 40 and the maxCGIjobs is also 40.  Maybe I can find some more info online.  If you think of anything else, I certainly appreciate the feedback, I will let you all know the outcome if I ever figure it out.
                   
                  Thanks.

                  Steven Piggott
                  Systems Analyst

                • Van os Antoon
                  Happy New Year to you all. Strange indeed, this lock problem. If the Close *All was succesful this means that no records can remain locked after a read on the
                  Message 8 of 13 , Jan 2, 2004
                  • 0 Attachment
                    Happy New Year to you all.
                    Strange indeed, this lock problem.
                    If the Close *All was succesful this means that no records can remain locked after a read on the ODP that
                    was created by the Open and closed by the Close *all. If you still see record locks it can only mean that :
                    -     You did more than 1 Open. That should show up under option 14 of the WRKJOB of the server
                          instance. ( Did you do a "new" open or SHARE(*YES) ?) . Or :
                    -    You are using Commitment control and there are pending ( uncommitted ) changes. This will
                         show under option 16. or :
                    -    You coded *PSSR for the file. This means that if the Close *all - for whatever reason - failed, *PsSr takes
                          over and your file remains Open, which could explain your problem. Remove the *PSSR from the File spec, 
                          recompile and then restart your server and see what happens ! 
                    Hth,
                    Antoon
                    -----Original Message-----
                    From: Piggott, Steven G [mailto:stevengpiggott@...]
                    Sent: vrijdag 2 januari 2004 17:15
                    To: 'Easy400Group@yahoogroups.com'
                    Subject: RE: [Easy400Group] Record/File locks

                    Jon, Kevin; The program is pretty simple so I don't know why I am having the difficulties with it.  The program just opens the files with an open statement, get the SSN from the user via the gethtml directive, uses the SSN to chain to the employee file and returns the vacation hours.  Then I close *all just before the eval *inlr = '1'.
                     
                    I will need to do some digging here, looking at the configuration file.  I used all the default setup that came with the CGIDEV2 info.  I did note that the maxpersistentCGI is set to 40 and the maxCGIjobs is also 40.  Maybe I can find some more info online.  If you think of anything else, I certainly appreciate the feedback, I will let you all know the outcome if I ever figure it out.
                     
                    Thanks.

                    Steven Piggott
                    Systems Analyst



                    Yahoo! Groups Links

                  • Piggott, Steven G
                    Antoon, Thank you thank you!! The problem I caused was actually very dumb but you pointed me in the right direction with the *pssr. I commented them (*pssr)
                    Message 9 of 13 , Jan 2, 2004
                    • 0 Attachment
                      Antoon,
                       
                      Thank you thank you!!  The problem I caused was actually very dumb but you pointed me in the right direction with the *pssr.
                       
                      I commented them (*pssr) out of my file spec and had the same problem after restarting the server.  When looking at the *pssr subroutine in the program, I noticed that it was the only place I closed the files and set lr = '1'.
                      The mainline just returned. Added the close and eval *inlr='1'  before the return and it works great.  I bet I'll remember this one for a while.
                       
                      Thank you all for your suggestions and help, this group is the best!! :-)
                       

                      Steven Piggott
                      Systems Analyst

                    • Miguel de Anquin
                      Steven, I didn t read all the messages related to your lock problem and I hope this helps: 1- You need to determine who is locking the record (WRKOBJLCK).
                      Message 10 of 13 , Jan 2, 2004
                      • 0 Attachment
                        Steven,
                         
                        I didn't read all the messages related to your lock problem and I hope this helps:
                         
                        1- You need to determine who is locking the record (WRKOBJLCK). Don't go any further if you can't determine this.
                         
                        2- If it is you, then look at all the programs (RPGLE, CL, ETC)  in your execution chain using the file with the problem. Make sure you set on *INLR in all of them. Also make sure, that *INLR statement is executed and it is not conditioned by anything. For example,  you open the file for update, you do a read and then you call another program that updates the record.
                         
                        3- If you have not found the problem, then debug to make sure you are closing all the files.
                         
                        4- If you are still having problems or find the debug too complicated, then you can run this command from within your programs (QCMDEXC) right after closing the files DSPJOB OUTPUT(*PRINT) OPTION(*OPNF). This will print all the open files in your job.
                         
                        I hope this helps, have fun.
                         
                        Miguel
                        -----Original Message-----
                        From: Piggott, Steven G [mailto:stevengpiggott@...]
                        Sent: Friday, January 02, 2004 8:15 AM
                        To: 'Easy400Group@yahoogroups.com'
                        Subject: RE: [Easy400Group] Record/File locks

                        Jon, Kevin; The program is pretty simple so I don't know why I am having the difficulties with it.  The program just opens the files with an open statement, get the SSN from the user via the gethtml directive, uses the SSN to chain to the employee file and returns the vacation hours.  Then I close *all just before the eval *inlr = '1'.
                         
                        I will need to do some digging here, looking at the configuration file.  I used all the default setup that came with the CGIDEV2 info.  I did note that the maxpersistentCGI is set to 40 and the maxCGIjobs is also 40.  Maybe I can find some more info online.  If you think of anything else, I certainly appreciate the feedback, I will let you all know the outcome if I ever figure it out.
                         
                        Thanks.

                        Steven Piggott
                        Systems Analyst



                        Yahoo! Groups Links

                      • Piggott, Steven G
                        Thanks for the feedback. The problem was that I was setting *INLR= 1 but only in the *pssr subroutine. I completely missed the mainline return statement.
                        Message 11 of 13 , Jan 5, 2004
                        • 0 Attachment
                          Thanks for the feedback.  The problem was that I was setting *INLR='1'  but only in the *pssr subroutine.  I completely missed the mainline "return" statement. Added the close *all and set *INLR-'1' and all works great.  That's what I get for using somebody else's template :-).
                           

                          Steven Piggott
                          Systems Analyst

                        Your message has been successfully submitted and would be delivered to recipients shortly.