ibmi-brunch-learn

Announcement

Collapse
No announcement yet.

SQLRPG running X times and never more ...

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • SQLRPG running X times and never more ...

    Hy all,

    Did you ever heard of one SQLRPG prog that runs from one to x times and stops working untill the source is compiled again ???

    RCLACTGRP ACTGRP(*ELIGIBLE) and RCLRSC LVL(*) are uneffective


    Thanks for helping us
    Attached Files
    Last edited by croco411; February 3, 2006, 08:21 AM.

  • #2
    Re: SQLRPG running X times and never more ...

    No but I would ask my System Admin if any PTF were applied. This is usually what happens for me.
    Never trust a dog to watch your food.

    Comment


    • #3
      Re: SQLRPG running X times and never more ...

      can we see a post of the joblog after it ends please.....


      Happy friday everyone,,,,,,,,,looks like we made it thru another one

      Jamie
      All my answers were extracted from the "Big Dummy's Guide to the As400"
      and I take no responsibility for any of them.

      www.code400.com

      Comment


      • #4
        Re: SQLRPG running X times and never more ...

        Could you guys keep it down? We already have all the Super Bowl peeps here .. this place is NUTS!!

        Comment


        • #5
          Re: SQLRPG running X times and never more ...

          Code:
          Work 770284/JOANIQUET/INFOM38 started the 03/02/06 to 15:18:47 in 
          subsystem QINTER of QGPL; subjected 03/02/06 to 15:18:47. 
          Queue of messages JOANIQUET allocated with another work. / * */3 
          call resaobj/resalibl List of the libraries modified. 3 addlible voyd9.60.m 
          Library VOYD9.60.M added to the list of the libraries. 3 call job010v1 
          Property of object JOBBATCH of QTEMP, modified standard * USRSPC. 
          Property of object JOBPARAM of QTEMP, modified standard * USRSPC. 
          Cursor C_JOB100P1 is not open. Property of the SPOOLS object of 
          QTEMP, modified standard * USRSPC. Cursor C_JOB100P1 is not open. 
          Object MSU200X of standard QTEMP * FILE not found. Object MSU200X 
          of the type * FILE created in QTEMP. 1 dupliqué(s) object. Substitution 
          not found at the level indicated. Cursor C_MSU200L1 is not open. 
          Substitution not found at the level indicated. Cursor C_MSU200L2 is 
          not open. SPOOL object not found in library QTEMP. 3 WRKJOB
          All my answers were extracted from the "Big Dummy's Guide to the As400"
          and I take no responsibility for any of them.

          www.code400.com

          Comment


          • #6
            Re: SQLRPG running X times and never more ...

            I still dont see the cpf ending message.......is there more to the joblog?

            thanks
            Jamie
            All my answers were extracted from the "Big Dummy's Guide to the As400"
            and I take no responsibility for any of them.

            www.code400.com

            Comment


            • #7
              Re: SQLRPG running X times and never more ...

              This is an interactive job, the joblog ends here...

              Comment


              • #8
                Re: SQLRPG running X times and never more ...

                can we remove the (e) from the calls this is masking the error(s)
                Code:
                 
                Callp(e)  to just Callp
                I dont have enough yet

                i think here
                Code:
                   Begsr PutPrmPrt ;
                            Close SYSTEMU ;
                
                            Commande = 'DLTOVR FILE(SYSTEMU) LVL(*JOB)' ;
                            Callp(e) àRunCmd(Commande) ;
                
                         //‚Constitution Nom du Spool
                         //‚Nom du spool(10)= debut code fournisseur(6)+ nb points (4)
                
                            ww_NomSpl = pp_origine ;
                            %subst(ww_NomSpl : 7 : 4) = %editc(out_nbpoin :'X') ;
                
                               Commande = 'OVRPRTF FILE(SYSTEMU) TOFILE(*LIBL/QSYSPRT)'
                                        + ' FORMTYPE('+ qt + ww_nomspl + qt + ')'
                                        + ' OUTQ(FAGEX97)'
                                        + ' HOLD(*yes) OVRSCOPE(*JOB)' ;
                
                            Callp(e) àRunCmd(Commande) ;
                            Open SYSTEMU ;
                
                            Prt_SplN = 'SYSTEMU' ;
                            ExSr Enr_Spool ; //‚Enregistrement UsrSpc 'SPOOL'
                
                         Endsr ;
                All my answers were extracted from the "Big Dummy's Guide to the As400"
                and I take no responsibility for any of them.

                www.code400.com

                Comment


                • #9
                  Re: SQLRPG running X times and never more ...

                  Did you change the source code because I didnt see your Delcare for the prepared statement?


                  Code:
                  C/EXEC SQL
                  C+ DELCARE C_MSU200L1 CURSOR FROM P1
                  C/EXEC
                  Last edited by kpmac; February 3, 2006, 08:56 AM.
                  Predictions are usually difficult, especially about the future. ~Yogi Berra

                  Vertical Software Systems
                  VSS.biz

                  Comment


                  • #10
                    Re: SQLRPG running X times and never more ...

                    I have in the past had my job message queue wrap with sql (big suprise) if the system values say *nowrap then the job ends when this happens...see image.

                    you may want to look at this
                    Attached Files
                    All my answers were extracted from the "Big Dummy's Guide to the As400"
                    and I take no responsibility for any of them.

                    www.code400.com

                    Comment


                    • #11
                      Re: SQLRPG running X times and never more ...

                      all "(e)" removed : no runtime errors and same execution problem

                      Ths "QJOBMSGQFL" system value is *WRAP too
                      Last edited by croco411; February 3, 2006, 09:06 AM.

                      Comment


                      • #12
                        Re: SQLRPG running X times and never more ...

                        Looks like im no help to ya! Sorry When you get this solved will you let me know?

                        It still looks like someting to do with the cursor C_MSU200L2 which i dont see defined either/???
                        must come from here

                        Code:
                        Begsr FinPgm ;
                        
                                    Msu200l2_p = Param_In ;
                                    Msu200l2 ( Msu200l2_p ) ; //‚Liste des imprimés 'points fidélité' édités
                        
                                    ExSr Fin_Job ; //‚Enregistrement infos fin de travail
                        
                                    *Inlr = *on ;
                                 Endsr ;
                        jamie
                        All my answers were extracted from the "Big Dummy's Guide to the As400"
                        and I take no responsibility for any of them.

                        www.code400.com

                        Comment


                        • #13
                          Re: SQLRPG running X times and never more ...

                          I had a co-worker that had a strange problem similar in nature. His solution was to put the close cursor SR below the open cursor SR and it took care of it.

                          This started when we put V5R3 on our development machine but compiled it as a V5R2.
                          Never trust a dog to watch your food.

                          Comment


                          • #14
                            Re: SQLRPG running X times and never more ...

                            Thanks Sbp0718, tried your proposal, but got no result ...

                            Comment

                            Working...
                            X