Prev
Next
Forums S3 Customization/Development

E@DBFINDnxt in LSF9

Sort:
You are not authorized to post a reply.
Author
Messages
Walter
Advanced Member
Posts: 22
Advanced Member
8/19/2010 4:14 PM
    I'm in the process of migrating our custom programs from 8.1 to LSF9. The following is from one of those programs which has been working fine 8.1



    C eval $FirstZAY = 'Y'

    C callp DN@DBPXZAY1(E@DBFINDbegrng)
    * Loop through Billing Header Records where status = 1

    * If applicable, apply Process Lever and/or Voucher Number filters
    C DOU dzay@notfound = TRUE or
    C dzay@notfound = FALSE and
    C (Dzaycmpny <> D@cmpny or
    C Dzayvchnbr <> D@vchnbr)
    C if $FirstZAY = 'N'
    C callp DN@DBPXZAY1(E@DBFINDnxt)
    C endif
    C eval $FirstZAY = 'N'

    Testing this in 9.0.1, the program crashes at DN@DBPXZAY1(E@DBFINDbegrng)
    with the following error, which trying to read the second record

    User Name: DSWK Job Name: PX120WK Queue Name: ACCLAWDEV
    BEGIN: Job Submitted: Thu Aug 19 12:43:54 2010

    Step 1: PX120 Started. . . . . .: Thu Aug 19 12:44:38 2010
    ** Creating .prt and .dtl files
    File LAWAPP9/BINVOICEDT.
    tsFindNxtDBRec error is File position not valid for nxt/prv find (114).
    Process ID . . . . . . .: 156767
    (StartJob) CALL PX120 Failed
    Elapsed Time: 00:04:42

    END: Job Ended: Thu Aug 19 12:48:36 2010

    Does anyone know if these IO routines have changed in LSF9
    Ragu Raghavan
    Veteran Member
    Posts: 468
    Veteran Member
    8/19/2010 4:35 PM
      They did change in the Unix/Wndows env.

      Prior to LSF9, it was forgving. I could pair a FIND-BEGRNG with a FIND-NEXT.
      Now it forces me to match FIND-BEGRNG with FIND-NXTRNG.

      This looks like I-series/RPG. Don't know the syntax. You probably need to replace the callp DN@DBPXZAY1(E@DBFINDnxt) with a callp DN@DBPXZAY1(E@DBFINDnxtrng) or something.
      Walter
      Advanced Member
      Posts: 22
      Advanced Member
      8/19/2010 5:04 PM
        Thanks. That's what I was suspecting. I'll give your suggestion a try and let you know how it works

        Your right in that is iSeries RPG and I wouldn't be at all surprised if it were changed too.
        Walter
        Advanced Member
        Posts: 22
        Advanced Member
        8/19/2010 7:01 PM
          Looks like that worked. I paired up E@DBLOCKBEGRNG with E@DBLOCKNXTRNG; also E@DBFINDBEGRNG with E@DBFINDNXTRNG

          Program ran to normal completion and the results look good.

          Thanks for your help. The solution was not nearly as bad as I initially thought.
          You are not authorized to post a reply.